Return to todays date macro

U

usmc-r70

I need some help with the following code that will select the cell in column
B that contains todays date, there are no duplicate dates. If todays date is
13 Jul 09, after performing the code below, the cell with todays date is
selected and visable on the screeen. Found some code that should have
worked, but not smart enough to integrate them.

A=Locked or Not Locked or "" or 30
B=Date
C=TEXT(B_,"ddd")
D, E, F, H, I =numbers
H=%

Sub LockedNotLocked()
ActiveSheet.Unprotect
Dim rng As Range
For Each rng In Range("A35:A494")
If rng.Value = "Not Locked" Then
Range("B" & rng.Row & ":I" & rng.Row).Value = Range("B" & rng.Row &
":I" & rng.Row).Value
End If
Next rng
ActiveSheet.Protect
End Sub
 
J

Jacob Skaria

Try the below code in a new workbook/sheet...which should select todays date.

Sub FindToday()
Range("B:B").Find(Date).select
End Sub

I am not sure about the code which you pasted below.. which unprotect the
active sheet..

If this post helps click Yes
 
U

usmc-r70

How would I integrate your code into mine?
Or
How would I 'call' your code from within my code?
 
J

Jacob Skaria

Thanks. So that means you have got what you are looking for?

If this post helps click Yes
 

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

Similar Threads


Top