Macro en filter

[jolly01]

Ik wil met een macro. in tabblad "CCR Omschrijvingen" automatisch een filter laten doorvoeren en dit resultaat kopieren in tabblad "Data dump" in de eerstvolgende witregel.

Specifiek: Filter Categorie op A4, vervolgens filter CCR Reason op BBR11, kopieer dit resultaat uit de kolommen B:L in de eerstvolgende witregel in tabblad Data dump in de kolommen A:K

Zet CCR Reason in tabblad CCR Omschrijvingenweer op "Alle categorien"
Zet Categorie in tabblad CCR Omschrijvingen weer op "Alle categorien"

Filter vervolgens Categorie op A2, filter CCR Reason op BBR17, kopieer dit resultaat uit de kolommen B:L en plak in de eerstvolgende witregel in tabblad Data dump in de kolommen A:K

Het probleem is nu dat als ik de resultaten binnen de filter door de macro wil laten kopieren, álle regels worden gekopieerd.

Iemand een idee hoe de macro eruit zou kunnen zien? Het resultaat zou gelijk aan de resultaten in tabblad Data dump moeten zijn.

 

[Valentin]

Waar is uw macro?

 

[jolly01]

Heb tabblad met gewenst resultaat toegevoegd.

In tabblad "Data dump" staat het resultaat van mijn macro. (Formule_doortrekken)

Ik zie dat die macro zelfs méér dan het aantal regels kopieert uit CCR Omschrijvingen.

 

[Valentin]

Zie bestand in bijlage

 

[jolly01]

Dit werkt Valentin!

Nou wil ik eigenlijk dat de macro in tabblad CCR Omschrijvingen alleen de data binnen de kolommen B:J kopieert. Dus niets verder dan kolom J. Zodat de data in tabblad Data dump t/m kolom I "CCR Reason" wordt geplakt.

Zou je dat mogelijk kunnen aanpassen?

 

[HSV]

Zoiets?

Sub Sales()
With Sheets("CCR Omschrijvingen")
 With .Range("B12:L" & Cells(Rows.Count, 2).End(xlUp).Row)
    .AutoFilter 7, "A4"
    .AutoFilter 9, "BBR17"
  Sheets("CCR Omschrijvingen").AutoFilter.Range.Offset(1).SpecialCells(12).Copy Sheets("Data dump").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .AutoFilter
  End With
 End With
End Sub

 

[jolly01]

Bij nader inzien werkt de code niet meer in het originele bestand met meer dan 1500 regels.

Wat ik ook probeer aan te passen:

ActiveCell.Offset(1, 0).Range("A1").Select

Deze regel blijft telkens in het geel staan.

 

[jolly01]

Bedankt voor je input HSV !
Ik kan met jouw code beter uit de voeten omdat ik de te kopieren kolommen kan aanpassen.

Echter geeft de uitkomst van jouw macro niet het gewenste resultaat. Zie de resultaten in "Data dump" en "Gewenst resultaat"

Heb je een idee hoe jouw code er uitziet met het gewenste resultaat?

 

[jolly01]

Kan het zijn dat ik iets niet goed doe. Kan iemand hier misschien nog even naar kijken?

 

[HSV]

Sub Sales()
With Sheets("CCR Omschrijvingen")
 With .Range("B12:J" & Cells(Rows.Count, 2).End(xlUp).Row)
    .AutoFilter 7, "A4"
    .AutoFilter 9, "BBR11"
  Sheets("CCR Omschrijvingen").AutoFilter.Range.Offset(1).SpecialCells(12).Copy Sheets("Data dump").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .AutoFilter
    .AutoFilter 7, "A2"
    .AutoFilter 9, "BBR17"
  Sheets("CCR Omschrijvingen").AutoFilter.Range.Offset(1).SpecialCells(12).Copy Sheets("Data dump").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .AutoFilter
  End With
 End With
End Sub

 

[jolly01]

Weer een stap verder! De Categorie A7 zou echter geen resultaat mogen opleveren en de A4 van JOE.JACKSON niet in combinatie met BBR17.

