Date Stamp In Excel on a different sheet

[rob_bob]

Could some one please help,

I need to enter a number in a cell that then auto stamps the date in another cell on a different sheet.

All the VB code I can find only puts the date on the same sheet.

Plese help

Thanks Rob

 

[JoeMo]

What cell and sheet (sheet name) do you enter the number in, and what cell and sheet do you want the date stamp in?

 

[rob_bob]

Thanks...

Sheet name Name where I enter the number "Master Data" Cell A1

Sheet name where I want the date stamp "Master Data Date" Cell A1

Cheers

Rob

 

[JoeMo]

Select the sheet Master Data. Right-click on the sheet tab and select 'View Code'. Then paste the code below into the white space on the VB editor that opens. Close the editor and save the file. Test by changing cell A1 in the Master Data sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
    With Sheets("Master Data Date").Range("A1")
        .Value = Date
    End With
End If

End Sub

 

[rob_bob]

Thanks,

Thats Brilliant your a star!!!!

Cheers

Rob

 

[rob_bob]

This code works great,

Is there anyway though that I can change it a little so that if i write a number anywhere in row A it stamps the date in the mirrored cell on the sheet called Master Data Date, For example when i populate cell A22 it stamps the date in A22 on the Master Data Date sheet or if was to populate A55 it stamps A55 on the Master Data Date sheet

Thanks

Rob

 

[JoeMo]

This code works great,

Is there anyway though that I can change it a little so that if i write a number anywhere in row A it stamps the date in the mirrored cell on the sheet called Master Data Date, For example when i populate cell A22 it stamps the date in A22 on the Master Data Date sheet or if was to populate A55 it stamps A55 on the Master Data Date sheet

Thanks

Rob

try this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Rows(1), Target) Is Nothing Then
    With Sheets("Master Data Date").Cells(1, Target.Column)
        .Value = Date
    End With
End If

End Sub

 

[rob_bob]

This works but only puts the date stamp in cell A1,

I need it to sort of mirror the cell in the sheet where i have entered the value.

for example if i put a number in cell A4 it needs to put the date in cell a4 on the sheet master data date.

Thanks mate!!

Rob

 

[JoeMo]

This works but only puts the date stamp in cell A1,

I need it to sort of mirror the cell in the sheet where i have entered the value.

for example if i put a number in cell A4 it needs to put the date in cell a4 on the sheet master data date.

Thanks mate!!

Rob

The code I posted in Post #7 does the mirroring for me. Please ensure you use that code. Replace what you have now with it.