If Range("A1")

[redspanna]

Hi all

when my macro is run I want to check the date formatted as yyyy-mm-dd in cell A1

If A1 = TODAY()-1 then A1 = TODAY()
if A1 = TODAY() then A1 =TODAY()+1

code I have at the moment is...

Sub Clear

Range("A1").FormulaR1C1 = "=TODAY()+1"

how can this bit of code be changed to add in my 'if' conditions above?

many thanks

 

[Richard Schollar]

Isn't that just:

Range("A1").Value = Range("A1").Value +1

 

[VoG]

Try

With Range("A1")
    If .Value = Date - 1 Then
        .Formula = "=TODAY()"
    ElseIf .Value = Date Then
        .Formula = "=TODAY()+1"
    End If
End With

 

[Richard Schollar]

Or if you want to retain the formula then for example:

If Range("A1").Formula = "=TODAY()-1" Then
  Range("A1").Formula = "=TODAY()"
Else
  Range("A1").Formula = "=TODAY()+1"
ENd If

 

[redspanna]

Thanks to all