Rijen wissen dmv een macro

[auxi]

Hallo allemaal,

kan iemand mij ff helpen met het volgende:
Ik heb een bestand waarin ik 89 rijen gevuld heb staan! Nu wil ik graag met een macro in de bladen "Blad1 t/m Blad26" de rijen > 1 t/m 56 en 85 t/m 89 in een keer wissen!

Wij kan mij ff helpen?
Alvast mijn dank,

Auxi

 

[edmoor]

Probeer deze maar eens:

Sub ClearSecties()
    For i = 1 To 26
        With Sheets(i)
            .Rows("1:56").ClearContents
            .Rows("85:89").ClearContents
        End With
    Next i
End Sub

 

[Conseclusie]

Of nog íetsje beknopter:

.Range("1:56, 85:89").ClearContents

 

[auxi]

Dank voor de vlotte reactie
Maar nu worden de rijen alleen leeg gemaakt!
Eigenlijk wilde ik de bedoelde rijen wissen!

 

[Cobbe]

Dan moet de volgorde omgekeerd worden.

 

[gast0660]

Voor mij is wissen en leegmaken hetzelfde. (mischien omdat ik Belg ben)
Bedoel je dit?
Verwijderen

Sub ClearSecties()
    For i = 1 To 26
        With Sheets(i)
        .Rows("85:89").Delete Shift:=xlUp
        .Rows("1:56").Delete Shift:=xlUp
        End With
    Next i
End Sub

 

[auxi]

Hoi,

Yep, bedoelde verwijderen:d
Ga het eens ff proberen
Dank

 

[auxi]

Dank jullie allemaal.
T`s gelukt!

 

[gast0660]

Mooi zo :thumb:
Suc6