voorwaardelijke opmaak rij/kolom/niet geblokkeerde cel

[SUVERMO]

Goedenavond
In deze excel zijn er 3 macro's voor de voorwaardelijke opmaak van de geselecteerde rij plus/of kolom en van de niet geblokkeerde cellen.
Op de 3 bladen is de rode cel de end home cel bij het uitvoeren van de macro's, het bereik "Van toepassing op" is hierdoor bepaald.
Mag men een gedefinieerde naam (TotLaatsteCel) gebruiken voor het bereik "Van toepassing op"?

 

[SUVERMO]

Beste Forumleden

Volgende macro is gemaakt met Macro opnemen
met onderstaande toetsaanslagen

klik op A1, Start, voorwaardelijke opmaak, regels beheren
selecteer het bereik in het vak [van toepassing op]
klik op Formules, Gebruiken in formule, Namen plakken, TotLaatsteCel, OK, Toepassen, OK

het resultaat was

Sub BereikVoorwaardelijkeOpmaakAanpassen()
'
' BereikVoorwaardelijkeOpmaakAanpassen Macro
'

'
    Application.CutCopyMode = False
End Sub

Volgende macro is gemaakt met Macro opnemen
met onderstaande toetsaanslagen

klik op A1, Start, voorwaardelijke opmaak, regels beheren, regel verwijderen, Toepassen, OK

het resultaat was

Sub VoorwaardelijkeOpmaakVerwijderen()
'
' VoorwaardelijkeOpmaakVerwijderen Macro
'

'
End Sub

heeft er iemand tijd om de code's van de toesaanslagen toe te voegen in de opgenomen macro's

veel dank bij voorbaat

 

[SUVERMO]

Beste Forumleden

uiteindelijk is het gelukt

 

[miso1995]

Geen idee waarvoor je het wilt gebruiken, maar het is leuk bedacht.