• 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.

Hallo allemaal

Status
Niet open voor verdere reacties.

Depant

Verenigingslid
Lid geworden
5 aug 2015
Berichten
238
Ik heb een vraag,

Kan iemand mij helpen met het volgende.:(
VenA heeft deze macro gemaakt. En werkt als een tierelier:thumb::thumb::thumb:

Sub VenA()

With Sheets(1).Cells(1).CurrentRegion
.AutoFilter 3, "<>" & Sheets(1).Cells(, 3)
.Offset(1).EntireRow.Delete
.AutoFilter
End With

End Sub


Ik heb nu 31 tabbladen (1,2,3, enzovoort).
Is het zo te maken dat de macro op alle 31 tabbladen hetzelfde doet?

Ik hoop dat het "makkelijk" te veranderen is.
Anders moet ik elke maan 31 keer dat kunstje doen. Dat kan ook maar heeft niet mijn voorkeur...

Groeten Depant
 
Je bent hier al enige tijd actief. Zou je een duidelijke topic titel willen verzinnen "Hallo allemaal" zegt weinig over je probleem. Resulteert vaak in minder response. Tevens dient je VBA code tussen code tags te staan zodat het leesbaarder is voor de helpers. En de laatste tip, veelal willen de helpers een voorbeeld bestand zien.
 
Probeer het eens zo:
Code:
Sub VenA()
    For Each sht In ActiveWorkbook.Sheets
        With sht.Cells(1).CurrentRegion
            .AutoFilter 3, "<>" & sht.Cells(, 3)
            .Offset(1).EntireRow.Delete
            .AutoFilter
        End With
    Next sht
End Sub

Daarnaast, zoals huijb al opmerkte, krijg je beter antwoord als je een voorbeeld document plaatst.
 
Hallo beide,

Hartelijk bedankt voor het antwoord.
En tevens hartelijk dank voor de tips om communicatief wat beter te worden op het forum.

:thumb::thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan