Find ledig Celle i række og indsæt

Til inspiration:

    Worksheets("Ark1").Range("A1:A24").Copy
    Worksheets("Ark2").Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

Hov, jeg misforstod - troede du ville lave kolonne om til række. Ændre Transpose:=True til Transpose:=False. :-)

Hej
Den vil ikke som jeg ønsker. Den går ind oge overskriver B4 og det skal den ikke hvis der står noget i den, så skal den rykke en gang til højre (C4)og sætte ind.
Jeg sender lige formlen
Private Sub CommandButtonSEND_Click()

    Application.Goto Reference:="døgnrytme"
    Selection.Copy
    Workbooks.Open "\\døgnrytme.xlsx"
    If Range("B4").Value = "" Then
    Range("B4").Activate
    Else
?????

Hej micwar,

Hvad med nedenstående løsning

Application.Goto Reference:="døgnrytme"
    Selection.Copy
    Workbooks.Open "\\døgnrytme.xlsx"
    If Range("B4").Value = "" Then
    Range("B4").select
    Activesheet.paste
    Application.CutCopyMode = False
    Else
    Selection.Insert Shift:=xlToRight
    Application.CutCopyMode = False
end if


Med venlig hilsen

Henrik

Hej Henrik

Formlen kan ikke finde første ledig celle på række 4.
hvis M14 var aktiv så puttede den "døgnrytmen" ind der.
Så derfor jeg har lavet If så den starter med B4 og når den er fyldt ud med tal rykker den til C4 osv.
Jeg har tit lavet formlen med at rykke en gang ned hvis der stod noget i f.eks. C1 men at få den til at rykke en til siden driller.

Hej Henrik

Formlen kan ikke finde første ledig celle på række 4.
hvis M14 var aktiv så puttede den "døgnrytmen" ind der.
Så derfor jeg har lavet If så den starter med B4 og når den er fyldt ud med tal rykker den til C4 osv.
Jeg har tit lavet formlen med at rykke en gang ned hvis der stod noget i f.eks. C1 men at få den til at rykke en til siden driller.