Delete Multi selected rows

[hsolanki]

Hi i have a code below and i want manually selected rows all at once to delete however if i have the 1st msgbox then it just says no rows selected

Sub deleterows()
Dim i As Long, irow As Long
Dim oSel As Range
Dim answer As String
Set oSel = Selection

If oSel.Areas.Count <= 0 Then 'if i delete this code of line then it just gives the msgbox to delete regrdless of not selected of any rows
MsgBox "rows not selected"


ElseIf oSel.Areas.Count <= 1 Then
answer = MsgBox("Would u like to delete?", vbQuestion + vbYesNo, "Confirm to delete")
                       If answer = vbYes Then
                       
 For i = oSel.Areas.Count To 1 Step -1
 oSel.Areas(i).EntireRow.Delete xlUp
 Next i
    End If
End If

End Sub

 

[maras]

To delete. My mistake.

 

[EXCEL MAX]

Hello Hsolaki,
try to change operator to "greater then" and
add "On error resume next" in a case that same row is selected multiple times...

Sub deleterows()

    Dim i As Long, irow As Long
    Dim oSel As Range
    Dim answer As String
    Set oSel = Selection
    
    If oSel.Areas.Count <= 0 Then 'if i delete this code of line then it just gives the msgbox to delete regrdless of not selected of any rows
        MsgBox "rows not selected"
    ElseIf oSel.Areas.Count >= 1 Then
        answer = MsgBox("Would u like to delete?", vbQuestion + vbYesNo, "Confirm to delete")
        If answer = vbYes Then
            For i = oSel.Areas.Count To 1 Step -1
                On Error Resume Next
                oSel.Areas(i).EntireRow.Delete xlUp
            Next i
        End If
    End If

End Sub

 

[Fluff]

This line If oSel.Areas.Count <= 0 Then will never result in true, as the selected area/cells is always at least 1.
Are you selecting entire rows, or just individual cells?

 

[EXCEL MAX]

Yes, if you also want to display message turn this to

If oSel.Areas.Count = 1

 

[hsolanki]

Hi Fluff / Excel max i am selecting entire rows. @EXCEL MAX code does not work if 1 entire row is selected however if i select 2 rows then it works. is there any way around if one cell is selected then msgbox comes up with "No rows selected" and if one entire row is selected then msgbxo to delete or not delete?

 

[Fluff]

How about

Sub hsolanki()
   If Selection.Count Mod Columns.Count <> 0 Then
      MsgBox "Please select entire rows only"
   ElseIf MsgBox("Are you sure you want to delete these rows?", vbYesNo) = vbYes Then
         Selection.Delete
   End If
End Sub

 

[hsolanki]

Hi Fluff you are an amazing ?. it worked as i wanted to.

Thank you once again for all your kindness and all your help once again ?

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[EXCEL MAX]

Simple and clear. Bravo.