verbergen van rijen

[longron]

Beste alle,

ik wil aan de hand van de inhoud van cellen de rijen tonen en de andere rijen verbergen.

als de inhoud van de cel begint met een " P " dan moet de rij getoond worden en de andere rijen moeten verborgen worden.


____________________________________________________
Sub test()


Rows("1:20").Hidden = True
Range("A1").Select
test1:
x = x + 1: If x = 40 Then GoTo end_Test

Celinhoud = ActiveCell.Value
MsgBox Celinhoud
MsgBox Left(Celinhoud, 1)
If Left(Celinhoud, 1) = "P" Then Rows(ActiveCell.Offset(0, 0).Range("A1").Select).Hidden = False
ActiveCell.Offset(1, 0).Range("A1").Select

GoTo test1
end_Test:

End Sub
_________________________________________________________



Zie voorbeeld

Graag jullie advies

Ronald

 

[SjonR]

zoiets?

For i = 1 To 20
    If Left(Cells(i, 1), 1) = "P" Then
        Rows(i).Hidden = False
    Else
        Rows(i).Hidden = True
    End If
Next

 

[edmoor]

Of:

For i = 1 To 20
    Rows(i).Hidden = Left(Cells(i, 1), 1) <> "P"
Next

 

[longron]

Geniaal,

Thanks beide.

groetjes
Ronald

 

[edmoor]

Overigens is beginnen met " P " iets anders dan beginnen met "P".

 

[VenA]

Om iets meer aan de vraag te voldoen zou ik het geavanceerde filter gebruiken. Toets in C1 de beginletter en de rijen worden verborgen. De formule die bepaalt of iets aan de voorwaarde voldoet staat in Z2. (Kan ook in de code opgenomen worden maar lijkt mij onzinnig)
Tips. Gebruik altijd kolomkoppen en het filter ipv trage lusjes. En gebruik codetags als je je code plaatst.

 

[longron]

Helemaal mee eens een P is geen p

echter kom ik er niet met de oplossing van VenA. maar dat kan liggen aan het feit dat hier office 2010 draait. Krijg een foutmelding dat methode van showalldate is mislukt.

De oplossing van Edmoor werkt prima. Echter ben ik niet geheel volledig geweest.

Ik wil het doen vanuit VBA omdat het een menugestuurd verhaal is. en dan is het mooier als de gebruiker niet zelf een letter in een cel hoeft te plaatsen.

eigenlijk gebruik ik verschillende routines.
Een om te sorteren op de letter P, en een op de letter A.
echter wil ik ook kunnen sorteren op de letter A en Letter M.
Dit lukt met de routine van SjonR

Ik hoor graag van jullie.

groetjes
Ronald

 

[VenA]

Een representatief voorbeeld en de vraag in 1 keer goed stellen was niet in je opgekomen? Ook in XL-2010 werkt showalldata

 

[longron]

Je hebt gelijk. Had ik moeten doen.

Ik heb je voorbeeld gewoon getest en kreeg daarbij de fout.

Groetjes
Ronald