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

Hocam Eklediğiniz kod ile ListBox da çoklu seçime izin vermiyor. Sadece bir satırı seçebiliyoruz.

Listbox ayarlarından değiştirin resimdeki yeri.Ayrıca önceki koda ekleme yapıp güncelledim.

---

Buda inputbox ile şifreli için.Verinizin büyüklüğünü bilemediğim için bu şekide yaptım.
Normalde dizi yöntemsizde olurdu.

Private Sub CommandButton15_Click()

  

    Dim Arr

    Dim i As Long

    Dim say As Long

    

    If TextBox1.Text = "" Then

        MsgBox " LÜTFEN SÝLÝNECEK VERÝNÝN BUL ÝLE SIRA NUMARASINI GÝRÝNÝZ!!!"

        Exit Sub

    End If

    sifre = InputBox("!!!...SÝLMEK ÝSTEDÝÐÝNÝZ SATIRI ÇÝFT TIKLAYARAK YUKARIDAKÝ GÝRÝÞ KUTUCUKLARINA GELMESÝNÝ SAÐLAYIN. YUKARIDAKÝ KUTUCUKLAR BOÞ OLDUÐU ZAMAN SEÇTÝÐÝNÝZ VERÝLER SÝLÝNMÝÞTÝR UYARISINI ALSANIZ BÝLE VERÝLERÝ SÝLMEZ...!!!  !!!...YUKARIDAKÝ GÝRÝÞ KUTUCUKLARI DOLU ÝSE ÞÝFREYÝ GÝRÝNÝZ...!!!")

    ActiveSheet.Protect "123"

    If sifre <> "111" Then MsgBox "YANLIÞ ÞÝFRE GÝRDÝNÝZ ! LÜTFEN KONTROL EDÝN.": Exit Sub

    ActiveSheet.Unprotect "123"

    If sifre = "" Then Exit Sub



    Application.ScreenUpdating = False

    

    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

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

                End If

            Next

        End If



        

        Application.ScreenUpdating = True

        MsgBox "!!!.SEÇTY?YNYZ VERYLER SYLYNMY?TYR.!!!"

        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 'ListBoxyn son satyryna gider.'

    End With

    Range("A65535").End(xlUp).Offset(1, 0).Select 'Son bo? satyra gider

    On Error Resume Next

    Erase Arr

    

End Sub

Önceki koddaki kısımları alttaki gibi değiştirirsenizde olur.Yani find komutsu yapıldı.
Listbox ve sayfadaki satır numaraları karşılaştırıldı.

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) = i + 7 ' sifirdan baslandigi icin 7 yazildi 6 yerine

            End If

        Next

        

        If say > 0 Then

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

              If Arr(i, 1) <> "" Then

              If CLng(Arr(i, 1)) > 6 Then Rows(CLng(Arr(i, 1))).EntireRow.Delete

              End If

            Next

        End If

Hocam çok, çok teşekkürler ellerinize sağlık.

Saygılarımla Size ve bütün sevdiklerinize sağlıklı günler diliyorum.
 
Hocam Son olarak A1 hücresin de 10:30 olan saati B2 hücresinde 10,30 ondalık sayı  olarak gösterebilirmiyiz. Formül ile
                           TextBox1 de 10:30 olan saati TextBox2 de 10,30 ondalık sayı  olarak gösterebilirmiyiz. Kod ile

(01/05/2020, 03:36)m_demir yazdı: Hocam çok, çok teşekkürler ellerinize sağlık.

Saygılarımla Size ve bütün sevdiklerinize sağlıklı günler diliyorum.
 
Hocam Son olarak A1 hücresin de 10:30 olan saati B2 hücresinde 10,30 ondalık sayı  olarak gösterebilirmiyiz.

Rica ederim amin sizinde.Replace ile olabilir.
Denemeden örnek için yazıyorum yapamazsanız yazarsınız.

Range("A1").value= replace(Range("A1").value,":",",")