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

Kolommen verwijderen macro

Status
Niet open voor verdere reacties.
W

Welies

Gebruiker
Lid geworden
9 dec 2010
Berichten
128
Beste mensen,

Op bijgevoegd bestand wil ik een macro toepassen die:

  1. Alle kolommen verwijderd muv de geel gemarkeerd
  2. Op alle overgebleven kolommen een filter zet
  3. Kolom "Artikelgroep" dient alleen de resultaten met omschrijving "APPLE" en "DELL-APPLE" weer te geven

Alvast dank voor jullie input.

Gr. Vincent
 

Bijlagen

  • verwijderen_titels.xls
    25,5 KB · Weergaven: 60
Test onderstaande eens uit op een kopie van je bestand.
Aangezien ik niet weet hoeveel werkbladen in je bestand zitten kan de 1 bij Sheets(1) best wijzigen in de naam v/h werkblad. (wel tussen " zetten)
Code: 
Sub tst()
    
    With Sheets(1)
        For i = 87 To 34 Step -1
            .Columns(i).Delete
        Next
        colArray = Array(32, 31, 30, 29, 28, 27, 26, 24, 23, 22, 21, 19, 17, 16, 15, 11, 10, 9, 7, 5, 2)
        For Each it In colArray
            .Columns(it).Delete
        Next
        .UsedRange.AutoFilter 11, "=APPLE", xlOr, "=DELL-APPLE"
    End With
    
End Subb
 
Laatst bewerkt:
Of:
Code: 
Sub Spaarie()
    With Sheets(1)
        For i = .UsedRange.Columns.Count To 1 Step -1
            If .Cells(1, i).Interior.Color <> 65535 Then .Cells(1, i).EntireColumn.Delete
        Next
        .UsedRange.AutoFilter 11, "=APPLE", xlOr, "=DELL-APPLE"
    End With
End Sub
 
Laatst bewerkt:
@Rudi: jouw oplossing werkt prima
@Spaari: na uitvoeren van macro worden alle kolommen verwijderd en krijg ik een foutmelding: "Fout 1004 tijdens uitvoering: Methode Autofilter van Klasse Range is mislukt."

Dank voor jullie hulp!
 
Vervang je de Autofilter regel voor die van Rudi > aangepast in #3

Houdt er wel rekening mee dat Rudi z'n code is specifiek op jouw opmaak gebaseerd is, die van mij is dynamisch (gebaseerd op je gele kleuren)
 
Laatst bewerkt:
Beste mensen,
Ik kom toch even terug op deze vraag. Onderstaande macro werkt naar behoren, echter wil ik eraan toevoegen dat ipv een autofilter, alle regels die niet voldoen aan APPLE en DELL-APPLE worden verwijderd.

wederom dank.
Vincent

Code: 
Sub apple_rapportage()
    
    With Sheets(1)
        For i = 87 To 34 Step -1
            .Columns(i).Delete
        Next
        colArray = Array(32, 31, 30, 29, 28, 27, 26, 24, 23, 22, 21, 19, 17, 16, 15, 11, 10, 9, 7, 5, 2)
        For Each it In colArray
            .Columns(it).Delete
        Next
        .UsedRange.AutoFilter 11, "=APPLE", xlOr, "=DELL-APPLE"
    End With
    
End Sub
 
Code: 
Sub apple_rapportage()
Application.DisplayAlerts = False
    With Sheets(1)
        For i = 87 To 34 Step -1
            .Columns(i).Delete
        Next
        colArray = Array(32, 31, 30, 29, 28, 27, 26, 24, 23, 22, 21, 19, 17, 16, 15, 11, 10, 9, 7, 5, 2)
        For Each it In colArray
            .Columns(it).Delete
        Next
        .UsedRange.AutoFilter 11, "=APPLE", xlOr, "=DELL-APPLE"
    End With

    [COLOR="#FF0000"]With Sheets.Add
      Sheets(2).UsedRange.Copy .Cells(1)
      .Columns.AutoFit
    End With
    Sheets(2).Delete[/COLOR]
Application.DisplayAlerts = True
End Sub
 
Beste mensen,

Nogmaals een korte vraag over deze oplossing: ik wil in onderstaande code een 2 tal extra groepen toevoegen die in de autofilter worden meegenomen (ZAPPLE en ZDELL-APP). Hoe kan ik dit toevoegen aangezien simpel kopieren en plakken niet werkt helaas?

.UsedRange.AutoFilter 11, "=APPLE", xlOr, "=DELL-APPLE"

Alvast bedankt!

Gr. Vincent
 
Code: 
.UsedRange.AutoFilter 11, "=APPLE", xlOr, "=DELL-APPLE"

vervangen door

Code: 
.UsedRange.AutoFilter 11, Criteria1:=Array("APPLE", "DELL-APPLE", "ZAPPLE", "ZDELL-APP"), _
        Operator:=xlFilterValues

zou volgens mij moeten werken (maar niet kunnen testen dus hou slag om arm :rolleyes:)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan