Verwijderen van rijen met de optie IF

[snitsel]

Hallo

in mijn eerste tabblad heb ik 2 keuzerondjes met de waarde in cel A1.

ik zou een macro willen gebruiken in mijn 2de tabblad met de functie

als in tabblad 1 cel A1 = 1
dan moet hij rij 30, 35 en 37 verwijderen

Ik heb het zo geprobeerd, maar het klopt zo te zien niet...

Sub VerwijderRijen()

Application.DisplayAlerts = False

Select Case Sheets(1).Range("A1").Value
Case 1
Row(Array(30, 35, 37)).Delete
End Select

Application.DisplayAlerts = True

End Sub

 

[Roncancio]

Zo lukt het wel:

Verander

Row(Array(30, 35, 37)).Delete

Door

Range("30:30,35:35,37:37").Delete

Met vriendelijke groet,


Roncancio

 

[crash]

Hou het maar bij 1 topic en ga in de volgende lijnk maar verder:
http://www.helpmij.nl/forum/showthread.php?t=363136

Deze sluit ik.