• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

vba lege rijen verwijderen

Status
Niet open voor verdere reacties.

moensk

Gebruiker
Lid geworden
23 jun 2013
Berichten
705
ik vond bijgaand script
deze verwijdert alle lege rijen in alle tabbladen doch ik zoek script voor 4 specifieke tabbladen.
ik dacht "sheets.count" te vervangen door "sheets(Array("1";"3";"9";"10"))" doch krijg het niet werkend.

Code:
Sub lege_regels_verwijderen()
For y = 1 To Sheets.Count
    L_Row = Sheets(y).Range("A65000").End(xlUp).Row
    For i = L_Row To 1 Step -1
        If WorksheetFunction.CountA(Sheets(y).Rows(i)) = 0 Then Sheets(y).Rows(i).Delete
    Next
Next
End Sub
 
Met komma's en specialcells.
Code:
dim sht as worksheet
on error resume next
for each sht in sheets(Array("1"[COLOR=#ff0000],[/COLOR]"3"[COLOR=#ff0000],[/COLOR]"9"[COLOR=#ff0000],[/COLOR]"10"))
  sht.columns(1).specialcells(4).entirerow.delete
next sht
 
Laatst bewerkt:
Gewoon iedere pagina op de eerste kolom aflopend sorteren.
 
Toelichting:

In Excel kun je geen rijen of kolommen van een werkblad verwijderen.
Het aantal rijen (rows.count=2^20) en kolommen (columns.count 2^16) is constant.
Het enige wat je kunt doen is rijen/kolommen met inhoud aaneensluitend maken.
De tekst ('delete' / 'verwijder') die MS gebruikt in de commandbars "row" en "column" is niet correct.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan