Rij verbergen met een voorwaarden

[vio]

Hoi,
Ik ben op zoek naar een code die een rij kan verbergen als de waarde van een cel = getal
of de cel = "". Als die de waarde " * " zou diezelfde rij moeten blijven staan.

Als je dan bedenkt dat er 500 rijen zijn in een excell werkblad en je kunt enkel
de rijen met " * " eruit filteren dan heb je een heel deel werk bespaart.

Ik heb al in de forum gezocht maar na een uur zoeken geef ik het toch maar op en hoop dat "Wigi":thumb: of een andere superheld:shocked: in de buurt is.
Hoogachtend,
Vio

 

[Rommyke]

Hoi Vio ,

Met onderstaande code zou je er wel moeten geraken .

Function RowIsEmpty(n As Double) As Boolean 
If Cells(n, 1).Value = "" And Cells(n, 1).End(xlToRight).Value = "" Then _ 
   RowIsEmpty = True Else RowIsEmpty = False 
End Function

Sub HideEmptyRows() 
Dim tableEnd As Double 
Dim m As Double 
 
'tableEnd is set to the last row in the spreadsheet. 
'work backwards from the last row upwards and hide the row if it is empty. 

tableEnd = Range("a1").SpecialCells(xlCellTypeLastCell).Row 
For m = tableEnd To 1 Step -1 
   If RowIsEmpty(m) Then Cells(m, 1).EntireRow.Hidden = True 
Next m 

End Sub

Groetjes
Romain

 

[vio]

Re: op je antwoord

Romain,
Vooreerst:'Bedankt dat je al meedenkt'

Ik ga de vraag even anders stellen:
Stel dat in vak A1= "1"
A2="*"
A3=""
Dan zou ik graag met een besturingsknop enkel de rij willen zien die het sterretje heeft in A2

Hoogachtend Vio

 

[Jan van Asseldonk]

Kijk eens bij de mogelijkheden van autofilter. (Data, Filter, Autofilter.)

 

[Rommyke]

Romain,
Vooreerst:'Bedankt dat je al meedenkt'

Ik ga de vraag even anders stellen:
Stel dat in vak A1= "1"
A2="*"
A3=""
Dan zou ik graag met een besturingsknop enkel de rij willen zien die het sterretje heeft in A2

Hoogachtend Vio

Probeer het volgende eens

Function RowIsEmpty(n As Double) As Boolean
If Cells(n, 1).Value <> "*" And Cells(n, 1).End(xlToRight).Value <> "*" Then _
   RowIsEmpty = True Else RowIsEmpty = False
End Function

Hier blijft enkel de rij staan waar er zich een sterretje bevindt.

Groetjes

Romain

 

[Wigi]

Waarom geen Autofilter zoals Jan al aangaf? (Al dan niet geprogrammeerd)

 

[Rommyke]

Waarom geen Autofilter zoals Jan al aangaf? (Al dan niet geprogrameerd)

Wigi, in bijlage een voorbeeld van een geprogrammeerde autofilter.

Maar vermits Vio gebruik maakt van het sterretje om op te selecteren gaat dit bij het programmeren bij mij natuurlijk mis.
In het voorbeeld is "*" vervangen door "X" waarbij het wel werkt natuurlijk.
Daarom maakte ik ook gebruik van vorige macro's .

Groetjes
Romain

 

[Wigi]

Hoi Romain

Een handigheidje:

Criteria1:="[B]~[/B]*"

Mijn vraag waarom Autofilter niet gebruikt werd, was overigens aan de vraagsteller gericht, niet aan jou. Maar wel bedankt voor de moeite.

Wigi

 

[Rommyke]

Hoi Romain

Een handigheidje:

Criteria1:="[B]~[/B]*"

Thanks Wigi , weer iets bijgeleerd


Vio , met de tip van Wigi moet je nu wel op beide manieren geraken denk ik


Groetjes
Romain

 

[vio]

Okè

Super bedankt Wigi en Rommyke,
Op deze manier kan ik een verslag waar doelstellingen genummerd zijn ordenen. Wat dan onder het sterretje valt kan dan dienen voor een dagboekje.
Nogmaals bedankt,
Vio

 

[Wigi]

Graag gedaan.

Deze vraag mag nog op opgelost komen aub.