Macro aanpassen

[Depant]

Hallo allemaal,

Ik wil graag met uitgebreid filter cellen uit kolom B kopiëren naar een ander tabblad.
In de macro die ik nu heb kopieer ik de hele rij weg, en haal de celwaarde op.
Heb een bestandje bijgevoegd.
Macro is ctrl q
Dus b101-b105 m0eten dus rechtstreeks naar 1nir a1 - a5
Hoop dat het duidelijk is.

Groeten Henk Harbers

 

[HSV]

Test het maar eens Henk.

Sub wegkopieren()
With Sheets("Invoer")
 .Cells(1).CurrentRegion.AutoFilter 5, Filter(Application.Transpose([if(criteria!a2:a100="","~",criteria!a2:a100)]), "~", False), 7
 .AutoFilter.Range.Offset(1).Columns(2).Copy Sheets("1nir").Range("A2")
End With
End Sub

 

[HSV]

Zo te zien heeft de code de test doorstaan!
Beetje jammer dat er geen reactie meer af kan.