Hallo,
Ik heb een code gemaakt voor een bestand, waarbij je ook een button gebruikt om vanuit excel een mail klaar te zetten.
Wanneer in cel B7 en verder een nummer is ingevuld en je gebruikt de button dan volgt er een foutmelding waarin stond dat cel E7 ook gevuld moest zijn. Wanneer cel E7 is gevuld en kan de button gebruikt worden. Deze code werkt voor alle regels waarbij in kolom b een cel is gevuld.
Nu wil ik deze code gebruiken voor een ander bestand maar dan moeten er meerdere cellen verplicht worden ingevuld. Ik heb het getest met 1 verplichte cel. Maar wanneer ik deze leeg laat volgt er geen foutmelding. Zie hieronder de code.
Hopelijk kan iemand mij verder helpen.
Sub Spaarie()
With Sheets(1)
For Each v In .Range("B12:B" & .Range("B" & Rows.Count).End(xlUp).Row)
If v.Value <> "" And v.Offset(, 2).Value = "" Then MsgBox "Cel " & v.Offset(, 2).Address & " is leeg.", vbOKOnly + vbInformation, "Let op!": Exit Sub
Next
strbody = "<BODY style=font-size:11pt;font-family:Calibri>Hallo collegae," & "<br>" & "<br>" & "Zie de bijlage voor de te verwerken dc artikelmutaties." & "<br>" & "<br>" & "Graag een reactie wanneer de lijst is verwerkt." & "<br>" & "<br>" & "Alvast bedankt."
With CreateObject("Outlook.Application").CreateItem(0)
.Display
.To = "IAMsupport@sligro.nl"
.Subject = "DC artikelmutaties"
.HTMLBody = strbody & .HTMLBody
.Attachments.Add ActiveWorkbook.FullName
.Display 'of Send
End With
End With
End Sub
Ik heb een code gemaakt voor een bestand, waarbij je ook een button gebruikt om vanuit excel een mail klaar te zetten.
Wanneer in cel B7 en verder een nummer is ingevuld en je gebruikt de button dan volgt er een foutmelding waarin stond dat cel E7 ook gevuld moest zijn. Wanneer cel E7 is gevuld en kan de button gebruikt worden. Deze code werkt voor alle regels waarbij in kolom b een cel is gevuld.
Nu wil ik deze code gebruiken voor een ander bestand maar dan moeten er meerdere cellen verplicht worden ingevuld. Ik heb het getest met 1 verplichte cel. Maar wanneer ik deze leeg laat volgt er geen foutmelding. Zie hieronder de code.
Hopelijk kan iemand mij verder helpen.
Sub Spaarie()
With Sheets(1)
For Each v In .Range("B12:B" & .Range("B" & Rows.Count).End(xlUp).Row)
If v.Value <> "" And v.Offset(, 2).Value = "" Then MsgBox "Cel " & v.Offset(, 2).Address & " is leeg.", vbOKOnly + vbInformation, "Let op!": Exit Sub
Next
strbody = "<BODY style=font-size:11pt;font-family:Calibri>Hallo collegae," & "<br>" & "<br>" & "Zie de bijlage voor de te verwerken dc artikelmutaties." & "<br>" & "<br>" & "Graag een reactie wanneer de lijst is verwerkt." & "<br>" & "<br>" & "Alvast bedankt."
With CreateObject("Outlook.Application").CreateItem(0)
.Display
.To = "IAMsupport@sligro.nl"
.Subject = "DC artikelmutaties"
.HTMLBody = strbody & .HTMLBody
.Attachments.Add ActiveWorkbook.FullName
.Display 'of Send
End With
End With
End Sub