Løkke - kopiere indtil cellen er tom

når det ikke drejer som om mere end 77 rækker, er det nemmeste at indtaste formlen i b1. Kopier den så over i c1
Når dette er gjort, sætter du cursoren i b1. Hold så SHIFT-tasten nede og tast først på END og så HOME. Så bliver det ønskede område markeret.

Tast nu CTRL+D

Undskyld. Jeg glemte at sige, at det skulle være via VBA. Antallet ændrer sig fra gang til gang, så jeg ved aldrig, hvor mange kontonr. der er.

Hvis ønsket om vba udelukkende skyldes, at antallet af kontonumre ændrer sig fra gang til gang, så kan ovennævnte metode stadig bruges. Tastekombinationen END HOME sender nemlig cursoren til sidste række i den sidste kolonne i tabelmatricen.

Ønsket om at VBA skyldes, at løkken skal være en del af en lang sub, der opretter pivot tabel, henter filer m.v., matcher hver måneds pivottabel og kopierer navngivne celler hen til ny måned.

Hej B!

Har selv fundet en brugbar løsning.

Sub Test()

Dim i As Integer

i = 7 

Do Until Worksheets("Ark1").Cells(i, 1) = ""
    Range("b1").Copy Destination:=Worksheets("ark1").Cells(i, 3)
    i = i + 1
Loop
End Sub

Ellers tak for hjælpen B. Jeg må prøve at være lidt mere specifik næste gang og sige, at det drejer sig om VBA fra starten :0).

/Gnalling

P.S. Håber det er sådan man gør, hvis man ikke gør brug af svaret. Er stadigvæk meget "grøn" hos Eksperten :o)

det er den rigtige måde, når man selv finder svaret til sit spørgsmål *S*