Ben een excel lijst aan het maken voor dienstrooster, doch loop ik nog op 1 punt vast.
Wat is wel gelukt:
De regels toevoegen en verwijderen lukt. Afhankelijk of het week of dag planning is
De handelingen zijn nu ook beveiligd op dubbel uitvoer. 2x Ja of 2x Nee achter elkaar lukt niet.
Blijft het enige punt open staan. Dat ik deze macro's/formules voor meerdere regels kan gebruiken.
Het probleem wat ik heb, is als er regels toegevoegd worden. Dat dan alle cel verwijzingen niet meer kloppen in de macro.
Iemand een oplossing hiervoor?
Dit is wat ik er nu van gemaakt heb. Mogelijk volg ik niet precies alle excel regels. Of zijn er manieren om de formule kleiner te maken.
Maar ik ben al blij dat het werkt. (zie bijvoorbeeld de extra regels die ik gekopieerd heb, om meerdere regels toe te voegen).
[CPP]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G5:G5")) Is Nothing Then
If Range("BP4").Value <= 0 Then
If Cells(5, 7) = "Ja" Then
Range("I5:L5").Select
Selection.Delete Shift:=xlUp
Rows("6:11").Select
Selection.Delete Shift:=xlUp
Cells(5, 9) = "ZIE PAVILJOEN ROOSTER"
Cells(5, 11) = ""
Cells(4, 68) = "1"
End If
Else
If Cells(5, 7) = "Nee" Then
Rows(Target.Row + 1).Insert
Rows(Target.Row + 1).Insert
Rows(Target.Row + 1).Insert
Rows(Target.Row + 1).Insert
Rows(Target.Row + 1).Insert
Rows(Target.Row + 1).Insert
Cells(5, 9) = "MAANDAG"
Cells(6, 9) = "DINSDAG"
Cells(7, 9) = "WOENSDAG"
Cells(8, 9) = "DONDERDAG"
Cells(9, 9) = "VRIJDAG"
Cells(10, 9) = "ZATERDAG"
Cells(11, 9) = "ZONDAG"
Cells(5, 11) = "DINSDAG"
Cells(6, 11) = "WOENSDAG"
Cells(7, 11) = "DONDERDAG"
Cells(8, 11) = "VRIJDAG"
Cells(9, 11) = "ZATERDAG"
Cells(10, 11) = "ZONDAG"
Cells(11, 11) = "MAANDAG"
Cells(4, 68) = "0"
End If
End If
End If
End Sub [/CPP]
Let niet op de CPP code die ik gebruikt heb om de macro in een menu te krijgen.
Geen idee hoe jullie dat doen, maar dit lijkt er redelijk op
Wat is wel gelukt:
De regels toevoegen en verwijderen lukt. Afhankelijk of het week of dag planning is
De handelingen zijn nu ook beveiligd op dubbel uitvoer. 2x Ja of 2x Nee achter elkaar lukt niet.
Blijft het enige punt open staan. Dat ik deze macro's/formules voor meerdere regels kan gebruiken.
Het probleem wat ik heb, is als er regels toegevoegd worden. Dat dan alle cel verwijzingen niet meer kloppen in de macro.
Iemand een oplossing hiervoor?
Dit is wat ik er nu van gemaakt heb. Mogelijk volg ik niet precies alle excel regels. Of zijn er manieren om de formule kleiner te maken.
Maar ik ben al blij dat het werkt. (zie bijvoorbeeld de extra regels die ik gekopieerd heb, om meerdere regels toe te voegen).
[CPP]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G5:G5")) Is Nothing Then
If Range("BP4").Value <= 0 Then
If Cells(5, 7) = "Ja" Then
Range("I5:L5").Select
Selection.Delete Shift:=xlUp
Rows("6:11").Select
Selection.Delete Shift:=xlUp
Cells(5, 9) = "ZIE PAVILJOEN ROOSTER"
Cells(5, 11) = ""
Cells(4, 68) = "1"
End If
Else
If Cells(5, 7) = "Nee" Then
Rows(Target.Row + 1).Insert
Rows(Target.Row + 1).Insert
Rows(Target.Row + 1).Insert
Rows(Target.Row + 1).Insert
Rows(Target.Row + 1).Insert
Rows(Target.Row + 1).Insert
Cells(5, 9) = "MAANDAG"
Cells(6, 9) = "DINSDAG"
Cells(7, 9) = "WOENSDAG"
Cells(8, 9) = "DONDERDAG"
Cells(9, 9) = "VRIJDAG"
Cells(10, 9) = "ZATERDAG"
Cells(11, 9) = "ZONDAG"
Cells(5, 11) = "DINSDAG"
Cells(6, 11) = "WOENSDAG"
Cells(7, 11) = "DONDERDAG"
Cells(8, 11) = "VRIJDAG"
Cells(9, 11) = "ZATERDAG"
Cells(10, 11) = "ZONDAG"
Cells(11, 11) = "MAANDAG"
Cells(4, 68) = "0"
End If
End If
End If
End Sub [/CPP]
Let niet op de CPP code die ik gebruikt heb om de macro in een menu te krijgen.
Geen idee hoe jullie dat doen, maar dit lijkt er redelijk op
Laatst bewerkt:
