GoTo Function in VBA checking values

[blimey88]

Can anyone help with the following, I am trying to miss the email module when checking through my code,

I want the to skip this part of the code:

Call EmailOutOfDate (Email, ExpDate, Documents, Days Remaining) and check a value in the cell which determines whether or not an email should be sent. I need to completely skip this but return to it if the email is required to be sent.

I hope this makes sense if it doesn't but you think you can help please let me know.

 

[blimey88]

This part of the code is checking the email time frame and will mark cell with the relevant amount of days 60,30,15,0 what I need it to do is then see that the 60 day email has been sent and not send it again. The 60 day marker will then count down to 30 and then send the 30 day email, I don’t want it to send another 60 day email

 

[Fluff]

I'm now totally confused.
Which cell is used to show that an email has been sent & which cell shows when it was sent (ie 60 days, 30 days etc)

 

[blimey88]

Ok, I have an expiry date in cell F4 and in G4 I need to mark that an email has been sent at 60 days, I then need to code to check that the 60 day email has been sent and to ensure that a duplicate email isn’t sent. I then need it to send another email at 30 days and mark it accordingly and then another at 15 days and then at 0 days. My issue is that when I run the code it sees the 60 day marker and then wants to send another 60 day email reminder?

 

[Fluff]

Check to see if G4 says 60, if it does, don't sent the email unless you are at the 30 day mark.

Please remember that I have no idea what your data is like, where it is, or what you are trying to do.
Also your code is almost impossible to understand due (in part) to the use of ActiveCell as I have no way of knowing what the cell is.

 

[blimey88]

Yes that’s it. I know I completely understand that your working blind and off my not so good explanations. All the help is hugely appreciated. But yes that’s what I’m after.

 

[Fluff]

How about

   Select Case DaysRemaining
      Case 60, 30, 15
         If Range("G4").Value <> DaysRemaining Then
            Call EmailOutOfDate(Email, ExpDate, Documents, DaysRemaining)
            Range("G4").Value = DaysRemaining
         End If
   End Select

 

[blimey88]

I will give this a try. Many thanks I’ll let you know how I get one ??

 

[blimey88]

I added the code and have played around with it a little more and it’s working and no longer duplicating. Many thanks for all the help It was hugely helpful and massively appreciated ?

 

[Fluff]

Glad to hear you sorted it & thanks for the feedback