date format static


W

Wanna Learn

Hello I copied the following macro and I entred the macro n the worksheet
module this is what I'm looking for. If one of the following cells is not
blank B59, B 60 B 61 B 63 but has a name that has been selected from a drop
down box then in column c I want a static current date and time Macro
does not work thanks for your help
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("B59:B63"), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 1).ClearContents
Else
With .Offset(0, 1)
.NumberFormat = "dd mmm yyyy hh:mm:ss"
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub
 
Ad

Advertisements

L

Lynn Trapp

When you say that the macro doesn't work, what do you mean? What is happening
when you run it?

Lynn Trapp
 
W

Wanna Learn

Thanks Lynn
Example
If I select a name from the drop down box in B59
C59 remains blank instead of giving me the date and time
 
T

T. Valko

It works OK for me. Did you put the code in the right place?

Select the sheet where you want this to happen
Right click the sheet tab and select View Code
Put the code in the window that opens
 
J

Jacob Skaria

--Quit the application and restart Excel OR from the immediate window paste
the below code and enter which will enable the events if it has been disabled
earlier
Application.EnableEvents = True

--Set the Security level to low/medium in (Tools|Macro|Security). Select the
work sheet tab (where you would like to have this implemented). Right click>
View Code and in the code pane paste the code...Now get back to workbook and
try selecting data in *** the *** sheet B59:B63

If this post helps click Yes
 
Ad

Advertisements

Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top