Rijen verbergen als?

[ExcelNoob]

Hey,

Ik heb een vraag mbt het verbergen van rijen. Ik wil graag de gehele rij verbergen als de cel in kolom U ingevuld wordt. Kan dat mbv een macro?

Mvg,

ExcelNoob

 

[Haaren101]

Probeer dit eens;

    Columns("H:H").EntireColumn.Hidden = True

En voor een rij:

    Columns("11:11").EntireRow.Hidden = True

Ron

 

[ExcelNoob]

Probeer dit eens;

    Columns("H:H").EntireColumn.Hidden = True

Ron

Ik wil rijen verbergen hea... geen kolommen En ik wil er een voorwaarde aan koppelen.
dus ALS U2 wordt ingevuld dan moet hij de gehele rij 2 verbergen....

 

[Haaren101]

Zie de aanpassing

ALS (Cell(11,11).value <> "";Rows("11:11").EntireRow.Hidden = True)

Ron

 

[ExcelNoob]

Volgens mij kan dat niet werken. Je kunt toch geen ALS gebruiken in een VBA code, dat moet in ieder geval IF zijn en daarbij moet ook nog END IF vermeld worden. <>"" werkt volgens ook niet in VBA..Ik waardeer je hulp, maar dit kan volgens mij niet werken.

 

[Haaren101]

Het was kennelijk moeilijk wakker worden vanochtend. Maar hoe is deze:

Sub HideRow()

    ThisRow = 11  'voor de test
    ThisColumn = 21 'kolom U

    If Cells(ThisRow, ThisColumn).Value <> "" Then
        Rows(ThisRow).EntireRow.Hidden = True
    End If
    
End Sub

 

[CorVerm]

Zet deze code onder het betreffende werkblad:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 21 And Target > "" Then
Rows(2).Hidden = True
End If
End Sub

 

[ExcelNoob]

@Ron: Hij doet het niet, hij geeft geen fout maar doet ook niets??

 

[ExcelNoob]

Die doet het wel:thumb: , maar hoe moet ik hem aanpassen voor elke cel in kolom U??

 

[ExcelNoob]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 18 And Target > "" Then
Target.EntireRow.Hidden = True
End If
End Sub

Ik heb nu dit... Maar als ik dan in het blad aan het werk ben krijg vaak een foutmelding. Klopt er iets niet aan de code? Hij verbergt de hele rij wel.

 

[Haaren101]

@Cor,

Leuke oplossing, leer ik ook weer wat van. :thumb:

Maar hij werkt 1 keer en dan negeert hij de veranderingen in de kolom. Als je meerdere rijen selecteert dan krijg je een type mismatch error.
Wellicht nog idee om dit te omzeilen?

Ron

 

[Wigi]

Voilà

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim inters As Range, c As Range
    
    Set inters = Application.Intersect(Columns(21), Target)
    
    If Not inters Is Nothing Then
        For Each c In inters
            If c.Value <> "" Then c.EntireRow.Hidden = True
        Next
    End If
End Sub

Doe geen SelectionChange, maar een Change.

Voor de rest nog wat fouten eruit gehaald, bekijk maar eens. Ook meerdere rijen kunnen ineens.

Wigi

 

[ExcelNoob]

Waar staat die c voor je in de code Wigi? Kan ik die gewoon laten staan of moet daar het aantal cellen invoeren?

 

[Haaren101]

@Wigi, zoals altijd weer een mooie oplossing. Toch nog een vraagje:

Not inters Is Nothing

Dit ziet eruit als een dubbele ontkenning. Als ik het goed begrijp dan kijk je hier of iets in kolom U staat. Is er dan niet zoiets als "inters Is Something"?

Ron

 

[ExcelNoob]

Houston, we have a problem!

Ik heb 2 keer een private sub worksheet_change namelijke deze:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
    Range("A1:R4999").Sort Key1:=Range("E2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim inters As Range, c As Range
    
    Set inters = Application.Intersect(Columns(18), Target)
    
    If Not inters Is Nothing Then
        For Each c In inters
            If c.Value > "" Then c.EntireRow.Hidden = True
        Next
    End If
End Sub

Dit kan dus blijkbaar niet...hoe is dit op te lossen?

 

[Wigi]

Dit kan dus blijkbaar niet...hoe is dit op te lossen?

Dan zal je die 2 moeten samenvoegen tot 1 mooie macro.

 

[ExcelNoob]

Dan zal je die 2 moeten samenvoegen tot 1 mooie macro.

Bijdehandje

Heb het opgelost!

Bedankt voor jullie hulp!:thumb:

 

[Wigi]

Als het opgelost is, graag de vraag dan ook op opgelost zetten aub.

 

[ExcelNoob]

Dacht dat ik dat gedaan had! Maar hij is nog niet opgelost. Hoe krijg ik in volgende code dat hij rij 1 uitsluit.

If Target.Column = 18 And Target > "" Then
Target.EntireRow.Hidden = True
End If
End Sub

Laat maar heb het al.