Avatar billede HBC Seniormester
13. oktober 2022 - 15:44 Der er 4 kommentarer og
2 løsninger

Klippe aktiv celleværdi til næste ledige celle

Hej derude,

Er der en som kan hjælpe en rookie med at klippe den aktive celles værdi til den første tomme celle i kolonne d i samme ark?

Arket hedder "Intern"

PÅ forhånd tak.
Avatar billede HBC Seniormester
13. oktober 2022 - 16:12 #1
Hov,

Den skal flytte både den aktive celle og celle ved siden af til højre, sorry.
Avatar billede jens48 Ekspert
14. oktober 2022 - 10:40 #2
Når du markerer din egen kommentar som et svar ser det ud som om dit problem er løst, og så kan du ikke forvente noget svar.
Denne makro vil automatisk kopiere data fra kolonne H og I hvis der skrives i kolonne H. Skal indsættes under Vis Koder (Højreklik på faneblad). Måske kan det bruges

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H:H")) Is Nothing Then
LastRow = Cells(65536, 4).End(xlUp).Row
Range(Target, Target.Offset(0, 1)).Copy Destination:=Range("D" & LastRow + 1)
End If
End Sub
Avatar billede HBC Seniormester
14. oktober 2022 - 11:11 #3
Ok, det havde jeg ikke opdaget.
Problemet er dog, at den skal klippe og ikke kopiere.
Avatar billede jens48 Ekspert
15. oktober 2022 - 18:04 #4
Den makro klipper i stedet for at kopiere

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H:H")) Is Nothing Then
On Error Resume Next
If Target = "" Then GoTo A:
LastRow = Cells(65536, 4).End(xlUp).Row
Range(Target, Target.Offset(0, 1)).Cut Destination:=Range("D" & LastRow + 1)
End If
A:
End Sub
Avatar billede HBC Seniormester
16. oktober 2022 - 10:23 #5
Hej Jens,
Virker perfekt som Worksheet_Change event.
Men kan den laves som en makro jeg kan aktivere selv?
Avatar billede jens48 Ekspert
24. oktober 2022 - 17:06 #6
Kunne for eksempel klares med:

Sub Flyt()
LastRow = Cells(65536, 4).End(xlUp).Row
Range(Cells(ActiveCell.Row, 8), Cells(ActiveCell.Row, 9)).Cut Destination:=Range("D" & LastRow + 1)
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester