Nu door loop ik alle shapes op het het active werkblad.
En kijk ik of er een intersect is met het geselecteerde bereik.
Maar mijn vraag is zou ik de for each shap in kunnen wijzigen niet naar het active werkblad maar naar het geselecteerde bereik
En kijk ik of er een intersect is met het geselecteerde bereik.
Maar mijn vraag is zou ik de for each shap in kunnen wijzigen niet naar het active werkblad maar naar het geselecteerde bereik
Code:
For Each shp In ActiveSheet.Shapes
If Not Application.Intersect(shp.TopLeftCell, ActiveSheet.Range(RngVerlofBereik.Address)) Is Nothing And shp.Type <> msoComment Then
StrVerLofCodeKeuze = shp.TextFrame.Characters.text
IntVerlofcodeRij = OpzoekenAfwezigheidsCodeRij(StrVerLofCodeKeuze)
If IntVerlofcodeRij > 0 Then
If InStr(1, StrVerLofCodeKeuze, "voormiddag", 1) Then
Worksheets("Datablad").Range("c" & IntVerlofcodeRij) = Worksheets("Datablad").Range("c" & IntVerlofcodeRij).Value - 0.5
shp.Delete 'verwijderen van het geselecteerde symbool
ElseIf InStr(1, StrVerLofCodeKeuze, "namiddag", 1) Then
Worksheets("Datablad").Range("c" & IntVerlofcodeRij) = Worksheets("Datablad").Range("c" & IntVerlofcodeRij).Value - 0.5
shp.Delete 'verwijderen van het geselecteerde symbool
Else
Worksheets("Datablad").Range("c" & IntVerlofcodeRij) = Worksheets("Datablad").Range("c" & IntVerlofcodeRij).Value - 1
shp.Delete 'verwijderen van het geselecteerde symbool
End If
End If
End If
Next shp