Kijk er nog even naar als je zin hebt.


Alvast bedankt!

 

[HSV]

Helaas begrijp ik niet wat je bedoeld.

Het is het resultaat zoals gevraagd toch?

 

[jolly01]

Ik zal de stappen duidelijker weergeven.
Als ik in tabblad CCR Omschrijvingen "Categorie" filter op A4 en vervolgens "CCR Reason" filter op BBR11 levert dat het volgende op:

23-5-2012 9:04:41 JOE.STRUMMER 85762118 LMN ABC A4 5818 BBR11
23-5-2012 9:07:38 CARICE.VANHOUTEN 85762118 UVW ABC A4 5818 BBR11
23-5-2012 9:09:29 DANIEL.CRAIG 85762118 LMN ABC A4 5818 BBR11

Als ik in tabblad CCR Omschrijvingen "Categorie" filter op A2 en vervolgens "CCR Reason" filter op BBR17 levert dat het volgende op:


23-5-2012 9:20:35 CARICE.VANHOUTEN 74315175 LMN GHA A2 5938 BBR17
23-5-2012 9:20:41 JOANNA.LUMLEY 75440395 LMN ABC A2 5938 BBR17

Dit onder elkaar plaatsen levert het gewenste resultaat :


23-5-2012 9:04:41 JOE.STRUMMER 85762118 LMN ABC A4 5818 BBR11
23-5-2012 9:07:38 CARICE.VANHOUTEN 85762118 UVW ABC A4 5818 BBR11
23-5-2012 9:09:29 DANIEL.CRAIG 85762118 LMN ABC A4 5818 BBR11
23-5-2012 9:20:35 CARICE.VANHOUTEN 74315175 LMN GHA A2 5938 BBR17
23-5-2012 9:20:41 JOANNA.LUMLEY 75440395 LMN ABC A2 5938 BBR17


Jouw macro levert bij mij echter dit resultaat:

23-5-2012 9:12:20 FRANK.EVENBLIJ 85413051 RST GHA A7 6801 BBR17
23-5-2012 9:18:02 JENNIFER.SAUNDERS 85860926 LMN ABC A7 6801 BBR17
23-5-2012 9:18:37 JEREMY.CLARKSON 85413051 RST GHA A7 6801 BBR17
23-5-2012 9:20:35 CARICE.VANHOUTEN 74315175 LMN GHA A2 5938 BBR17
23-5-2012 9:20:41 JOANNA.LUMLEY 75440395 LMN ABC A2 5938 BBR17
23-5-2012 9:21:29 JOE.JACKSON 76878107 LMN ABC A4 5109 BBR17
23-5-2012 9:21:35 JOE.STRUMMER 76616453 RST GHA A7 6801 BBR17

 

[HSV]

Kijk goed in blad 'Data dump'. het gewenste resultaat dacht ik.

 

[jolly01]

Ik heb de macro geactiveerd en zie bij mij dat het resultaat in "Data dump"niet overeenkomt met datgene in "Gewenst resultaat".

Kan het zijn omdat je met een andere excel versie werkt ofzoiets?

 

[HSV]

Ik heb even de gegevens gewist, en de code laten lopen.
Werkt perfect zoals gewenst.

 

[HSV]

Kan het zijn omdat je met een andere excel versie werkt ofzoiets?

Dat is het.

Ik heb het geschreven in Excel 2007, en getest.
Ik zal eens kijken waarom Excel 2003 andere resultaten geeft.

 

[jolly01]

Top :thumb:
Ben benieuwd naar je bevindingen.

 

[HSV]

Maak de knop op blad "CCR Omschrijvingen".
Dan schrijft het de visible range weg.
Maar als ik de code gewoom laat lopen met Alt+F8 werkt het ook goed.
Ik begrijp niet waarom!!!

 

[HSV]

Ik heb je knop op een andere plaats gezet, en .......
Vraag me niet waarom, maar het werkt.