sayın devely,

uygulama ile ilgili bir ayrıntıyı bahsetmek de isterim.

userform7 formunuzda müşteri kayıt iptali için müşterilerin sayfa isimleri listesinde ana işlemlerde kullandığınız "VERİ" ve "yenimüşteri" isimleri de,aşağıdaki kodlamadan dolayı dahil olmakta.

Private Sub UserForm_Initialize()

Dim Ws 'sayfa adı sil

With ListBox1

    .MultiSelect = fmMultiSelectExtended

    For Each Ws In Worksheets

        .AddItem Ws.Name

    Next Ws

End With

End Sub

Userform7 formundaki UserForm_Initialize kodu içerisine aşağıdaki kodlamayı ekleyerek,liste içerisinde "VERİ" ve "yenimüşteri" sayfalarının dahil olmasını da engellemiş olursunuz.

ListBox1.ColumnCount = 4 'listbox sutün sayısını belirler

ListBox1.ColumnWidths = "100;125;100" 'listbox sutün aralığını belirler

Dim sayfa As Worksheet

For Each sayfa In ThisWorkbook.Worksheets

    If sayfa.Name <> "VERİ" And sayfa.Name <> "yenimüşteri" Then

        ListBox1.AddItem

        ListBox1.List(ListBox1.ListCount - 1, 0) = sayfa.Name

    End If

Next sayfa

TextBox1.SetFocus

bilgilerinize,
iyi çalışmalar,
saygılar.