kopiering af data i excel baseret på input

Har du prøvet om import funktionen kan klare det ?

denne kode deler din række og flytter det til den næste kolonne.

Den kan du så køre flere gange. Hvis du ønsker det ?, kan det også udføres så den del i fra den celle hvor du står

Sub Button1_Click()
    Set ws = ActiveSheet
   
    rk = InputBox("del fra række ?")
    cl = InputBox("i kolonne ?", , "A")
    mylastrow = ws.Cells(ws.Rows.Count, cl).End(xlUp).Offset(0, 0).Row
   
    Range(cl & rk & ":" & cl & mylastrow).Copy Range(cl & "1").Offset(0, 1)
    Range(cl & rk & ":" & cl & mylastrow).ClearContents

End Sub

Importereingen virker ikke på andre måder desværre  :( det havde nu alligevel været det letteste.

DEt ser ud til at virke :D så må jeg lige hører om jeg ikke kunne få dig til at vise mig hvordan jeg får den til at loope koden hvis jeg feks angiver hvor mange gange det skal gøres.

således?

Sub Button2_Click()
    Set ws = ActiveSheet
    antal = InputBox("antal loop ?")
    For t = 1 To antal
        rk = InputBox("del fra række ?", , rk)
        cl = InputBox("i kolonne ?", , "A")
        mylastrow = ws.Cells(ws.Rows.Count, cl).End(xlUp).Offset(0, 0).Row
       
        Range(cl & rk & ":" & cl & mylastrow).Copy Range(cl & "1").Offset(0, 1)
        Range(cl & rk & ":" & cl & mylastrow).ClearContents
  Next t
End Sub

njaa, den ved jo hvor den skal klippe og i hvilken række den starter så kan den loope uden man behøver at genindtaste dataen hver gang?

kommer her...


Sub Button2_Click()
    Dim rk As Integer
    Dim cl As Integer
    Set ws = ActiveSheet
    antal = InputBox("antal loop ?")
    cl = 1
    cl = InputBox("start fra kolonne? (som tal!)", , cl)
    For t = 0 To antal - 1
        rk = InputBox("del fra række ?", , rk)
        mylastrow = ws.Cells(ws.Rows.Count, cl + t).End(xlUp).Offset(0, 0).Row
        Range(Cells(rk, cl + t), Cells(mylastrow, cl + t)).Copy Range(Cells(1, cl + t + 1), Cells(1, cl + t + 1))
        Range(Cells(rk, cl + t), Cells(mylastrow, cl + t)).ClearContents
  Next t
End Sub

Det promter stadig efter kolonne række. Kan det flyttes ud af loopen? Jeg kan ikke rigtigt få det til at virke.

Er det ligeledes muligt at flytte resultatet 1 række ned så den starter i celle 2 istedet for 1 hver gang og lader celle 1 stå uændret?

jeg fik offsettet til at virke men kan ikke få promten flyttet ud af loopen uden den fejler.

Det skulle bare være at flytte linien


Sub Button2_Click()
    Dim rk As Integer
    Dim cl As Integer
    Set ws = ActiveSheet
    antal = InputBox("antal loop ?")
    cl = 1
    cl = InputBox("start fra kolonne? (som tal!)", , cl)
        rk = InputBox("del fra række ?", , rk)
    For t = 0 To antal - 1
        mylastrow = ws.Cells(ws.Rows.Count, cl + t).End(xlUp).Offset(0, 0).Row
        Range(Cells(rk, cl + t), Cells(mylastrow, cl + t)).Copy Range(Cells(1, cl + t + 1), Cells(1, cl + t + 1))
        Range(Cells(rk, cl + t), Cells(mylastrow, cl + t)).ClearContents
  Next t
End Sub

Det virker. computere hader mig det må være svaret på hvorfor jeg ikke kunne få det til at virke ;-)

1000 tak. Der er en masse andet jeg også skal have den til at kunne men det her var en stor hjælp.

Hermed et svar :-)