Macro starten bij invullen cel

[Meaurk]

Als ik in kolom 11 (K) een cel leeg maak, krijg ik de melding "De order kan niet eerder afgewerkt worden voordat de Summary List gecontroleerd is met de Traceability List." dat is eigenlijk niet de bedoeling. De rest werkt correct.

 

[Cobbe]

Ja sorry kleine vegissing:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  
 Application.EnableEvents = False
  If Not Intersect(Target, Columns(9)) Is Nothing Then
     If Not IsEmpty(Target) = True And Not UCase(Target.Offset(, 1)) = "X" Then
         Target = IIf(MsgBox("Zorg dat de Traceability List aanwezig is voordat de eindafname plaatsvindt!", vbInformation, "Confirmatie") = vbYes, Target.Value, Target.Value)
     End If
  End If
  If Not Intersect(Target, Columns(11)) Is Nothing Then
    If Not IsEmpty(Target) And Not UCase(Target.Offset(, -1)) = "X" Then
            Target = IIf(MsgBox("Is de Summary List gecontroleerd met de Traceability List?", vbInformation + vbYesNo, "Confirmatie") = vbYes, Target.Value, "")
    If IsEmpty(Target) Then MsgBox ("De order kan niet eerder afgewerkt worden voordat de Summary List gecontroleerd is met de Traceability List.")
    End If
   End If
 Application.EnableEvents = True

End Sub

 

[Meaurk]

Ik krijg alsnog de foutmelding met dezelfde lijn.

 

[Cobbe]

Dan kan je toch kolom K uitsluiten van deze regel:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  
 Application.EnableEvents = False
  If Not Intersect(Target, Columns(9)) Is Nothing Then
     If Not IsEmpty(Target) = True And Not UCase(Target.Offset(, 1)) = "X" Then
         Target = IIf(MsgBox("Zorg dat de Traceability List aanwezig is voordat de eindafname plaatsvindt!", vbInformation, "Confirmatie") = vbYes, Target.Value, Target.Value)
     End If
  End If
  If Not Intersect(Target, Columns(11)) Is Nothing Then
    If Not IsEmpty(Target) And Not UCase(Target.Offset(, -1)) = "X" Then
            Target = IIf(MsgBox("Is de Summary List gecontroleerd met de Traceability List?", vbInformation + vbYesNo, "Confirmatie") = vbYes, Target.Value, "")
    If IsEmpty(Target) And [COLOR="#FF0000"]Not (Target.Columns) = 11 [/COLOR]Then MsgBox ("De order kan niet eerder afgewerkt worden voordat de Summary List gecontroleerd is met de Traceability List.")
    End If
   End If
 Application.EnableEvents = True

End Sub

 

[Meaurk]

Ik bedoel niet de "De order kan niet eerder afgewerkt worden voordat de Summary List gecontroleerd is met de Traceability List." melding, maar de volgende melding:

Fout 1004 tijdens uitvoering:
Door de toepassing of door object gedifinieerde fout

Als ik van blad 1 een rij kopieer naar blad 2 (in blad 2 staat de vba) krijg ik deze melding. Als ik op 'foutopsporing' klik arceert hij de regel " If Not IsEmpty(Target) And Not UCase(Target.Offset(, -1)) = "X" Then" in VBA.

 

[Cobbe]

Meaurk
Als ik in kolom 11 (K) een cel leeg maak, krijg ik de melding "De order kan niet eerder afgewerkt worden voordat de Summary List gecontroleerd is met de Traceability List." dat is eigenlijk niet de bedoeling. De rest werkt correct.

Dat was nochtans uw antwoord/vraag in post #21

En als je gaat copy/pasten in uw bestand zal er nog wel meer mislopen.

 

[Meaurk]

Is dat 'foutlopen' ook tegen te gaan?

 

[Cobbe]

Ja natuurlijk kan je dat ondervangen maar of dat het beste is weet ik van hieruit niet:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 [COLOR="#FF0000"]On Error GoTo Afsluiten[/COLOR]
 Application.EnableEvents = False
  If Not Intersect(Target, Columns(9)) Is Nothing Then
     If Not IsEmpty(Target) = True And Not UCase(Target.Offset(, 1)) = "X" Then
         Target = IIf(MsgBox("Zorg dat de Traceability List aanwezig is voordat de eindafname plaatsvindt!", vbInformation, "Confirmatie") = vbYes, Target.Value, Target.Value)
     End If
  End If
  If Not Intersect(Target, Columns(11)) Is Nothing Then
    If Not IsEmpty(Target) And Not UCase(Target.Offset(, -1)) = "X" Then
            Target = IIf(MsgBox("Is de Summary List gecontroleerd met de Traceability List?", vbInformation + vbYesNo, "Confirmatie") = vbYes, Target.Value, "")
    If IsEmpty(Target) And Not (Target.Columns) = 11 Then MsgBox ("De order kan niet eerder afgewerkt worden voordat de Summary List gecontroleerd is met de Traceability List.")
    End If
   End If
[COLOR="#FF0000"]Afsluiten:[/COLOR]
 Application.EnableEvents = True

End Sub