Hi,
Starting from Sheet2 I would like to do a macro which looks for today's date in Sheet1 column B then it goes to two cells to its right and looks for number 1 and replaces it with number 2 (so CTRL-F function).
Ex. if today's date is in cell B10 of Sheet1 macro will look at cells C10 and D10 and if these have a number 1 this will be replaced by a number 2.
How do I do that?
Thanks,
Nix
Last edited by nicolaforni; 11-01-2011 at 01:31 PM.
try this macro and see whether you get what you want
Sub test() Dim cfind As Range With Worksheets("sheet1") Set cfind = .Columns("B:B").Find(what:=Date, lookat:=xlWhole) If Not cfind Is Nothing Then If cfind.Offset(0, 1) = 1 Then cfind.Offset(0, 1) = 2 If cfind.Offset(0, 2) = 1 Then cfind.Offset(0, 2) = 2 End If End With End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
nicolaforni 
Register To Reply
Bookmarks