Hi guys, I posted a query on this group that was very quickly answered but I
am not sure how to implement it.
This is the code as recieved:
Try something like this maybe. You will need to name the days five cells
mon, tue, wed etc. Assign to a button named "Week Update" or whatever.
Change F100 to whatever column suits you.
Sub ListJobs()
Dim mon As Range
Dim tue As Range
Dim wed As Range
Dim thur As Range
Dim fri As Range
Range("mon").Copy Range("F100").End(xlUp).Offset(1, 0)
Range("tue").Copy Range("F100").End(xlUp).Offset(2, 0)
Range("wed").Copy Range("F100").End(xlUp).Offset(2, 0)
Range("thur").Copy Range("F100").End(xlUp).Offset(2, 0)
Range("fri").Copy Range("F100").End(xlUp).Offset(2, 0)
End Sub
I have put Dim lines into general declarationss and range("mon") etc into a
button.
I have in Cells
A1:A5 Mon
A6:A10 Tue
A11:A15 Wed etc..
In cells B1:B25 I have the jobs I have completed for those days, now what I
want to happen is for any cell beteen B1:B25 that contains data to be placed
to be copied to cells E75 onwards.
However when i run the button I get an error message :METHOD 'RANGE' of
Object '_Global' Failed
and when I press debug it highlights the first line of code:
Range("mon").Copy Range("b1:b5").End(xlUp).Offset(1, 0)
many thanxs in advance
keith
Bookmarks