Kopiering af Celle på baggrund af data i kolonne A

Det lyder ikke særlig elegant (forskellen mellem dynamisk og statisk er afgørende). Lær "Hvis" funktionen og dens konsekvenser før du fortsætter dit ærinde.

Er det et bestemt antal ark der skal kontrolleres og hvis ikke, hvad hedder så det sidste arkog vil dette ark ændre navn?

Det er et bestemt ark

Hej igen,

Prøv om nedenstående lever op til dit ønske.

--------------------------------------------

Sub Kopiering_af_celler()

    Dim RK As Long
   
    RK = 2
    Cells(1, 3).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
   
    Do
    If Cells(RK, 1) <> "" Then
    Cells(RK, 3).Select
    ActiveSheet.Paste
    RK = RK + 1
    Else
    End If
    Loop Until Cells(RK, 1) = ""
    Application.CutCopyMode = False
    Cells(2, 1).Select
End Sub

-----------------------------------------------------

Med venlig hilsen

Henrik

Det virker mange tak... smid et svar :-)

Glad for at kunne hjælpe :-)