Hej. Som det är nu så flyttar denna formel bara D3 till AA1, nästa gång jag kör koden flyttas D3 till AA2 osv nedåt.
jag undrar om någon vill hjälpa mig med att utöka funktionen ?
Jag behöver 14 kolumner. AA1 till AN1
Mina uppgifter kommer att ligga på D3:Q3 hela tiden och raderas efter varje körning av koden.
Informationen som flyttas nedåt sparas på detta sätt.
AA1:AN1
AA2:AN2
AA3:AN3
osv.
nedåt
OBS: Skulle vara underbart att även få in ett autodelete på D3:Q3 när koden körs
Sub boende()
Dim rkällcell As Range
Dim rMålcell As Range
Set rkällcell = Worksheets("Konto").Range("D3")
Set rMålcell = Worksheets("Konto").Range("AA1")
If rMålcell.Value <> "" Then
Set rMålcell = Worksheets("Konto").Columns("AA").Find("*", searchorder:=xlByColumns, searchdirection:=xlPrevious)
Set rMålcell = rMålcell.Offset(1, 0)
End If
rMålcell.Value = rkällcell.Value
End Sub