Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return to todays date macro
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return to todays date macro
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 --------------- Jacob Skaria "usmc-r70" wrote: 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return to todays date macro
How would I integrate your code into mine?
Or How would I 'call' your code from within my code? "Jacob Skaria" wrote: 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 --------------- Jacob Skaria "usmc-r70" wrote: 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return to todays date macro
Got it working! Thanks for your quick and accurate help! "Jacob Skaria" wrote: 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 --------------- Jacob Skaria "usmc-r70" wrote: 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return to todays date macro
Thanks. So that means you have got what you are looking for?
If this post helps click Yes --------------- Jacob Skaria "usmc-r70" wrote: Got it working! Thanks for your quick and accurate help! "Jacob Skaria" wrote: 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 --------------- Jacob Skaria "usmc-r70" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to goto specific cell (todays date) | Excel Discussion (Misc queries) | |||
macro to: Add new sheet, then rename new sheet with todays date | Excel Worksheet Functions | |||
how can I return todays date (today() ) in an if function | Excel Worksheet Functions | |||
Using macro to save as todays date | Excel Programming | |||
What syntax do I use to add todays date in an excel macro | Excel Programming |