ppataki
03-22-2011, 02:15 AM
Dear All,
I have prepared the below code but at the last line I get an 1004 error code
Could somebody please advise?
Dim SourceWB As Workbook
Dim LR As Long
Set SourceWB = Workbooks("hatósági sablon.xlsx")
LR = SourceWB.Sheets("sablon").Range("a" & Rows.Count).End(xlUp).Row
SourceWB.Sheets("sablon").Range("b500").End(xlUp).AutoFill Destination:=SourceWB.Sheets("sablon").Range(Range("b500").End(xlUp) & ":b" & LR)
Many thanks in advance
I have prepared the below code but at the last line I get an 1004 error code
Could somebody please advise?
Dim SourceWB As Workbook
Dim LR As Long
Set SourceWB = Workbooks("hatósági sablon.xlsx")
LR = SourceWB.Sheets("sablon").Range("a" & Rows.Count).End(xlUp).Row
SourceWB.Sheets("sablon").Range("b500").End(xlUp).AutoFill Destination:=SourceWB.Sheets("sablon").Range(Range("b500").End(xlUp) & ":b" & LR)
Many thanks in advance