Als rookie met VBA krijg ik het niet voor elkaar om mijn macro te laten controleren of een bepaalde verplichte cel is gevuld ja of nee, vóórdat de sheet per mail wordt verzonden. Code voor verzending van de mail is heel simpel (lang leve Google):
Sub Afleverformulier()
c01 = "<table border=1 bgcolor=#FFFFF0#>"
sn = Sheets("Afleverformulier").UsedRange
For j = 1 To UBound(sn)
c01 = c01 & "<tr><td>" & Join(Application.Index(sn, j), "</td><td>") & "</td></tr>"
Next
c01 = c01 & "</table><P></P><P></P>"
With CreateObject("outlook.application").CreateItem(0)
.To = " <e-mailadres>"
.Subject = "Afleverformulier"
.HTMLBody = c01
.Send
End With
End Sub
Ergens hier tussen zou ik graag het volgende willen:
If .Cells (12, 2)="" Then
'MsgBox "blah blah blah"
Application.goto .Cells (12, 2)
End If
Continue krijg ik de melding dat de foutopsporing niet werkt of dat er een End With wordt verwacht en dan markeert hij mijn Sub.
Iemand tips?
Sub Afleverformulier()
c01 = "<table border=1 bgcolor=#FFFFF0#>"
sn = Sheets("Afleverformulier").UsedRange
For j = 1 To UBound(sn)
c01 = c01 & "<tr><td>" & Join(Application.Index(sn, j), "</td><td>") & "</td></tr>"
Next
c01 = c01 & "</table><P></P><P></P>"
With CreateObject("outlook.application").CreateItem(0)
.To = " <e-mailadres>"
.Subject = "Afleverformulier"
.HTMLBody = c01
.Send
End With
End Sub
Ergens hier tussen zou ik graag het volgende willen:
If .Cells (12, 2)="" Then
'MsgBox "blah blah blah"
Application.goto .Cells (12, 2)
End If
Continue krijg ik de melding dat de foutopsporing niet werkt of dat er een End With wordt verwacht en dan markeert hij mijn Sub.
Iemand tips?