Macro's in excel

Gestart door drumeke op 10 jul 2019, 15:20 17 berichten 1.151 keer gelezen

drumeke Startte dit onderwerp 19 jul 2019, 13:20 Antwerpen 61 berichten

Bedankt alles werkt

Tof

Sony 19 jul 2019, 17:02 Boom 5.235 berichten

drumeke,

het kan ook met één macro:

Code: Selecteer alles

sub VerbergenOfTonen
For i = 4 To 90
    If (Cells(i, 12)) = 0 Then
        Range(Cells(i, 2), Cells(i, 14)).Select
            	if Selection.EntireRow.Hidden = False		
        		Selection.EntireRow.Hidden = True
		else
			Selection.EntireRow.Hidden = False
		endif
   End If  
Next i
Cells(1, 1).Select
End Sub

Je kunt na het verbergen ook dadelijk laten sorteren op kolom (L=14) indien nodig.

Sony.

SeniorenNet

Naar boven