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

[BedriA]

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.

 

[askm]

Örnek dosyanızı gönderirseniz bakalım.

 

[BedriA]

Örnek dosyanızı gönderirseniz bakalım.

Dosya ektedir. İlginiz için teşekkür ederim.

 

[askm]

Combobox a verileri nerden gelecek. O değerleri yazmamışsınız.

 

[BedriA]

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.

 

[dellerlim]

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

 

[dellerlim]

Uygulanmış dosya ektedir.

 

[BedriA]

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ı.

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

 

[BedriA]

askm ve dellerlim,

İlginiz ve yardımlarınız için çok teşekkür ederim.