Filter resultaten selecteren en kopieren met VBA

[Excel dick]

Ik wil dmv een macro de resulaten van een autofilter selecteren en kopieren naar een ander werkblad..Echter bij een poging om de eerste cel van de filterresulaten geeft VBA foutmelding 1004;

stukje van de code:

Sheets("Filterblad").Select
Range("A1").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select

wat gaat er fout of hoe zou ik dit kunnen omzeilen..?

 

[Jan van Asseldonk]

Hoeveel moeten er, volgens handmatige controle, geselecteerd worden in het geval dat je deze foutmelding krijgt?
Ik vermoed dat het er geen of maar één is. Met end.xldown kom je dan namelijk op de laatste regel van Excel uit. Verstandig is om er een check in te bouwen of er wel gefilterde regels zijn.
Loop je macro stap voor stap door en controleer dus even de gevonden regels.
Plaats er anders een voorbeeldje bij.

 

[Wigi]

Hoi

zie hier: http://www.contextures.com/xlautofilter03.html#Copy

 

[Excel dick]

thank you!

Jan, Bedankt voor de inleving in het probleem dat ik schetste, het sturen van een voorbeeld is overbodig daar Wigi me een oplossing aanreikte...

Wigi, hartelijk dank...maar toch een vraagje...als ik het goed begrijp worden het aantal rijen geteld...kan ik deze waarde weergevenop in een cel op mijn spreadsheet...zoja hoe??


Alvast hartelijk dank...Dick

 

[Wigi]

Zie in de code.

Pas wel eerst naam van blad en cel aan.

Sub CopyFilter()
'by Tom Ogilvy
Dim rng As Range
Dim rng2 As Range

With ActiveSheet.AutoFilter.Range
 On Error Resume Next
   Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
       .SpecialCells(xlCellTypeVisible)
 On Error GoTo 0
End With
If rng2 Is Nothing Then
   MsgBox "No data to copy"
Else
   Worksheets("Sheet2").Cells.Clear
   Set rng = ActiveSheet.AutoFilter.Range
   rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
     Destination:=Worksheets("Sheet2").Range("A1")

[B]Sheets("Blad1").Range("B10").Value = rng.Rows.Count - 1[/B]

End If
   ActiveSheet.ShowAllData

End Sub

Wigi

 

[Excel dick]

Wigi dank je wel voor je hulp

Wigi dank je wel voor je hulp

 

[Wigi]

Wigi dank je wel voor je hulp

Graag gedaan.

Wel nog even de vraag op opgelost zetten aub.