Opgelost Kopiëren met voorwaarde

[serpent xx]

Dag forumleden,

kan iemand mij helpen met het volgende?
Het is de bedoeling dat de waardes die resulteren vanuit de formule in kolom F vanaf cel F3 met een druk op de commandbutton gekopieerd worden naar de kolom die matched met de waarde van cel F2. In bijgaand voorbeeld dus naar kolom I.

 

[HSV]

Range("g3").Offset(, Range("f2")).Resize(5) = Range("f3:f7").Value

 

[serpent xx]

Dat is 'm; top!
Dank je wel.

 

[serpent xx]

Ik was iets te voorbarig. Het is de bedoeling dat vanaf F3 tot F?? (dit is vooraf niet bekend) gekopieerd wordt.
Ook kan het zijn dat een cel in kolom F een kleur heeft; ook deze moet dan samen met de waarde gekopieerd worden. Ik kom naast Value niet echt iets tegen die dit regelt. (?)

Is dit mogelijk?

 

[emields]

Dan zoiets?

 

[serpent xx]

Yep. En om het nog ingewikkelder te maken:
De "kopwaardes" 1 t/m 5 kunnen ook alfanummerieke waardes zijn; bv A, B, C, D,.... of 1.1, 1.2, 1.3, 1.4, ....
Dan lopen deze codes blijkbaar vast.

 

[emields]

Weet je zelf feitelijk wat je wil?
Probeer het zo eens.

 

[serpent xx]

Dit werkt. Enkel de Range is hier statisch bepaald (F3:F100). Kun je dit ook variabel bepalen; dus vanaf F3 naar onderen toe? Ik heb dit zelf al geprobeerd met End(x1Down.Colum toe te voegen maar dat werkt niet:
x = Application.CountA(Range("f3").End(x1Down).Column)

 

[emields]

zo dan maar.

 

[AHulpje]

    x = Application.CountA(Range(Range("F3"), Range("F3").End(xlDown)))

Precies tegelijk op het knopje gedrukt!

 

[HSV]

Waarom niet:

Range("f3", cells(rows.count,6).end(xlup))

Of met down; net wat je wil.

 

[serpent xx]

De oplossing van AHulpje werkt voor mij.
Iedereen bedankt voor het meedenken en zijn/haar inbreng.

 

[HSV]

Als de waarde van F2 niet gevonden wordt gaat het fout.

 

[serpent xx]

Klopt. Dat heb ik opgelost door de invoer te beperken tot toegestane waardes.

 

[Warme bakkertje]

Persoonlijk ben ik geen fan van end(xldown) omdat er steeds het risico is van een lege cel in het bereik en dan kan je een deel waarden vergeten mee te nemen. In dit geval is het duidelijk omdat het maar enkele regels zijn maar bij een groter bereik moet je al erg zeker zijn dat dit niet het geval is of kan zijn.

De combinatie van Range en Cells kan dan weer verwarrend zijn voor de modale gebruiker.
Dus mijn favoriet is dan ook

Range("F3", Range("F" & Rows.Count).End(XlUp))

zodat je visueel direct ziet dat het om de F-kolom gaat terwijl je bij Cells het alfabet moet gaan aftellen om te weten welke kolomletter het 2de argument aanduid.