change date based on a code

[donlincolnmre2]

Hello

I have a spread sheet with 3 columns column A contains Date, Column b contains some data and Column D contains the Code Daily

The spread sheet is several rows long, i'm looking for a macro that if it find CODE=Daily, in COLUMN C then the MARCO should change that Data in that row in column A by computers current date.

here is the link to formatted data and below is unformatted date

https://spreadsheets.google.com/spr...-1BKedGlfdkFMR1BuSF9GOU1uVko2VlEyU3c&hl=en_US


any help will be appreciated.

Thanks.


A B C
===== === =============
07/27/11 xx daily
07/27/11 x c=patrick and kimberly
07/27/11 x c=patrick and kimberly
07/27/11 xx daily, Archuleta Christopher R
07/29/11 x daily
07/29/11 xx dialy, debbie, QUESENBERRY,IRVIN WILLIAM FAMILY TRUST
07/27/11 x daily
07/27/11 x nirmala
07/27/11 x nirmala
07/30/11 x daily
07/30/11 xx daily

 

[machopicho]

Try:

Sub test()
For r = 1 To Range("C" & Rows.Count).End(xlUp).Row
If Mid(Range("C" & r), 1, 5) = "daily" Then
Range("A" & r) = Date
End If
Next
End Sub

 

[donlincolnmre2]

that worked

thanks a lot!

 

[machopicho]

Nothing!

 

[Peter_SSs]

An alternate approach would be to use AutoFilter ..

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> UpdateDate()<br>    Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>    Rows(1).Insert<br>    <SPAN style="color:#00007F">With</SPAN> Range("C1", Range("C" & Rows.Count).End(xlUp))<br>        .Cells(1, 1).Value = "tmp"<br>        .AutoFilter Field:=1, Criteria1:="=Daily"<br>        .Offset(, -2).SpecialCells(xlCellTypeVisible).Value = <SPAN style="color:#00007F">Date</SPAN><br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    Rows(1).Delete<br>    Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>