Just nu i M3-nätverket
Gå till innehåll

Utöka formel


pefra
 Share

Rekommendera Poster

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
Länk till kommentar
Dela på andra webbplatser

Om du vill tömma cell efter kopiering bara att skriva

 

rkällcell.Value = ""

exempelvis.

 

Kanske det du söker är

rkällcell .resize(kolumner:rader)

som kan utvidga referens.

Se till att rMålcell är lite stor.

 

Länk till kommentar
Dela på andra webbplatser

 Share

×
×
  • Skapa nytt...