948 Steps to 6 Figures by Learning Excel-VBA and Other Skills

Step 875 - Ctrl+Shift+U/D- Move Cell Up or Down

I wanted a mechanism to quickly move a cell up or down on a spreadsheet.

The spreadsheet can be downloaded here

The following code is used:







Sub MoveCellDown()

'

' MoveCellUp Macro

'

' Keyboard Shortcut: Ctrl+Shift+D

'

    Application.ScreenUpdating = False

    Selection.Cut

 

    ActiveCell.Offset(2, 0).Select

    

    Selection.Insert Shift:=xlDown

    ActiveCell.Offset(-1, 0).Select

    Application.ScreenUpdating = True

    

    

End Sub



Sub MoveCellUp()

'

' MoveCellUp Macro

'

' Keyboard Shortcut: Ctrl+Shift+U

 

'

    Application.ScreenUpdating = False

    

    Selection.Cut

    

    If ActiveCell.Row = 1 Then

        'nothing

    Else

        ActiveCell.Offset(-1, 0).Select

        Selection.Insert Shift:=xlDown

    End If



    Application.ScreenUpdating = True

    

End Sub