Böyle bir deneyiniz olmazsa sizin yaptığınız gibi inputbox ilede yapabiliriz.

Private Sub CommandButton15_Click()

  

    Dim arr

    Dim i As Long

    Dim say As Long

    

    ActiveSheet.Unprotect "123"

    With Me.ListBox1

        If .ListCount = 0 Then Exit Sub

        ReDim arr(1 To .ListCount, 1 To 1)

        For i = 0 To .ListCount - 1

            If .Selected(i) = True Then

                say = say + 1

                arr(say, 1) = .List(i, 0)

            End If

        Next

        

        If say > 0 Then

            For i = UBound(arr) To LBound(arr) Step -1

                If arr(i, 1) <> "" Then Range("A:A").Find(Arr(i, 1), , xlValues, 1).EntireRow.Delete

            Next

        End If



        

        Application.ScreenUpdating = True

        MsgBox "!!!.SEÇTÝÐÝNÝZ VERÝLER SÝLÝNMÝÞTÝR.!!!"

        ActiveSheet.Protect "123"

        Range("A65535").End(xlUp).Offset(1, 0).Select

        TextBox1.SetFocus

        ThisWorkbook.Save

        CommandButton2_Click

        TextBox8.Text = [L4]

        TextBox9.Text = [L6]

        TextBox1.Text = [L7]

        TextBox28.Text = [M1]

        UserForm_Initialize

        .ListIndex = ListBox1.ListCount - 1 'ListBoxýn son satýrýna gider.'

    End With

    Range("A65535").End(xlUp).Offset(1, 0).Select 'Son boþ satýra gider

    On Error Resume Next

    Erase arr

    

End Sub