S
steven_thomas
I am havng trouble with my macro ... the macro tries to activate a 2n
workbook and copy some data from it ... the problem seems to be that m
range statement is not correct ... help ??? ...
Dim number As Range
Set number = Range("c1")
'Hazard Risk Upload
Workbooks("Risk Register Assessment and Control Plan Too
v16.xls").Worksheets("Data Upload").Activate
Range("A178:A294").Select
Selection.Copy
Workbooks("Risk Assessment Tool Master Roll U
v1.xls").Worksheets("RAT Data Upload").Activate
Range("a55").Select
For counter = 1 To 240
If counter <= number Then
ActiveCell.Offset(0, 1).Activate
End If
Next
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = Fals
workbook and copy some data from it ... the problem seems to be that m
range statement is not correct ... help ??? ...
Dim number As Range
Set number = Range("c1")
'Hazard Risk Upload
Workbooks("Risk Register Assessment and Control Plan Too
v16.xls").Worksheets("Data Upload").Activate
Range("A178:A294").Select
Selection.Copy
Workbooks("Risk Assessment Tool Master Roll U
v1.xls").Worksheets("RAT Data Upload").Activate
Range("a55").Select
For counter = 1 To 240
If counter <= number Then
ActiveCell.Offset(0, 1).Activate
End If
Next
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = Fals