Filter daarna copieeren

[trucker10]

Hallo , met welk bestandje ( voorbeeld ) ben je verder gegaan ?

Sub NaarBlad2()
 Rij = Sheets("Blad2").Range("A65000").End(xlUp).Row
  With Sheets("Blad2")
    Range("A3:A65000").Copy Destination:=.Range("A2")
    Range("B3:B65000").Copy Destination:=.Range("B2")
    Range("D3:D65000").Copy Destination:=.Range("C2")
    [COLOR="Red"]Range("E3:E65000").Copy Destination:=.Range("E2")[/COLOR]
   [COLOR="red"]Enz.[/COLOR]
 End With
End Sub

ga je met dat van Rudi verder dan zal je hier

Sub NaarBlad2()
Sheets(2).Range("A2:[COLOR="red"]F100[/COLOR]").ClearContents
On Error Resume Next
    With Sheets(1).AutoFilter.Range
        .Offset(1).Copy [Blad2!A2]
        .Offset(1).Columns([COLOR="red"]6[/COLOR]).Copy [Blad2!C2]
    End With
  Sheets(1).ShowAllData
End Sub

moeten aanpassen

In beide gevallen moet je de range aanpassen , bij de code van Rudi ook het aantal kolommen waar ik nu 6 heb staan dat is tot kolom E

Heb er vlug een bestandje bijgevoegd ter verduidelijking ( opmaak rudi )

 

[HSV]

Kan ook nog in combinatie met die van Rudi.

Sub NaarBlad2()
 Rij = Sheets("Blad2").Range("A65000").End(xlUp).Row
  On Error Resume Next
  With Sheets("Blad2")
    Range("A3:A65000").Copy Destination:=.Range("A2")
    Range("B3:B65000").Copy Destination:=.Range("B2")
    Range("D3:D65000").Copy Destination:=.Range("C2")
    Range("E3:E65000").Copy Destination:=.Range("D2")
    Range("F3:F65000").Copy Destination:=.Range("E2")
  End With
   Sheets(1).ShowAllData
End Sub

 

[Warme bakkertje]

Als het autofilter een aaneengesloten bereik van kolommen is volstaat code in onderstaand voorbeeld. Wil je kolommen buiten het autofilter meekopieëren moet je per kolom een regel met Columns toevoegen(A=1, B=2, enz...) zoals in eerder gepost voorbeeld.

Mvg

Rudi

 

[snb]

of

Sub NaarBlad2()
    On Error Resume Next
    Sheets(2).UsedRange.ClearContents
    Sheets(1).AutoFilter.Range.Copy [Blad2!A1]
    Sheets(1).ShowAllData
End Sub

of als je de veldnamenrij in rij 1 zet en rij 2 gebruikt voor de filtercriteria kan het ook met:

Sub tst()
  Sheets(2).UsedRange.ClearContents
  Sheets(1).UsedRange.AdvancedFilter xlFilterCopy, Sheets(1).UsedRange.Rows("1:2"), [Blad2!A1]
End Sub

 

[K Timmer]

Hallo.

Ik heb het op de volgende manier gedaan.

zie bijlage.

Groeten Koos.

 

[Warme bakkertje]

Tja, dat is dan jouw keuze. Wij kunnen je hier enkel voorstellen aanreiken, wat je er verder mee doet is geheel aan jou.

Mvg

Rudi

 

[snb]

@Rudi,

Klopt jouw ondertekening nog ?