Aantal gevulde cellen in een kolom bepalen.

[apikills]

Ik wil graag het aantal ingevulde cellen in een kolom bepalen, zodat ik vervolgens diezelfde aantal rijen kan kopieren naar een ander werkblad.

Wie kan mij helpen aan de VBA-code ?

Apikills

 

[LucB]

Bedoel je zoiets.

 

[apikills]

ff toelichten svp

Oke LucB,

je hebt me geholpen met mijn vraag, maar nou ben ik toch benieuwd wat jouw oplossing precies doet. Kun je me uitleggen wat de onderstaande opdracht precies doet ? (Ook anderen mogen natuurlijk die toelichting geven ....)

x = Cells(Rows.Count, "A").End(xlUp).Row

Alvast bedankt,

Apikills

 

[LucB]

x = Cells(Rows.Count, "A").End(xlUp).Row

Deze code vindt het rijnummer van de laatst gevulde cel in kolom A.
Dat zoeken doet ie van onderen op (End(xlUp))
En het einde (End) = rijnr. 65536

Stel hij vindt voor x=22 dan weet je dat A23 leeg is.
Daar kun je dan iets naar toe kopieren.
A23 is dan Range("A"& x+1)
Of als door de code de laatst gevulde cel A22) geselecteed staat kun je
ook voor A23 = Offset(1, 0) dwz vanaf A22 1 rij naar beneden en 0 kolommen opzij.

Er zij er vast die dit beter uitleggen.

 

[apikills]

FF niet zo bescheiden, is me helemaal duidelijk. Bedankt voor je uitleg