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

LÖST Utöka formel

Rekommendera Poster

pefra

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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
Monshi

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.

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
MH_
Postad (redigerade)

Vet inte om jag missförsår dig. Men Om du alltid skall börja inklistringen på rad1 så behöver du inte söka efter första lediga rad osv.

Eftersom du bara vill kopiera samma sak 11 gånger så räcker det här

 

Sub boende()
Worksheets("Konto").Range("AA1:AN11").Value = Worksheets("Konto").Range("D3:Q3").Value

 

Worksheets("Konto").Range("D3:Q3").Clear
End Sub

 

Redigerad av MH_

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
MH_

Lite onödig extrainfo eftersom jag missförstod dig:

För att Monshis variant skall bli som enklast bör du nog hårdkoda källområdet 

 

Ändra

Set rkällcell = Worksheets("Konto").Range("D3")

till:

Set rkällcell = Worksheets("Konto").Range("D3:Q3")

 

Men köra resize på målområdet, Ändra:

rMålcell.Value = rkällcell.Value

till

rMålcell.Resize(1, 14).Value = rkällcell.Value

 

Sen rensar du D till Q på lämpligt sätt

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser
pefra

Tack för otroligt snabb hjälp.
Allt fungerade direkt.
Tack.

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...