Hi i have a counter macro that works, what i want to do is compare the counter results with a named cell.
Here is counter that works.
Sub Next_riser()
Application.Goto Reference:="Next"
Selection.Copy
Application.Goto Reference:="NumR"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
And this is the macro that i want to use to set off the other macro:
Sub setoffmacro()
If "NumR" = "Number_of_risers" Then
Exit Sub
If "Number_of_risers" < "NumR" Then
Application.Run "Drawingstairs.xls!Next_riser"
Range("K25").Select
Selection.Copy
Range("M25").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("M29").Select
End If
End If
End Sub
Any help welcome
Here is counter that works.
Sub Next_riser()
Application.Goto Reference:="Next"
Selection.Copy
Application.Goto Reference:="NumR"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
And this is the macro that i want to use to set off the other macro:
Sub setoffmacro()
If "NumR" = "Number_of_risers" Then
Exit Sub
If "Number_of_risers" < "NumR" Then
Application.Run "Drawingstairs.xls!Next_riser"
Range("K25").Select
Selection.Copy
Range("M25").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("M29").Select
End If
End If
End Sub
Any help welcome