Drag and drop cell by selecting any place inside a cell

[Xokiru]

Hi,

I like to move cells around the sheet in my work, to do so, you have to select border of the cell, only then you can move the whole cell. My question: is it possible to enable either through settings or VBA - ability to move cells by selecting any place inside the cell, not only the corner of it?

Of course, cut and paste would be other way around, but I was wondering, since already exist drag and drop option, maybe there is such possibility?

Thank you!

 

[tyija1995]

You can make it so a right click will cut the cell and then you could double click another cell to paste if that helps? It disables some functionality though so i'd recommend using Ctrl+X -> Ctrl+V (Cut and paste) shortcuts instead. But if you want to try it on a worksheet first then:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo ErrCapture 'avoids double click error when nothing is cut/copied
    Cancel = True
    Paste ActiveCell
End
ErrCapture:
    Cancel = False
End Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Selection.Cut
End Sub

Make sure you post the code above in to a worksheet, not a module.

 

[Yongle]

Is this what you want?

Code below combines cut & paste by using right-click for cut - cell formula is pasted to next selected cell
Works for single cell only
Works once only for each cut

Test in a new sheet
right-click = cut
selecting another cell = paste

Place code below in the SHEET module (does not work if placed in Module1, Module2 etc)

Option Explicit
Dim Cut As Boolean

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Cut = True
    Target.Cut
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Cut Then
        Application.EnableEvents = False
        Selection.Cells(1).Select
        Me.Paste
    End If
    
    Cut = False
    Application.EnableEvents = True
End Sub

 

[Xokiru]

Thats a nice workaround,
thank you @tyija1995 and @Yongle