userform sayfa ismi oluşturma

[bydogannn67]

yardımcı olabilecek arkadaş yok mu :/

 

[vardar07]

Buyurun.

Private Sub CommandButton116_Click()
Sheets("liste").Select
Dim sat As Integer
'*****listbox seçili değilse uyar
If ListBox1.ListIndex < 0 Then
MsgBox "Önce listeden bir isim seçiniz", vbInformation
Exit Sub: End If
Application.DisplayAlerts = False
On Error Resume Next
    If MsgBox(TextBox1.Text & "   " & "isme ait kaydı silmek İstiyor musunuz? ?", vbYesNo, "Dikkat") = vbNo Then Exit Sub
'*****silinecek verileri döngü ile kontrol et
For sat = 2 To Sheets("liste").Cells(65536, "b").End(xlUp).Row
syf = Sheets("liste").Cells(sat, "b")
If Sheets("liste").Cells(sat, "b") Like ListBox1.Column(1) Then
Sheets("liste").Cells(sat, "a").EntireRow.Delete Shift:=xlUp
Sheets(syf).Delete
End If: Next
say = WorksheetFunction.CountA(Range("A2:A65500"))
    For i = 1 To say
        Cells(i + 1, 1) = i
    Next i
    KAYITYAP.Show
    MsgBox "SİLME İŞLEMİ YAPILMIŞTIR.", vbInformation
TextBox2 = ".": TextBox2 = ""
End Sub

 

[bydogannn67]

Hocam allah razı olsun sağolun

 

[assenucler]

Sayın bydogannn67,

Paylaşım, katkı ve emek verenlere herkese teşekkürler.

Rica etsem ilk mesajınıza eklediğiniz dosyanın son halini paylaşabilir misiniz?