G
Guest
Guest
Sub SaveOrder()
Dim Cnt As Integer
Range("'Data'!A2").Offset(, Range("G1") * 2 - 1) = Range("G1")
For Cnt = 3 To 18
Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2 - 1) = Range("D" & Cnt)
Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2) = Range("H" & Cnt)
Next
End Sub
whne there is nothing is G1 i got a run tim,e error, how can i make it so if there is nothing in G1 a message will come up and ask u to put a number in G1?
Dim Cnt As Integer
Range("'Data'!A2").Offset(, Range("G1") * 2 - 1) = Range("G1")
For Cnt = 3 To 18
Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2 - 1) = Range("D" & Cnt)
Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2) = Range("H" & Cnt)
Next
End Sub
whne there is nothing is G1 i got a run tim,e error, how can i make it so if there is nothing in G1 a message will come up and ask u to put a number in G1?