In gefilterde lijst met macro een cel selecteren en naar ander blad

[robjansen1958]

Beste Excel specialisten,
Het klinkt eenvoudig maar de puzzel heb ik nog niet rond....het probleem;
De bedoeling is om in een gefilterd blad een cel te selecteren en in een ander blad te plakken. Vervolgens ga ik weer terug naar het filterblad en ga 1 positie naar beneden....ect
Tot dusver geen probleem, zet ik deze handeling in een macro dan gaat de eerste cel goed maar 1 positie lager is dan ineens niet de zichtbare cel maar de volgende in rijvolgorde. Hoe los ik dit probleem op?
Door in de macro naar "ga naar, speciaal, zichtbare cellen" en vervolgens 1 positie naar beneden werkt niet.
De bedoeling van de macro is 1 cyclus te maken per klik..dus stel A3-A6-A9-A100 zijn zichtbaar dan de cel A3 kopieren en plakken vervolgens 1 positie naar benenden (A6) en weer kopieren plakken. Mijn macro gaat naar A4 onzichtbaar.
Hoop dat het duidelijk is, meestal kom ik wel uit problemen met formules ed. maar vba ligt me niet zo.
Alvast bedankt.
Groet Rob

 

[namliam]

Waarom niet in een keer het hele zichtbare gebied selecteren met CTRL + * (aka Range("A1").CurrentRegion.Select)

Eventueel met een loop als je het persee rij voor rij wil doen

 

[robjansen1958]

reactie op Namliam betreft zichtbare cel kopieren

Bedankt alvast voor je reactie,

De bedoeling is vanuit een formulier naar een gegevensblad te gaan, wat de macro doet is 1 cel (serienummer) ophalen uit een lijst met serienummers en plakken in het formulier. Het formulier genereert aan de hand van het opgehaalde serienummer alle info en wordt dan besproken. Is het geheel besproken dan via een macroknop de volgende cel ophalen uit het gegevensblad, bespreken ect.
Zolang het filter uit staat en het gegevensblad is gesorteerd werkt het prima, maar graag wil ik niet altijd sorteren maar gewoon filteren op soort serienummers.
Helaas dan werkt de macro niet op de gefilterde lijst en haalt dus de onderliggende serienummers uit het gegevensblad in plaats van de zichtbare cellen.
Automatiseren doe ik meestal met formules en combinaties van div voorwaarden en zelden gebruik ik de macrotaal, hooguit voor eenvoudige verwijzingen of opstart voorwaarden.

Groetjes Rob

 

[Roncancio]

VBA kent ook de functie SpecialCells waarbij je aan kunt geven dat je bijvoorbeeld uitsluitend zichtbare cellen wilt laten zien.
Eventueel kan je een voorbeeldbestand zonder gevoelige informatie plaatsen.

Met vriendelijke groet,


Roncancio

 

[robjansen1958]

specialcells

Hallo Roncancio,

Bedankt voor je reactie, ben aan het puzzelen gegaan met specialcells. Er is veel te vinden op internet maar het is me nog niet gelukt om de juiste macro op de juiste plek te zetten.
Wel lukt het om een heel zichbaar gebied te selecteren. Zal een voorbeeld bestandje bijvoegen zodat duidelijk is hoe het werkt.
Ik werk te weinig met macro's om een hele studie er van te maken en meestal kom ik er wel uit met helpfuncties in office.

Met vriendelijke groet,

RobBekijk bijlage macrotest.xlsm

 

[Roncancio]

Onderstaande code selecteert de volgende cel in de A-kolom ongeacht in welke kolom de cursor staat.

Sub Verplaatsen()
Range("A" & ActiveCell.Row).Offset(1, 0).Resize(Rows.Count - ActiveCell.Row, 1).SpecialCells(12).Cells(1, 1).Select
End Sub

Met vriendelijke groet,


Roncancio

 

[robjansen1958]

Hartelijk dank Roncancio

Dank voor je geweldige oplossing. Het werkt goed en graag wil ik mij toch meer verdiepen in de macrotaal en zal eens in de boekenwinkel snuffelen.
Hoewel niet belangrijk, ik probeerde even de macro aan het doorgronden door bijvoorbeeld de cel 1 naar boven te laten gaan in plaats van 1 naar beneden......tja, even een getal veranderen of - ervoor werkt niet...... het blijft toch specialisme.
Nogmaals dank,

Met vriendelijke groeten,

Rob