VBA advance date by one day

[scottleger4]

Good morning! I'm trying to create a loop that operates with a specified date range and interacts with host explorer. I need it to advance the start date by one until it goes past the end date and then stop. Here was my first go at it, but stepping through eventually led to a "Run-time error '13': Type mismatch" at my "a = a + 1".

a = SDate
b = EDate
OnRent = OnRent1
Do Until a > b
Wait
RC = MyHost.keys(OnRent)
RC = MyHost.runcmd("TAB")
a = a + 1
Set OnRent = OnRent.Offset(0, 1)
Wait
WaitForReady
Loop

If SDate = 10/18/2018 (for example), how do I tell VBA to change SDate to be 10/19/2018 after running the two "RC" lines of code? Thanks in advance.

 

[Logit]

.
I don't understand the use of :

RC = MyHost.keys(OnRent)
RC = MyHost.runcmd("TAB"

But, it seems like you are checking the current date against a Due Date for rent payment ?
If so, here is a method I use to check dates. Hopefully, you can use it in your project :

Option Explicit


Sub IsOvrDue()
Dim i As Long
    
    For i = 2 To 50
        If Cells(i, 11).Value = "" Then         '11 is Col K
            Cells(i, 4).Value = ""              '4 is Col D
        ElseIf Cells(i, 11).Value < Now() Then  'If the date in Col K row is older than today, it is overdue
            Cells(i, 4).Value = "Overdue"       'Write Overdue in Col D
        End If
    Next
    
End Sub

 

[JonXL]

What is SDate? A number? A string?