Automatisch verborgen rijen toevoegen

Status
Niet open voor verdere reacties.
Zet dit er maar in.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C15:E309", "C358:E652")) Is Nothing And Target.Count = 1 Then
   Unprotect
  Application.EnableEvents = False
  Range(Target.Address).Offset(1).EntireRow.Hidden = Target = ""
  Application.EnableEvents = True
  Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
End If
End Sub
 
werkt prima :thumb:

Heb je ook kunnen kijken naar mijn voorwaardelijke opmaak en sorteren ?
voorwaardelijke opmaak GROEN ROOD werkt zoals het moet
ook bij het sorteren is naar mijn inziens de code juist, en toch doet ie het niet
 
Ik kan nergens een sorteercode ontdekken.
 
ik had dat geprobeerd via het lint "gegevens" en dan via "sorteren" en dan op kleur

zoals je kan zien op de foto ?

Of moeten we hier ook een code voor schrijven ?
dacht als de sorteerfunctie was ingeschakeld, dat het zo ook wel zo werken, maar dus verkeerd gedacht, en weer niety zo simpel :rolleyes:
sorteren.JPG
 
Sorteer op de rode kleur bovenaan.
Waarom groen niet lukt weet ik niet.
 
HSV zei:
Sorteer op de rode kleur bovenaan.
Waarom groen niet lukt weet ik niet.
Klik om te vergroten...

Heb hier al vanalles geprobeerd, en idd de rode kleur bovenaan werkt dan WEL, als we dan omwisselen naar GROEN, doet hij het niet meer ....
 
Zonder vw-opmaak en de cellen kleuren werkt perfect.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan