Groene velden niet ingevuld

[pjseynaeve]

Beste,


Heb een voorlopige macrocode (dankzij enkele onder jullie) en had deze graag nog een beetje uitgebreid.
Hieronder heb je een voorbeeld van de macrocode in kwestie.

Stel nu voor dat je 5 lege cellen hebt (Groen doordat er geen tekst ingevuld staat (voorwaardelijke opmaak regel))
Als ze het tabblad moeten wegschrijven, zou ik graag hebben dat de groene velden ingevuld zijn.
Zo niet zou er een foutmelding moeten komen.

Sub Macro1()
'
' Macro1 Macro
' Test
'
' Sneltoets: CTRL+SHIFT+J
'
Antwoord = MsgBox("Alle groene velden ingevuld?", vbYesNo, "Produktiekaart")
If Antwoord = vbNo Then Exit Sub
    
    With Sheets("Produktie pers 3")
        .Copy , Sheets(1)
        Sheets(2).Name = Format(.Range("b4"), "dd-mm-yyyy - h-mm") & " - " & .Range("D4")
                Application.Goto .Range("A13")
    Sheets("Produktie pers 3").Select
    Range("E7:F7").Select
    Selection.ClearContents
    Range("E8:F8").Select
    Selection.ClearContents
    Range("D4:E4").Select
    Selection.ClearContents
    Range("A13:O48").Select
    Selection.ClearContents
    Range("I4:K4").Select
    Selection.ClearContents
    Range("I5:K5").Select
    Selection.ClearContents
    Range("I6:K6").Select
    Selection.ClearContents
    Range("N5:O5").Select
    Selection.ClearContents
    Range("N4:O4").Select
    Selection.ClearContents
    Range("L8").Select
    Selection.ClearContents
    Range("L9").Select
    Selection.ClearContents
    Range("A13").Select
    MsgBox "Produktiekaart succesvol verplaatst"
    End With
        
End Sub

Bij vragen of problemen steeds bereikbaar

 

[VenA]

Gebruik eerst even de juiste tags. En een voorbeeldje is ook welkom.

 

[pjseynaeve]

velden niet ingevuld, file niet wegschrijven

Gevraagde file in bijlage

Bekijk bijlage Produktie persen.xlsm

 

[Cobbe]

Voldoet deze?

 

[pjseynaeve]

Lijkt er al een beetje op, maar geeft wel geen melding als de groene velden niet zijn ingevuld

 

[Cobbe]

Dan voeg je er toch gewoon een msgbox aan toe:

Sub Macro1()
'
' Macro1 Macro
' Test
'
' Sneltoets: CTRL+SHIFT+J
'
If WorksheetFunction.CountA(Range("Inputbereik")) < 10 Then
  MsgBox ("Niet alle velden ingevuld!!")
   Exit Sub
End If
    With Sheets("Produktie")
        .Copy , Sheets(1)
        Sheets(2).Name = Format(.Range("b4"), "dd-mm-yyyy - h-mm") & " - " & .Range("D4")
                Application.Goto .Range("A13")
    Sheets("Produktie").Range("E7:F8,D4:E4,A13:O48,I4:K6,N4:O5,L8:L9,A13").ClearContents
        MsgBox "Produktiekaart succesvol verplaatst"
    End With

End Sub

 

[pjseynaeve]

Is inderdaad beter met een MsgBox.
Macro werkt perfect.
Bedankt @ Cobbe


Vraag is opgelost