Userform Kayıt Silme

[ERENYILMAZ]

Herkese merhabalar;
Userform üzerinden silme işlemi yapmam gerekiyor.User üzerindeki textbox1 seçilen isim eğer sayfa2 veya sayfa3 B sütunların herhangi birisinde bulunursa silme işlemi gerçekleşmesin ve uyarı versin istiyorum. Bir türlü başaramadım.
Açıklama örnek dosya içindedir. İyi çalışmalar.

 

[Ömer]

Merhaba,

Silmemesi için her iki sayfada mı olması gerekiyor, birinde olsa yeterli mi?

 

[ERENYILMAZ]

Her iki sayfa B sütünunda araması gerekiyor.Sayfaların birinde de bulunsa silinmeyecek.Bu sayfa 2 veya 3 olabilir hiç fark etmez.İyi çalışmalar.

 

[ERENYILMAZ]

Her iki sayfa B sütünunda araması gerekiyor.Sayfaların birinde de bulunsa silinmeyecek.Bu sayfa 2 veya 3 olabilir hiç fark etmez.İyi çalışmalar.

 

[Ömer]

Bu şekilde deneyin. Sayfa1 hariç tüm sayfalara bakar, eğer bulumazsa siler.

Private Sub CommandButton2_Click()
 
    Dim i As Long, syf As Integer, say As Byte
 
    If ListBox1.ListIndex < 0 Then
        MsgBox "İsim Seçin": Exit Sub
    End If
 
    i = ListBox1.ListIndex + 2
    If Cells(i, "B") = "" Then Exit Sub
 
    say = 0
    For syf = 1 To Worksheets.Count
        With Sheets(syf)
            If .Name <> "Sayfa1" Then
              Set c = .[B:B].Find(Cells(i, "B"), , xlValues, xlWhole)
                If Not c Is Nothing Then
                    MsgBox "Seçili Değer Var, Silemezsiniz.!"
                    Exit Sub
                Else
                    say = 1
                End If
            End If
        End With
    Next syf
 
    If say = 1 Then Rows(i).Delete
    UserForm_Initialize
 
End Sub

.

 

[ERENYILMAZ]

Sayın;
Ömer Bey,
Sorun çözülmüştür.İlginize çok teşekkür ederim.