Forum Discussion

Diana703's avatar
Diana703
Copper Contributor
Sep 07, 2022

Need Help with Excel Macro

I have a large excel sheet (macro enabled) that I want to send email from with specific data in each email.  I have all working right but I can't get it to create an email to send to each email addre...
Macros and VBA
HansVogelaar's avatar
HansVogelaar
MVP

Diana703 

The code doesn't create any email messages since none of the rows satisfy the conditions in

 

If rngCell.Offset(0, 6) > 0 Then
ElseIf rngCell.Offset(0, 5) > Evaluate("Today() +7") And _
rngCell.Offset(0, 5).Value <= Evaluate("Today() +120") Then

Diana703's avatar
Diana703
Copper Contributor
Sep 07, 2022
The only thing I need it to do yet is to send out the emails to the individual recipients. It does create three emails but they are all going to the same person. Can you help me with this? Thank you.
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Sep 07, 2022

    Diana703 

    I temporarily commented out the criteria, since they don't work, and don't make any sense to me. I got these three messages. Three different recipients, three different subjects, and (not shown) three different message texts. So the problem must lie elsewhere.

    • Diana703's avatar
      Diana703
      Copper Contributor
      Sep 07, 2022
      Thank you so much for continuing to help me. I'm not sure what you mean by " commented out the criteria"...what is the criteria? I'll take it out on my end if you tell me what it is and see if I get the same thing.
      • HansVogelaar's avatar
        HansVogelaar
        MVP
        Sep 07, 2022

        Diana703 

        I meant the lines

         

        If rngCell.Offset(0, 6) > 0 Then
        ElseIf rngCell.Offset(0, 5) > Evaluate("Today() +7") And _
        rngCell.Offset(0, 5).Value <= Evaluate("Today() +120") Then

         

        and the corresponding End If.

    • Diana703's avatar
      Diana703
      Copper Contributor
      Sep 12, 2022
      Can you send me the code you used to get the above? I tried editing mine and it didn't work. Thank you.

Resources