Verplichte cellen in tab1 ook verplicht in andere tabbladen

[wimix69]

Hoe krijg ik de macro werkend voor de ander 2 tabbladen?

 

[JEC.]

Haal deze regel eens weg

Sheets("Tab1").Activate

 

[wimix69]

Dit werkt maar er zijn nog meer ander tabbladen waar de macro niet voor bedoeld is Ermoet alleen gecontroleerd worden in Rood wit blauw oranje zwart

 

[HSV]

For each sh in array("rood","geel","paars",..........)

 

[wimix69]

Bedoel je dan dit?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For each sh in array("Tab1","ge","paars",..........).Activate
If Range("F212") <> "" And Range("F215") <> "" Then
cellen = Split("F184 J184 M184 F186 J186 M186 Z212 AG212 Z215 AG215 F218 O218 J220 O220 J222 O222 AB221 J223")
For i = 0 To UBound(cellen)
If Range(cellen(i)) = "" Then
Select Case Range(cellen(i)).Address(0, 0)
Case "F184": MsgBox "Sterkte rechts niet ingevuld", vbCritical, "Verplichte cel"
Case "J184": MsgBox "Sterkte links niet ingevuld", vbCritical, "Verplichte cel"
End Select

Cancel = True
Exit For
End If
Next i
End If
End Sub

 

[HSV]

Nee, zo:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    For Each sht In Array("rood", "wit", "blauw", "oranje", "zwart")
    Set sh = Sheets(sht)
    If sh.Range("F210") <> "" And sh.Range("F213") <> "" Then
        Cellen = Split("F184 J184 M184 F186 J186 M186 Z212 AG212 Z215 AG215 F218 O218 J220 O220 J222 O222 AB221 J223")
        For i = 0 To UBound(Cellen)
            If sh.Range(Cellen(i)) = "" Then
                Select Case Cellen(i)
                    Case "F184": MsgBox "Sterkte rechts niet ingevuld", vbCritical, "Verplichte cel"
                    Case "J184": MsgBox "Sterkte links niet ingevuld", vbCritical, "Verplichte cel"
                End Select
                
                Cancel = True
               Exit For
            End If
        Next i
    End If
  Next sht
End Sub

Ps. Verder nergens op gecontroleerd.

 

[wimix69]

Hij geeft nu een fout melding

 

[HSV]

Spaties