VBA Code, Cel verplicht invullen op basis van andere cel.

[jjmermen]

Ik heb onderstaande VBA code.
Nu wil ik graag dat cell.Offset niet alleen naar 111 kijkt maar ook naar 4.
Ook zou ik dan graag een aparte MsgBox melding hebben voor cell.Ofset(, 4)
Is dit te combineren in één VBA code?

P.S. zie ook mijn eerdere post https://www.helpmij.nl/forum/showthread.php/947381-VBA-code-met-Msgbox-Cel-verplicht-invullen-op-basis-van-andere-cel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each cell In Sheets("Items").Range("a12:a40")  
If cell <> "" And cell.Offset(, 111) = "" Then     
MsgBox "Productgroep 1 moet ingevuld zijn"  
Cancel = True                                                            
End If                                                                   
Next                                                                     
End Sub

Groeten,
Jack

 

[JEC.]

Zet onder de msgbox nog een if statement maar dan je gewenste offset. Daaronder een andere msgbox.

 

[cow18]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   For Each cell In Sheets("Items").Range("a12:a40")
      If cell <> "" Then                         'bepaalde A-cel is niet leeg
         If cell.Offset(, 111) = "" Then         '111 kolommen verder wel leeg
            MsgBox "Productgroep 1 moet ingevuld zijn in rij " & cell.Row
            Cancel = True
            Exit For
         ElseIf cell.Offset(, 4) = "" Then       '4 kolommen verder wel leeg
            MsgBox "Andere groep  moet ingevuld zijn in rij " & cell.Row
            Cancel = True
            Exit For
         End If
      End If
   Next
End Sub

 

[jjmermen]

Dank jullie wel. Dit werkt perfect.