Follow-Up - VBA Help Still Neeeded - Please help

[excel102]

I am new to VBA and I had the following one set-up:


Private Sub Workbook_Open()
MsgBox "Notify Customer 90 days prior to deadline"
MsgBox "Notify Customer when travel has exceeded 75%"
End Sub


However, the notifications were popping every time I open the worksheet and that was not effective. So I asked for help with the following:
1. I would like to add a condition for it to open only 90 days prior to cell C3 (assuming cell C3 has a date).
2. Assuming cell F3 contains the funding amount, I would like for the notification to pop only when it has reached 75% of cell F3.

And after several exchanges with a fellow member, he or she suggested I used the following:

Private Sub Workbook_Open()
If Sheets(1).Range("C3").Value - Date <= 93 And _
Sheets(1).Range("C3").Value >= 90 Then
MsgBox "Notify Customer 90 days prio to Deadline"
End If
If 'it' / Sheets(1).Range("F3").Value >= .75 Then
MsgBox "Notify Customer when travel has exceeded 75%"
End If
End Sub

The logic behind 93 days was in case 90 days fell on a weekend but I can't get it to work. Instead, I am getting the following error:

Rum-time error '13':

Type mismatch

What exactly does this mean and how can I fix it for both notifications to pop?

Thank you.

 

[yky]

2. Assuming cell F3 contains the funding amount, I would like for the notification to pop only when it has reached 75% of cell F3.

What is "it" in the sentence?

Replace the "it" in the following code with the value of "it" above.

If 'it' / Sheets(1).Range("F3").Value >= .75 Then

 

[excel102]

yky,

Thank you for your response. Perhaps I need to provide a better explanation.

On the worksheet, I have 2 columns, F3 and G3. I would like to the code to go to F3, calculate 75% of it, and if the value of G3 exceeds 75% of F3, send a notification when I open the worksheet.

F3 G3
[TABLE="width: 236"]
<tbody>[TR]
[TD]$50,000[/TD]
[TD]$35,000[/TD]
[/TR]
</tbody>[/TABLE]


Please help. Thank you.

 

[Fluff]

try

Private Sub Workbook_Open()

    With Sheets(1)
        If .Range("C3").Value - Date <= 93 And .Range("C3").Value >= 90 Then
            MsgBox "Notify Customer 90 days prio to Deadline"
        End If
        If .Range("G3").Value >= .Range("F3").Value * 0.75 Then
            MsgBox "Notify Customer when travel has exceeded 75%"
        End If
    End With
End Sub

 

[excel102]

Fluff,

Thank you for your response. It appears the code is exactly what I need. However, I'm getting an error. Error reads:

Run-time error '13':

Type mismatch

When I click on Debug, it highlights:
If .Range("C3").Value - Date <= 93 And .Range("C3").Value >= 90 Then

I attempted to do a print screen but was unsuccessful.

NOTE: I moved cells F3 and G3 to N4 and O4 but adjusted code accordingly.

Code currently reads:
Private Sub Workbook_Open()

With Sheets(1)
If .Range("C3").Value - Date <= 93 And .Range("C3").Value >= 90 Then
MsgBox "Notify Customer 90 days prio to Deadline"
End If
If .Range("O4").Value >= .Range("N4").Value * 0.75 Then
MsgBox "Notify Customer when travel has exceeded 75%"
End If
End With
End Sub

Any suggestions to clear the error?

 

[Fluff]

What sheet is your data on?
Are you sure that the value in C3 is a date?

 

[excel102]

Fluff,

Thank you so much for your help!
C3 needed to be fixed. Code is now working.

Again, THANK YOU!

Any suggestions on how I can get more savvy on this topic?

 

[Fluff]

Glad to help & thanks for the feedback
as for

Any suggestions on how I can get more savvy on this topic?

There are plenty of books & websites dedicated to VBA