Type date in first cell of row, 13 columns over - auto extractsmonth for each row

  • Thread starter Thread starter Bull
  • Start date Start date
B

Bull

Quick questions:

How can I put Code in a Worksheet (on Selection change), where for
each row, I type 11/15/08 in the first cell, and in column "M" of the
same row, the 11 is inserted from the date in column A.

Example:
In row 66,
I type 11/15/08 in Cell A66,
In Cell M66, 11 is automatically extracted and inserted

What is the code for doing this for each row, not just row 66, all
rows.

Thanks.
Bull
 
Quick questions:

How can I put Code in a Worksheet (on Selection change), where for
each row, I type 11/15/08 in the first cell, and in column "M" of the
same row, the 11 is inserted from the date in column A.

Example:
In row 66,
I type 11/15/08 in Cell A66,
In Cell M66, 11 is automatically extracted and inserted

What is the code for doing this for each row, not just row 66, all
rows.

Thanks.
Bull
Click to expand...

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If IsDate(Target.Value) Then
Target.Offset(0, 12).Value = Month(Target.Value)
End If
End If
End Sub
 
Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 1 Then
      If IsDate(Target.Value) Then
         Target.Offset(0, 12).Value = Month(Target.Value)
      End If
   End If
End Sub- Hide quoted text -

- Show quoted text -
Click to expand...

worked great, thank you.
bull
 
Back
Top