Trouble adding day to today's date

[lu fim]

I need to return in column H today's date plus 2 days when Z has "Transport to STK / FORN" as value. But instead of bringing 2 days added to today, it brings me value of column AW.

i tryed "Date + 2" and "DateAdd(w, 2, Date)" none of them work.


Code:
Sub UpdateColumnH()

Dim rw As Long, LR As Long

LR = Range("A" & Rows.Count).End(xlUp).Row

For rw = 3 To LR
If IsDate(Range("H" & rw)) Then
'do nothing
ElseIf Not IsDate(Range("AW" & rw)) Then
'do nothing
ElseIf UCase(Range("J" & rw).Value) = "Date Set" Then
'do nothing
ElseIf UCase(Range("I" & rw).Value) = "CONTROL" Then
Range("H" & rw).Value = Range("AW" & rw).Value
ElseIf UCase(Range("Z" & rw).Value) = "Transport to STK / FORN" Then
Range("H" & rw).Value = DateAdd(w, 2, Date) 'Date + 2
Else
Range("H" & rw).Value = Range("AW" & rw).Value
End If
Next rw

End Sub

[Phuocam]

Change

ElseIf UCase(Range("Z" & rw).Value) = "Transport to STK / FORN" Then

to

ElseIf Range("Z" & rw).Value = "Transport to STK / FORN" Then

or

ElseIf UCase(Range("Z" & rw).Value) = "TRANSPORT TO STK / FORN" Then

[lu fim]

None fo them work =/

[IonutC]

Lu,

Can you pls put an excel to your conversation?

Also please use the code tags while posting a code. They are marked with the hash sign "#".

[kvsrinivasamurthy]

Try this
Change

Please Login or Register  to view this content.

as

Please Login or Register  to view this content.