Wow that was quick, thankyou so much.

Have a good weekend.

Regards
Newbeetle
--
This post was created using recycled electrons!


"FSt1" wrote:

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!