I really need some help here, i am working on this excel workbook for work and want to make a button that when pushed, it will copy the data from the table on one sheet to another sheets archive, which it will then take all the data and disperse appropriately across the other tabs to fill in the respective forms. I have 5 sheets, one being a table with
(QTY) (ID) (PO) (Date) Promise By (L) (UOM) (W) (UOM) (Description)
300 1320110 2020182 3/14/16 3/21/16 3 mm x 965 mm Long O Ring Blue Textured
12 1804549 2020182 3/14/16 3/21/16 T5/2190/50 Lat rid backing, 10 mm grove center bottom
40 1805299 2020182 3/14/16 3/21/16 4 mm x 1075 mm Long O Ring
10 1805888 2020182 3/14/16 3/21/16 Long O ring
6 18060202 2020182 3/14/16 3/21/16 T05/2120/068 No Groove for now. Spike top back.
2 18070081 2020182 3/14/16 3/21/16
1 18021035 2020182 3/14/16 3/15/16 4.88 '' x 266.53 '' nel Blue Neg PYR w/ v-guide off set 75mm
1 18020723 2020182 3/14/16 3/15/16 6.81 ''x 325.59 '' NEL Blue Neg Pyr V-Guide
and 3 other individual ones that take the same table and auto fill forms to be printed. The table also needs to be inserted to the top of the sheet to then add to archive. I have read through all these fourms and cant find what i need and or not able to modify the code to work for me. This is what i got so far
Sub AddTextButton()
Dim Lrow As Single
With Worksheets("New Shop ORder")
Lrow = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("B" & Lrow & ":P" & Lrow) = .Range("A2:P2").Value
.Range("B4:P4").Value = ""
End With
End Sub
But it only copies a single row, and i am not able to get it to copy to a different sheet, PLEASE HELP! I would greatly appreciate it!
Bookmarks