subtract business from date in a cell

[lu fim]

Here in this code I put a condition, and if the condition is met, I subtract 2 days from the date in cell "Q". But i wanted to know if i can subtract two WORKDAYS, instead of normal days.

*It needs to use weekday function, because i use excel 2002, and it does not have workdayfunction.



If Range("AW" & rw).Value >= Range("Q" & rw).Value Then
Range("AZ" & rw).Value = Range("Q" & rw).Value - 2
Range("AZ" & rw).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With

[lu fim]

Here's the whole code.

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

For rw = 3 To LR
If IsEmpty(Range("AW" & rw).Value) Then
Range("AW" & rw).Value = Date
Range("AW" & rw).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If


If Range("AW" & rw).Value >= Range("Q" & rw).Value Then
Range("AZ" & rw).Value = Range("Q" & rw).Value - 2
Range("AZ" & rw).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With

ElseIf Range("AW" & rw).Value < Range("Q" & rw).Value Then
Range("AZ" & rw).Value = Range("AW" & rw).Value
Range("AZ" & rw).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With


ElseIf Not IsEmpty((Range("H" & rw).Value)) Then
Range("BA" & rw).Value = "Data prazo já existente, Conferir."

End If
Next rw
End Sub

[protonLeah]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)