Veri silme ( Combobox )

[Excelexcellent]

Merhaba
Combobox dan seçilen isime ait sayfalarda bulunan tüm verilerin slinmesi işlemini yapamadım. Yardım rica ediyorum.
Dosya ekte.
Teşekkürler.

 

[Excelexcellent]

Değerli arkadaşlar. Bu işlemin yapılması mümkün ise yardımınızı bekliyorum. Teşekkür ederim.

 

[ynmcan]

Merhaba
Combobox dan seçilen isime ait sayfalarda bulunan tüm verilerin slinmesi işlemini yapamadım. Yardım rica ediyorum.
Dosya ekte.
Teşekkürler.

Merhaba Syn.Excelexcellent;
dosyanız ekte.

 

[Seyit Tiken]

Ekli dosyayı tetkik edip kendinize uyarlayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [B1:G500]) Is Nothing Then Exit Sub
ActiveCell.Range("B1:G1") = Empty
End Sub

 

[Excelexcellent]

Değerli, ynmcany ve Seyit Tiken. Verdiğiniz örnek dosyalar için teşekkür ederim.
Ancak bu vba kodları ile sadece Sayfa1 deki verileri silebiliyoruz.
Oysa ben, seçilen isim ve karşısındaki verilerin Excel kitabındaki bütün sayfalardan silinmesini istiyorum.
Tekrar değerlendirebilirmisiniz teşekkürler.

 

[Excelexcellent]

Merhaba arkadaşlar
Aşağıdaki kod ile #1 no.lu mesajda yapmak istediğim işlem çözüldü.
Ancak çalışmamda bir değişiklik yaptım.
1 - Aşağıdaki kodun görevini listbox ile nasıl yapabilim.
2 - Aşağıdaki Kod ile comboboxtan seçileni 1. sayfa hariç diğer sayfalardan nasıl silebillirim.
Teşekkürler.
Dim ad As String, syf As Worksheet
ad = ComboBox1.Text
For Each syf In Worksheets
For i = syf.Range("b65536").End(3).Row To 2 Step -1
If syf.Cells(i, 2).Value = ad Then
syf.Rows(i).Delete Shift:=xlUp
End If
Next i
Next syf
End Sub