regel verbergen als cel g t/m P van huidige regel leeg is

[caffie]

Ik heb een sheet gemaakt

en wil regels verbergen

Als er op regel x in kolom g t/m P niets staat dan regel verbergen

start bij regel 6 en loopt t/m 372




vast bedankt

 

[Conseclusie]

Hang onderstaand Change-event onder het betreffende sheet:

Private Sub Worksheet_Change(ByVal Target As Range)
For Rij = 6 To 372
    If Application.WorksheetFunction.CountA(Range(Cells(Rij, 7), Cells(Rij, 16))) = 0 Then
        Rows(Rij).Hidden = True
        Else:
        Rows(Rij).Hidden = False
    End If
Next Rij
End Sub

 

[caffie]

thanks

ik heb meerdere sheets waar ik dit wil uitvoer

moet ik dan de code in elke sheet copieren??

nu run de macro als er iets aangepast wordt
kan ik de macro ook handmatig runnen?



m.v.g.


Rob

 

[Conseclusie]

Je kan de macro ook gewoon in een module zetten; deze wordt dan uitgevoerd in het actieve sheet:

Sub Test()
For Rij = 6 To 372
    If Application.WorksheetFunction.CountA(Range(Cells(Rij, 7), Cells(Rij, 16))) = 0 Then
        Rows(Rij).Hidden = True
        Else:
        Rows(Rij).Hidden = False
    End If
Next Rij
End Sub

 

[caffie]

thanks weer wat geleerd




bedankt

 

[edmoor]

Die : achter Else is overbodig.
En die If constructie is sowieso niet nodig:

For Rij = 6 To 372
    Rows(Rij).Hidden = Application.WorksheetFunction.CountA(Range(Cells(Rij, 7), Cells(Rij, 16))) = 0
Next Rij

 

[HSV]

Ik zou het flikkeren nog wel uitschakelen.

Sub hsv()
Application.ScreenUpdating = False
For rij = 6 To 372
    Rows(rij).Hidden = Application.CountA(Cells(rij, 7).Resize(, 10)) = 0
Next rij
End Sub

 

[caffie]

He slimme koppen

Allemaal bedankt voor de hulp

Werkt prima



mag ik nog wat vragen

binnne het gebied gebruik ik tekst en getallen
ik wil dus ook de tekst regels hidden hebben
zodat alleen de regels waarbij een getal in de kolom 7 t/m 16 wordt gebruikt zichtbaar blijft.

 

[HSV]

Verwijder de derde hoofdletter A.