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 today’s 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 today’s date.

Thanks for any help with this,

Newbeetle
--
This post was created using recycled electrons!

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 today’s 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 today’s date.
>
> Thanks for any help with this,
>
> Newbeetle
> --
> This post was created using recycled electrons!

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 today’s 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 today’s date.
> >
> > Thanks for any help with this,
> >
> > Newbeetle
> > --
> > This post was created using recycled electrons!

thanks for the feedback
regards
FSt1

"Newbeetle" wrote:

> 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 today’s 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 today’s date.
> > >
> > > Thanks for any help with this,
> > >
> > > Newbeetle
> > > --
> > > This post was created using recycled electrons!