Using .Value property instead of copy paste method to transfer values from one row to next blank row

[anbhavane]

Hello friends..

I want to use Range("Sheet1").value property instead of copy paste method in VBA to transfer values from one complete row to next blank row below. can someone please help in coding.
My range is from (A1:J1)

Regards..

 

[My Aswer Is This]

Try this:

Sub The_Range()
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(Lastrow, 1).Resize(, 10).Value = Cells(1, 1).Resize(, 10).Value
Application.ScreenUpdating = True
End Sub

 

[anbhavane]

As you cannot be bothered to give me a straight answer to a simple question try this

Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 10).Value = Sheets("Sheet1").Range("A1:J1").Value

If that does not do what you want, then you will need to clearly answer my question.

Thank you for the code.. The code you have given copies only one cell ie. value of A1. I want to copy all the values from A1 to J1

 

[anbhavane]

Try this:

Sub The_Range()
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(Lastrow, 1).Resize(, 10).Value = Cells(1, 1).Resize(, 10).Value
Application.ScreenUpdating = True
End Sub

Here also the Values in A1 only are being copied in each row.. I want A1,B1,C1.. till J1 to be copied

 

[Fluff]

That is exactly what both code do.

 

[My Aswer Is This]

Here also the Values in A1 only are being copied in each row.. I want A1,B1,C1.. till J1 to be copied

I test all my scripts and the script is working just as you asked A1 to J1
Maybe this is because you are using a Apple Computer.

 

[anbhavane]

I test all my scripts and the script is working just as you asked A1 to J1
Maybe this is because you are using a Apple Computer.

Yes it is working.. Thanks a lot.. Can the values from A3 to J3 be copied downwards in blanks rows in same way

 

[anbhavane]

Thank all for you valued support and providing the solution selflessly. Kudos and apologies for my bad..

 

[My Aswer Is This]

Yes it is working.. Thanks a lot.. Can the values from A3 to J3 be copied downwards in blanks rows in same way

So it is working I guess is what your now saying
So now your saying A3 to J3 as before you said A1 to J1

So are you now saying you want last filled in range column A
So it might be A3 or A20

And now your using the term Copied as before you said do not copy.

 

[anbhavane]

So it is working I guess is what your now saying
So now your saying A3 to J3 as before you said A1 to J1

So are you now saying you want last filled in range column A
So it might be A3 or A20

And now your using the term Copied as before you said do not copy.

Yes Sir.. it is working for A1:J1. I used the term copied for values being transferred.. I was also trying for row A3 to J3.. sorry for not being specific.. Thank you very much for your efforts..

 

[My Aswer Is This]

Yes Sir.. it is working for A1:J1. I used the term copied for values being transferred.. I was also trying for row A3 to J3.. sorry for not being specific.. Thank you very much for your efforts..

So are you now saying you want the script to transfer A1 to J1 and A3 to J3
Every time you run the script.
And is this all or do you have more?