Rijen uit meerdere tabbladen verwijderen

[xmir]

Hallo goeroes,

Ik heb een export bestand met meerdere tabbladen.
Elk tabblad eindigt met 4 regels:
kolom A:
Legenda
G
T
GT

In elk tabblad betreft dit andere rijen.

Nu heb ik wel een macro gevonden waarmee ik uit 1 tabblad de rij "Legenda" kan verwijderen maar het lukt me niet om dat voor alle 4 de rijen en alle tabbladen te doen. Kunnen jullie helpen?
Mijn macro:

Sub Macro1()
'
Application.ScreenUpdating = False
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Range("A" & i) = "Legenda" Then
Rows(i).Delete
Else
End If
Next
Application.ScreenUpdating = True
End Sub

(NB volgens mij lukt dit zonder voorbeeldbestand, anders hoor ik het graag dan maak ik er een)

 

[VenA]

Als het altijd de vier laatste rijen betreft

Sub VenA()
  For Each sh In Sheets
    sh.Cells(Rows.Count, 1).End(xlUp).Offset(-3).Resize(4).EntireRow.Delete
  Next sh
End Sub

 

[xmir]

Als het altijd de vier laatste rijen betreft

Sub VenA()
  For Each sh In Sheets
    sh.Cells(Rows.Count, 1).End(xlUp).Offset(-3).Resize(4).EntireRow.Delete
  Next sh
End Sub

Dat is hem helemaal en het betreft inderdaad altijd de laatste 4 rijen! Bedankt!

 

[xmir]

toch nog een dingetje

De rijen verwijderen inderdaad uit alle tabbladen alleen als ik nu met ctrl shift end selecteer dan pakt hij onderaan toch 4 lege rijen mee??

 

[edmoor]

Dat komt omdat Excel die rijen niet als zodanig aanmerkt.
Sluit Excel af en open het document opnieuw, dan is het waarschijnlijk weg.

 

[xmir]

Dat komt omdat Excel die rijen niet als zodanig aanmerkt.
Sluit Excel af en open het document opnieuw, dan is het waarschijnlijk weg.

Inderdaad! Dank je! Kan het ook nog op een andere manier dan door het bestand af te sluiten?

 

[edmoor]

Helaas niet.

 

[xmir]

Helaas niet.

Ok....case closed!