VBA - send email with multiple ranges in body with 'If Target.Value'

Sap_Jas

New Member
Joined
Aug 2, 2013
Messages
26
Hi,

I am trying to have a VBA to send out an email if when several rows which have a special character in column A,
The VBA I have to add this character is : (wingding font for the check symbol)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A1000")) Is Nothing Then
If Target.Value = "ü" Then Target.Value = "" Else Target.Value = "ü"
Target.Offset(0, 1).Select
End If
End Sub


Which gives me this (with conditional formatting to change the color)

1586990139386.png


What I would like to do is simply have the VBA in a button to generate the mail (I know this bit), but, then insert into the 'Body' of the mail, (ONLY) the ranges B:I of each of the lines selected)

Could anyone please help me to understand how to do this ?
 

Some videos you may like

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.

Sap_Jas

New Member
Joined
Aug 2, 2013
Messages
26
Hi Again, maybe i wasn't explaining correctly, here is a screenshot of what I would like to do, I can send the excel file if needed.
1587146366337.png
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,105,961
Messages
5,508,412
Members
408,683
Latest member
JordanStach

This Week's Hot Topics

Top