Klippe aktiv celleværdi til næste ledige celle

Hov,

Den skal flytte både den aktive celle og celle ved siden af til højre, sorry.

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

Ok, det havde jeg ikke opdaget.
Problemet er dog, at den skal klippe og ikke kopiere.

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

Hej Jens,
Virker perfekt som Worksheet_Change event.
Men kan den laves som en makro jeg kan aktivere selv?

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