Search Tomorrow's date macro

[coastalman4545]

Hello and thanks for reading.

I have a dashboard that i made and it has a daily tasks button that goes into my manual calendar that I made and finds "today's" date, goes two rows down and copies the space and pastes it onto my interface page. I will post the macro for it. All I would like to do is learn how to get it to find tomorrow's date and do the exact same thing. Everything else in the code works great, I just need it to find tomorrow's date instead of today. Purpose is I want to know what's tomorrow's tasks. Thanks.

Sub Find_Todays_date() (I have looked and I can't find how to make this look 1 day ahead of today)
Dim FindString As Date
Dim Rng As Range
FindString = CLng(Date)
With Sheets("calendar").Range("A1:G200")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.Copy
Sheets("interface").Select
Range("B3").Select
ActiveSheet.Paste
Else
MsgBox "Nothing found"
End If
End With
End Sub

 

[mole999]

Dates are integers, so +1 will add a day to todays value

 

[coastalman4545]

Dates are integers, so +1 will add a day to todays value

Thanks for the reply. The plus one works for conditional formatting but it did not work with this macro. I get an error whenever i add the plus sign to the todays date.

 

[coastalman4545]

This macro searches through a set of columns and finds today's date. The dates are already set up in a calendar format. The +1 has not worked anywhere in this macro. I could be putting it in the wrong place but below is the different formats I have tried

Sub Find_Todays_date, +1()
Sub find_Todays+1()
Sub find_Tomorrow

All bring back an error or the find_tomorrow just brings back today again not the next day.

 

[coastalman4545]

Dates are integers, so +1 will add a day to todays value

Mole999,
So I reposted with the problems after you posted. I then kept thinking about the +1, I was getting an error no matter where I posted it. then I looked in the line of code "FindString = CLng(Date)" and I added a plus on to that line "FindString = CLng(Date + 1).

Now it works as intended. Thanks for the reply and the help. take care

 

[mole999]

glad you got there