Pull values from columns to cells in another sheet

[inkbird1]

Hello friends.

I have a tab (DATA) with a data table and another tab (FORM) with a data table starting on row 13.
I would like to extract values from the DATA tab columns a,b,c and put them into the FORM tab starting at row 13 when the button is clicked

DATA TAB

FORM TAB

 

[kweaver]

Will this work for you? Assign the macro to the button on the FORM sheet.

Sub PullData()
Dim lastrow As Long
lastrow = Worksheets("DATA").Cells(Rows.Count, "A").End(xlUp).Row
Worksheets("DATA").Range("A1:C" & lastrow).Copy Destination:=Worksheets("FORM").Range("A13:C" & lastrow + 12)
End Sub

 

[inkbird1]

Will this work for you? Assign the macro to the button on the FORM sheet.

Sub PullData()
Dim lastrow As Long
lastrow = Worksheets("DATA").Cells(Rows.Count, "A").End(xlUp).Row
Worksheets("DATA").Range("A1:C" & lastrow).Copy Destination:=Worksheets("FORM").Range("A13:C" & lastrow + 12)
End Sub

Thanks,

i did simplify my request - the data is columns a b c d e but i only need to extract values from a b and d

 

[kweaver]

If the data is coming from a, b, and d and going into a, b, and d starting in row 13, then this modification should do it.

[code'
Sub PullData()
Dim lastrow As Long
lastrow = Worksheets("DATA").Cells(Rows.Count, "A").End(xlUp).Row
Worksheets("DATA").Range("A1:B" & lastrow).Copy Destination:=Worksheets("FORM").Range("A13:B" & lastrow + 12)
Worksheets("DATA").Range("D1:D" & lastrow).Copy Destination:=Worksheets("FORM").Range("D13:D" & lastrow + 12)
End Sub[/code]