spring naar onbekende cell

[PPSBraun]

L.s,

stel ik heb in een werkblad waarden staan die op basis van een kenmerk kunnen worden gefilterd. Als het filter actief is wil ik het resultaat kopieren naar een ander werkblad. Dit betekent dat de eerste cell-waarde afhankelik is van de gefilterde gegevens. maw de eerste cell waarde van het te kopieren gebied is onbekend en kan dus niet worden geprogrammeerd met range(?).select. Hoe kan ik dit voor elkaar krijgen?


Paul
Bijgaand plaatje:
ongefilterd
kenmerk waarde
1 200
1 300
2 450
3 300
2 300

gefilterd
kenmerk waarde
2 450
2 300

Startwaarde copieer-actie in dit geval cel A3.

 

[Spiderman]

Hoi PPSBraun,

Volgens mij, werkt Range(?).select alleen op zichtbare rijen/kolomen/cellen, dus niet op de weggefilterde.

Onderstaande code zou dus moeten werken (hoop ik)

Dim FilledRows as Integer
Dim Col as String: Col = X ' of welke kolom dan ook
FilledRows = ActiveCell.SpecialCells(xlLastCell).Row

Range("A3:" & Col & FilledRows).Copy
Sheets("Blad2").Select
ActiveSheet.Paste

Suc6

 

[PPSBraun]

spring

Arno,

opnieuw bedankt voor de oplossing; code loopt, echter ik krijg bijgaande melding voordat eea geslecteerd kan worden (voor copieren) in het eerste werkblad. Zou jij mij misschien verder kunnen helpen?

gr Paul

 

[Spiderman]

Hoi PPSBraun,

Kan het zijn dat je een userform probeert te laten zien dat al zichtbaar is?
Zo niet kun je dan de code of nog liever je bestandje hier plaatsen?