Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers sinds 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

Vriendelijk verzoek: whitelist www.pc-helpforum.be in je adblocker.

Beste bezoeker. Je ziet deze tekst omdat een adblocker, plugin of andere software onze advertenties blokkeert. PC Helpforum helpt jaarlijks gratis duizenden mensen met computerproblemen. Deze website en server kunnen we enkel onderhouden dankzij de inkomsten uit advertenties. Vandaar een vriendelijk verzoek: whitelist onze site zodat we jullie gratis verder kunnen helpen. Klik hier om te lezen waarom en hoe je kunt whitelisten.



sanneke863

Probleem VBA

    Aanbevolen berichten

    Hallo,

     

    Voor de eerste maal zijn we VBA aan het gebruiken voor een gegevensdocument. De bedoeling is dat wanneer iemand in kolom G iets invult, je ook verplicht bent om in H en I iets in te vullen.

    We werken hier met een gegevenstabel. We willen meldingen bij het afsluiten van het document, als er dingen niet ingevuld zijn.

    Het volgende hebben we al, maar probleem is dat dit enkel toegepast wordt op 1 rij, en we willen dit op de gehele tabel. Kan iemand eens een kijkje nemen aub? ALvast bedankt!

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As Boolean)

    Dim G6 As Integer

    Dim H6 As Integer

    Dim I6 As Integer

     

    G = Range("G6", "G7", "G8", "G9", "G10", "G11", "G12", "G13", "G14", "G15", "G16", "G17", "G18", "G19", "G20", "G21", "G22", "G23", "G24", "G25", "G26", "G27", "G28", "G29", "G30", "G31", "G32", "G33", "G34", "G35", "G36", "G37", "G38", "G39", "G40", "G40", "G41", "G42").Value

    H = Range("H6", "H7", "H8", "H9", "H10", "H11", "H12", "H13", "H14", "H15", "H16", "H17", "H18", "H19", "H20", "H21", "H22", "H23", "H24", "H25", "H26", "H27", "H28", "H29", "H30", "H31", "H32", "H33", "H34", "H35", "H36", "H37", "H38", "H39", "H40", "H40", "H41", "H42").Value

    I = Range("I6").Value

     

     

     

     

    If G > "" And H = "" And I > "" Then

    MsgBox ("Bij het invullen van doorfactureren moet u de kolom 'Naam patient' ook invullen")

    End If

     

    If G > "" And H > "" And I = "" Then

    MsgBox ("Bij het invullen van doorfactureren moet u de kolom 'Periode betalingsverbintenis' ook invullen")

    End If

     

    If G > "" And H = "" And I = "" Then

    MsgBox ("Bij het invullen van doorfactureren moet u de kolommen 'Naam patient' en 'Periode betalingsverbintenis' ook invullen")

    End If

     

    If G = "" And H > "" And I > "" Then

    MsgBox ("Bij het invullen van de kolommen 'Naam patient' en 'Periode betalingsverbintenis' moet u de kolom 'Doorfactureren aan' ook invullen")

    End If

     

    If G = "" And H > "" And I = "" Then

    MsgBox ("Bij het invullen van de kolom 'Naam patient' moet u de kolommen 'Doorfactureren aan' en 'Periode betalingsverbintenis' ook invullen")

    End If

     

    If G = "" And H = "" And I > "" Then

    MsgBox ("Bij het invullen van de kolom 'Periode betalingsverbintenis' moet u de kolommen 'Doorfactureren aan' en 'Naam patient' ook invullen")

    End If

    End Sub

     

    Private Sub Workbook_Open()

     

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    Gast

    Post eens een gelijkend voorbeeld bestand, nu valt er niets over te zeggen behalve wat doet Private Sub Workbook_Open()  onderaan uw code, cellen declareren is ook iets nieuws onder de zon en het bepalen van uw ranges klopt ook al niet.

    Maar als ik je vraag zo lees, maak gebruik van een userform met verplicht in te vullen velden.

    Met een vb bestandje maak ik wel een voorzet.

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    Logo

    OVER ONS

    PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

    ×

    Belangrijke informatie

    We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.