çok teşekkür ederim emeğinize sağlık

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.

üstad ekte takvimsiz olandosyam bulunmakta, işin içinden çıkamadım tekrar düzenlşersen memnun olurum, D sürücüsüne yedek aldıktan sonra ana programı kaydetmiyor düzenleme yaparsan tekrar memnun olurum

sayın devely,

daha önce eklediğim örnek öncesindeki bu konunun 6.mesajında

Alıntı:...birkaç userformun kodlama kısmında değişken tanımlamalarının birçoğunu oluşturmadığınız için bu hataları vermekte.hataları geçersiz kılmayın ki,nerede ne sorun var farkında olabilesiniz.gerekli düzeltmeleri yaptım.Option Compare Database kullanmak yerine Option Explicit kullanmanız yerinde olacaktır...

bahsettiğim hususlarla yeniden karşılaşılmıştır.6.mesajdaki link'i tekrar gözden geçirmeniz size faydalı olacaktır.

aynı düzeltme çalışmaları bu son örneğinizde de yapılmıştır.
ek'te,son taleplerinize dair yeni çalışmanızın düzeltilmiş son çalışması mevcuttur.inceleyebilirsiniz.bilgilerinize.

iyi çalışmalar,
saygılar.

göstermiş olduğunuz hassasiyet için ayrıca teşekkür ederim.