copy cell B19:J19 Range data’s from sheet1, and to past in sheet2

D

DJSK

Hi Joel
Macro that should copy cell B19:J19 Range data’s from sheet1, and to past in
sheet2
Paste in cell A2...Then past in A3…A4 and so on...
It should not the disturb the previous cell values in the sheet2
It is almost backup the cell range B19:J19 data’s from sheet1, store the
values in sheet2.
Because B19:J19 data combination varies time to time, I need to back-up the
values history in the sheet2, for the future reference.

Private Sub CommandButton2_Click()
Worksheets("Sheet1").Range("B19:J19").copy _
Destination:=Worksheets("Sheet2").Range("A2")
End Sub

When I click button, the above macro copies the data but it wipes the
previous cell value.

If you provide solution for storing the data in different workbook, that
will be great.

with thanks,
DJSK
 
M

Mike Fogleman

Private Sub CommandButton2_Click()
Dim LRow as Long

LRow = Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row + 1
Worksheets("Sheet1").Range("B19:J19").copy _
Destination:=Worksheets("Sheet2").Range("A"& LRow)
End Sub

For a different workbook add the workbook name to LRow and Destination.
LRow = Workbooks("Data History").Worksheets("Sheet2").Cells(Rows.Count,
"A").End(xlUp).Row + 1
Worksheets("Sheet1").Range("B19:J19").copy _
Destination:=Workbooks("Data History").Worksheets("Sheet2").Range("A"&
LRow)

Mike F
 
J

Joel

I think you want to put the data in the next empty rtow on sheet 2

Private Sub CommandButton2_Click()
with sheets("Sheet2")
LastRow = .Range("A" & Rows.Count).End(xlup).Row
Worksheets("Sheet1").Range("B19:J19").copy _
Destination:=.Range("A" & Lastrow)
end with
End Sub
 
D

DJSK

Hi Mike,

thanks for the Responce
this macro is working fine, in the last few weeks, i am not in home country
to respond you ASAP.
 
D

DJSK

hi Joel,

this works well and good, thank you for your guidance. sorry for the delayed
responce, i was out of country in the last few weeks.

wiht thanks,
DJSK
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top