Check a cell and add a value in another cell.

[jaycee]

Hi,

I am trying to do the following

In column A from A2 downwards if a cell I notblank then the cell in column F will contain todays date "NOW()"

ie, Cell A2 is not blank therefore cell F2 will contain todays date.

I am using this VBA at the moment, but it does not work.

Sub Start_Date()
With Range("A2:H1000")
    .Formula = "=if(A2="""","""",F2=Now())"
    .Value = .Value
End With
End Sub

 

[James006]

Hi,

You can adjust your macro as follows :

Sub Start_Date()
With Range("F2:F10")
    .FormulaR1C1 = "=IF(RC[-5]="""","""",NOW())"
    .Value = .Value
End With
End Sub

HTH

 

[jaycee]

James,

You are a star

Many thanks

 

[James006]

James,

You are a star

Many thanks

Thanks a lot for your very kind words ...:wink: