Voorwaarde voor versturen staat in 4 cellen

[DZP]

Ik heb wederom een vraagje?

Ik heb een bestand met een macro om een sheet te versturen via Outlook, maar:

Nu wil ik graag dat er eerst naar 4 cellen wordt gekeken of die ingevuld zijn voordat de (macro verder loopt) sheet wordt verstuurd. Als er in één van die cellen niets is ingevuld mag hij het bestand dus niet versturen.

(De bijlage is opgenomen dus dat is niet al te mooi, maar het werkt wel).

 

[Ginger]

DZP, begin je Sub's met deze regel...

  If WorksheetFunction.CountA(Range("H3,H6,H9,H12")) < 4 Then Exit Sub

...en de code loopt niet door als niet alle cellen gevuld zijn...

Groet, Leo

 

[DZP]

Oké, dat werkt perfect, maar kun je er ook nog een msgbox aanhangen waarin staat dat niet alle rode vlakken zijn ingevuld! (omdat hij nu direct naar ExitSub gaat).
Zie bijlage!

 

[ReneDirks]

Zonder te kijken, dus wel even testen:

If WorksheetFunction.CountA(Range("H3,H6,H9,H12")) < 4 Then 
  msgbox "blahblah"
  Exit Sub
end if

 

[DZP]

Merci, dat werkt ook! V:thumb: