more message box to email help

[rjmdc]

last message worked amazing
how can i tweak

whats am i doing wrong?


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count = 1 And Target.Column = 6 and Target.Column = 7 Then
If Target.Value = "✔" Then
result = MsgBox("pressing OK will send email to notify", vbOK + vbExclamation, "can launchl")

If result = vbOK Then

Set OutlookApp = CreateObject("Outlook.Application")
Set OlObjects = OutlookApp.GetNamespace("MAPI")
Set newmsg = OutlookApp.CreateItem(olMailItem)

newmsg.Recipients.Add ("mail@mail.org") ' Add Recipients
newmsg.Subject = "can launchl" ' Add Subject
newmsg.Body = "launch" & vbCrLf & "" & _
"Please schedule launch for " & _
Target.Cells.Offset(0, 1).Value ' Email Body
newmsg.Display 'Display Email
newmsg.Send 'Send Email

MsgBox "Outlook message sent", , "Outlook message sent" ' Confirm Sent Email


End If
End If
End If

End Sub

 

[rjmdc]

how do i reference column a i this row i calculated that the columns i am using with the checks are rows G and H which is 7 and 8 or 6 and 7
and how do i reference column A from the cell with the checks for the e-mail

 

[Anthony47]

the columns i am using with the checks are rows G and H which is 7 and 8 or 6 and 7

G and H means columns 7 and 8

In this context, to refer to column A of the "current" row you can use

Cells(Target.Row,"A")

Bye

 

[rjmdc]

great that worked!

 

[Anthony47]

Glad that we fixed it...