Deleting a user selected row / column with a macro

[magnoth]

Greetings All,

I have created a spreadsheet with macros that will add predetermined # of Rows or Columns. I have assigned these to Macro Buttons and are working fine.

I would like to create another macro that will delete columns / rows based on the user selection.

Example: I click to select the entire column J, then click on a button that will delete the column.

Any help would be greatly appreciated.

Regards,

Ron Lister
Tampa, FL

 

[jbeaucaire]

Selection.EntireRow.Delete xlShiftUp

Selection.EntireColumn.Delete xlShifttoLeft

 

[p45cal]

one line:

Selection.Delete

but to ensure they have selected an entire column first:

If Selection.Address = Selection.EntireColumn.Address Then Selection.Delete

 

[iliace]

Or, in case they may not know how to select the entire row/column, this one will see whether a single row + multiple columns is selected (delete row), or single column + multiple rows (delete column).

Sub DeleteSelected()
  Dim rng As Excel.Range
  
  Set rng = Selection
  Debug.Print rng.Address
  
  If rng.Rows.Count = 1 And rng.Columns.Count > 1 Then
    rng.EntireRow.Delete
  ElseIf rng.Columns.Count = 1 And rng.Rows.Count > 1 Then
    rng.EntireColumn.Delete
  End If
End Sub

 

[magnoth]

WOW!!!! So many options!

Thank You jbeaucaire, p45cal & iliace. The quick response is appreciated.

I will attempt each of your solutions to see which best suits my needs.

Again Thank you for your assistance