Macro to copy cell data on a set date

Originally Posted by Pindacko

Is there a way to copy data from one cell to another on a set date in excel.
If anyone could help with vba

Thanks

Hi,

was that to run once only the first time the book was opened, or the sheet activated, or figures entered?

Is there a definate entry in one of the cells so that the macro can detect it has happened and not do it again, or would you wish it to keep updating all day?

---

Originally Posted by Pindacko

In the excel file it shows what I am trying to do.

Thanks

Hi,

Looking at your sheet, it appears that what you are trying to do is to display the Button when you are within the '10 Days'.

If this is so then, IF the button is created under Control Toolbox then it would have proerties that included 'Visible' (View, Toolbars, Control Toolbox, and on that, Design Mode, rightmouse a made Button and Properties)

This can be set with a small piece of code such as

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 And Target.Column = 1 And Target.Row = 1 Then
    If Cells(1, 1) = "" Then
        ActiveSheet.Shapes("CommandButton2").Visible = (Sheets(1).Range("A1") = "")
        Else
        ActiveSheet.Shapes("CommandButton2").Visible = (Sheets(1).Range("A1") = "")
        End If
    End If
End Sub

which tests cell A1 and sets or hides the Button as required.

Such code could test any condition and Hide the button as required.

Is this what you are looking for?

---

Originally Posted by Pindacko

No what I want to do is use the form to enter the part number select cell and on date pick have it populate the cell.

Thanks

Hi,

Ok - so you select the 10 day button to activate the displayed '10 day breakpoint' window, enter the part and then click the 'Start Timer'.

The new part would need to be assigned a Row (either in the normal sheet, or in (say) Sheet4 designated for holding only these parts), the timer-start date + 10 days would be recorded on the same row.

The Workbook open routine can then scan the dates held to see which are not < today() -- such items are then transferred to the required area and removed from the 'newstart' holding area.

does this sound like what you are looking to do?

---