Ga naar inhoud

sanneke863

Lid
  • Items

    1
  • Registratiedatum

  • Laatst bezocht

Alles dat geplaatst werd door sanneke863

  1. 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()
×
×
  • Nieuwe aanmaken...

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.