Timestamp Problems

  • Thread starter Thread starter ComputerMech
  • Start date Start date
C

ComputerMech

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If IsEmpty(Target(1)) Then Exit Sub
If IsEmpty(Target.Offset(0, -1)) Then
Target.Offset(0, -1) = Date
Target.Offset(0, -1).NumberFormat = "yyyy-mm-dd"
End If
End Sub

This works fine if I type something but I am pasting data in the cells and
it does not put in the date is there any changes that can be made
 
Hi,

I'm confused, this works fine if you paste data into a single cell, are you
saying you want it to work if you paste into multiple cells?

Mike
 
Ok let me go into a little more detail. I have two work sheets in this
workbook I have a macro that transfers data from the first sheet to a single
row on the second sheet. Now what I needed was when that data is transfered
then the second sheet will put the date it was transfered. The data is in
cells b:l and I want the date in a
 
Back
Top