• DİKKAT

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

Seçilen İki Sütundaki Değeri İçeren Tüm Satırları Silmek

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
3 Haziran 2017
Mesajlar
797
Excel Vers. ve Dili
2007, 32
Arkadaşlar,

A satırında "9-A" gibi bir sınıf, L satırında "2017-2018/1" gibi bir dönem ismi yer alıyor. Ben "liste" isimli bu sayfada, Combobox1 ve Combobox3'den sınıf ve dönem seçip "SINIF SİL" butonuyla o sınıfa ve döneme ait satırları toplu silmek istiyorum.

SINIF SİL butonuna yazmam gereken kod hakkında yardım istiyorum.
 
Son düzenleme:
Örnek dosyanızı gönderirseniz bakalım.
 
Combobox a verileri nerden gelecek. O değerleri yazmamışsınız.
 
Combobox a verileri nerden gelecek. O değerleri yazmamışsınız.

ComboBox1'e sayfa2'den, ComboBox2'ye sayfa3'ten veri geliyor. Buton, sınıf ve dönem seçildiğinde, seçilen sınıfı ve dönemi içeren satırları silecek. Dosyayı tekrar ekledim.
 

Ekli dosyalar

Buton'a bu kodları eklerseniz istediğiniz olur sanırım. İyi çalışmalar.

Private Sub CommandButton1_Click()
a = ComboBox1.Text
b = ComboBox2.Text
For i = 3 To 30
If Cells(i, 1) = a And Cells(i, 12) = b Then Range(Cells(i, "a"), Cells(i, "l")).ClearContents
Next i
End Sub
 
Uygulanmış dosya ektedir.

Elinize sağlık hocam.
Ancak Ömer hocamın verdiği aşağıdaki kod ile boş satır bırakmadan, yani silinenlerin yerine kaydırma yaparak silme işlemi yapmak daha kullanışlı.

Kod:
Private Sub CommandButton10_Click()
Dim i As Long
 
    Application.ScreenUpdating = False

    For i = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1
        If Cells(i, "A") & Cells(i, "L") = _
            ComboBox5.Text & ComboBox6.Text Then
            Rows(i).Delete
        Workbooks("PEN").Save
        End If
    Next i
     
    Application.ScreenUpdating = True
    
End Sub
 
askm ve dellerlim,

İlginiz ve yardımlarınız için çok teşekkür ederim.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst