what's wrong with this?

[isildad]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Selection.Cut
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    With Selection.Paste
    End With
End Sub

 

[jindon]

Just delete "With" and "End With"

 

[xenou]

Hi:

    With Selection
        .Paste
    End With

Although I don't understand why you need to paste after having just inserted the selection...or if this is even possible...what are you pasting? There would need to be something on the clipboard, perhaps. Maybe I am just tired...

Regards.

 

[galileogali]

What you want to do?

 

[isildad]

In A1 I have 1
in A2 I have 2
in A3 I have 3

When I double click A2 the result should become
A1 is 2
A2 is 1
A3 is 3

When I dbl click a cell in the A column the code should create a new row in Row 2 and paste the dbl click selected value
Thx

 

[isildad]

Jindon thaks
Code s/b:

Selection.Cut
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown

thks to all

 

[xenou]

If you don't want to have to select the row first:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    'cut and move row where cell is double-clicked
    Target.EntireRow.Cut
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    
    'disable normal double-click behavior
    Cancel = True

End Sub

 

[jindon]

try

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim temp As Variant
    If Target.Column <> 1 Then Exit Sub
    If Target.Row < 2 Then Exit Sub
    Cancel = True
    temp = Range("a1", Target.Offset(-1)).Value
    Range("a1").Value = Target.Value
    If IsArray(temp) Then
         Range("a2").Resize(UBound(temp,1)).Value = temp
    Else
         Range("a2").Value = temp
    End If
End Sub

 

[isildad]

Alexander Barnes your code is OK to move the whole row to the top.
Thx