Avatar billede Butterfly Ekspert
20. oktober 2023 - 09:15 Der er 4 kommentarer

Selection.AutoFill

Hej
Hvordan ser teksten ud hvis jeg vil lave autofill fra aktuel celle og ned så længe der er tekst i kolonne D?
Den jeg hidtil har brugt denne, når det starter fra en bestemt celle hver gang
Selection.AutoFill Destination:=Range("A2:A" & Range("d" & Rows.Count).End(xlUp).Row)
Avatar billede kim1a Ekspert
20. oktober 2023 - 10:32 #1
Jeg ville nok gøre det ved at lave en variabel fremfor at kode det ind i autofill:

Dim intSidsteRaekkeKolonneD as integer
intSidsteRaekkeKolonneD = Cells(Rows.Count, 4).End(xlUp).Row

4 tallet for kolonne D

Så kan du skrive en ret dynamisk løsning til at kopiere ned fra din activecell.
Avatar billede xl-Enthusiast Ekspert
20. oktober 2023 - 14:32 #2
Det kan gøres meget let med en formel, men det er vel ikke en mulighed.
Avatar billede Butterfly Ekspert
21. oktober 2023 - 12:58 #3
Hej xl-Enthusiast
Jo det kan godt være en mulighed, fortæl, fortæl
Avatar billede xl-Enthusiast Ekspert
21. oktober 2023 - 13:13 #4
=SEQUENCE(COUNTA(D:D);;4;0)

dansk

=SEKVENS(TÆLV(D:D);;4;0)

Hvis du har en overskrift i kolonne D skal formlen ændres til:

=SEKVENS(TÆLV(D:D)-1;;4;0)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester