Judithdoek
Gebruiker
- Lid geworden
- 9 mrt 2021
- Berichten
- 70
In de bijlage een voorbeeld bestand met een probleem waar ik niet helemaal uit kom.
Ik wil graag dat wanneer bepaalde cellen niet zijn ingevoerd, dat de macro niet wordt uitgevoerd,
maar dat in plaats daarvan een foutmelding in beeld komt dat bepaalde gegevens nog niet zijn ingevoerd.
Ik zit zelf te denken aan de volgende code:
Probleem 1:
Probleem 2:Kan iemand mij helpen met deze 2 problemen?
Alvast bedankt!
Ik wil graag dat wanneer bepaalde cellen niet zijn ingevoerd, dat de macro niet wordt uitgevoerd,
maar dat in plaats daarvan een foutmelding in beeld komt dat bepaalde gegevens nog niet zijn ingevoerd.
Ik zit zelf te denken aan de volgende code:
Code:
Option Explicit
Sub Gegevens_opslaan()
ReDim ar(1 To 1, 1 To 5)
With Sheets("Invoerbestand test2")
'If .Cells(4, 4).Cells(4, 6).Cells(9, 2).Cells(9, 4).Value = "" Then 'Hier moet een code komen die een foutmelding geeft, waardoor de actie niet wordt uitgevoerd
'Else
If .Cells(4, 2).Value = "" Then .Cells(4, 2).Value = 0
ar(1, 1) = [Nummer]
ar(1, 2) = [Naam]
ar(1, 3) = [Afspraak]
ar(1, 4) = [Klant]
ar(1, 5) = [Datum]
.Cells(4, 2).Value = Year(Date) & "-" & Format(Int(Right(.Cells(4, 2).Value, 4)) + 1, "#0000")
End With
With Sheets("Overzicht afspraken test2")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, UBound(ar, 2)) = ar
End With
End Sub
Sub Cellen_leegmaken()
'If .Cells(4, 4).Cells(4, 6).Cells(9, 2).Cells(9, 4).Value = "" Then 'Hier moet een code komen die een foutmelding geeft, waardoor de actie niet wordt uitgevoerd
'Else
Range("D4").ClearContents
Range("F4").ClearContents
Range("B9").ClearContents
Range("D9").ClearContents
End Sub
Private Sub CommandButton1_Click()
Call Gegevens_opslaan
Call Cellen_leegmaken
End Sub
Probleem 1:
Ik weet alleen niet hoe ik er verder voor zorg dat de macro niet wordt uitgevoerd en hoe ik een melding in beeld krijg.
Probleem 2:
Daarnaast wil ik uiteindelijk ook dat op het blad Invoerbestand test2:
- Stel dat Naam (cel D4) is ingevoerd dan moet er een foutmelding komen wanneer Afspraak (cel F4) niet is ingevoerd.
- Stel dat Naam (cel D4) niet is ingevoerd dan hoeft er geen foutmelding te komen wanneer Afspraak (cel F4) niet is ingevoerd en kan de macro daaropvolgend gewoon uitgevoerd worden.
- Stel dat Naam (cel D4) is ingevoerd dan moet er een foutmelding komen wanneer Afspraak (cel F4) niet is ingevoerd.
- Stel dat Naam (cel D4) niet is ingevoerd dan hoeft er geen foutmelding te komen wanneer Afspraak (cel F4) niet is ingevoerd en kan de macro daaropvolgend gewoon uitgevoerd worden.
Alvast bedankt!