• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri silme ( Combobox )

Katılım
13 Ocak 2010
Mesajlar
46
Excel Vers. ve Dili
Office2007
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.
 

Ekli dosyalar

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

Kod:
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
 

Ekli dosyalar

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.
 
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
 
Geri
Üst