S
Sin
I have 2 spreadsheet (A & B) with same column headings. I am trying to put a
macro button in Spreadsheet A in which it will
1. copy the last row of data in Spreadsheet A
2. paste the row of data as last record (first empty row) in Spreadsheet B
The following is my codes, but it I can't get it to work, could someone help?
Dim lRow As Long
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Application.ScreenUpdating = False
Set Wb1 = ActiveWorkbook
Set Wb2 = Workbooks.Open("S:\Stardex Compliance\Registers\Stardex Breach
Register.xls")
Set WS1 = Wb1.Worksheets("Register")
Set WS2 = Wb2.Worksheets("Register")
'find and copy last row in register 1
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
..LastRow.Copy
End With
'find the first empty row in register 2
lRow = WS2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
..Range(lRow, "A").PasteSpecial Paste:=xlAll, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Wb2.Save
Wb2.Close
Thanks
macro button in Spreadsheet A in which it will
1. copy the last row of data in Spreadsheet A
2. paste the row of data as last record (first empty row) in Spreadsheet B
The following is my codes, but it I can't get it to work, could someone help?
Dim lRow As Long
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Application.ScreenUpdating = False
Set Wb1 = ActiveWorkbook
Set Wb2 = Workbooks.Open("S:\Stardex Compliance\Registers\Stardex Breach
Register.xls")
Set WS1 = Wb1.Worksheets("Register")
Set WS2 = Wb2.Worksheets("Register")
'find and copy last row in register 1
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
..LastRow.Copy
End With
'find the first empty row in register 2
lRow = WS2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
..Range(lRow, "A").PasteSpecial Paste:=xlAll, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Wb2.Save
Wb2.Close
Thanks