How to delete rows from active rows and show confirm msgBox?

[oshi1998]

Sorry, My english isn't that good. I'm still practicing.

Okay. Hello everyone. I'm a beginner, I need to know source code for this (VBA Macro)

Step1 : User select rows need to delete data.
Step2 : User Click 'Delete' Button and show confirm MsgBox and in msgBox show list Id for delete
Example : "Are you sure to delete data ID: 2,3 ?"
Step3 : If User click OK -> Delete rows 3 and 4.

Help me pls. thank you.

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub oshi()
   Dim x As Variant
   With Selection
      If .Rows.Count = 1 Then
         x = .Columns(1).Value
      Else
         x = Join(Application.Transpose(.Columns(1)), ", ")
      End If
      If MsgBox("Are you sure to delete data ID: " & x & "?", vbYesNo) = vbYes Then
         .EntireRow.Delete
      End If
   End With
End Sub

 

[oshi1998]

Hi & welcome to MrExcel.
How about

Sub oshi()
   Dim x As Variant
   With Selection
      If .Rows.Count = 1 Then
         x = .Columns(1).Value
      Else
         x = Join(Application.Transpose(.Columns(1)), ", ")
      End If
      If MsgBox("Are you sure to delete data ID: " & x & "?", vbYesNo) = vbYes Then
         .EntireRow.Delete
      End If
   End With
End Sub

Thank you very much it works 100% I will learn about this code myself. How it work ?

 

[Fluff]

You're welcome & thanks for the feedback.