Code string for button
hi
Private Sub CommandButton1_Click()
If Sheets("sheet1").Range("H2").Value < Date Then
Sheets("sheet1").Range("H7:H12").Copy _
Destination:=Sheets("sheet2").Range("J7:J12")
Sheets("sheet1").Range("H2").Value = Date
Else
MsgBox "no go"
Exit Sub
End If
End Sub
regards
FSt1
"Newbeetle" wrote:
Hi,
I have a command button called €śCompare€ť and I would like it to do the
following when pressed;
1) Compare the date in cell h2 on sheet1 to today's date, if the date is
older than todays date, copy data in cells h7:h12 to j7-j12 on sheet2.
2) I would then like the date in cell h2 on sheet1 to change to todays date.
Thanks for any help with this,
Newbeetle
--
This post was created using recycled electrons!
|