Veriyi sütunlarda bul

[Feylosof]

Haftanın ilk gününde herkese iyi çalışmalar dilerim,

Sayfanın birinci satırında isimler yazılı bu isimlerin altında dersler sıralanmıştır. Comboboxta isim seçildikten sonra textboxta yazılan dersi sayfada ismin altında bulup sildirmek istiyorum. Örnek uygulama ektedir. Saygılar.

 

[AdemCan]

Merhaba Bul ve Sil butonu için örnek kodlar.

Private Sub CommandButton2_Click()
Dim s1 As Worksheet
Set s1 = Sheets("DERS DAĞILIM")
    If TextBox1.Value = "" Or ComboBox1.Value = "" Then
        MsgBox "Öğretmen Adı ve Ders Adı Yazılmalı", , ""
        Exit Sub
    Else
        aranan_isim = ComboBox1.Value
        Set b1 = s1.Range("A1:O1").Find(aranan_isim, LookAt:=xlWhole)
            If Not b1 Is Nothing Then
                b1 = b1.Column
            Else
                MsgBox "Öğretmen Adı Yok", , ""
                Exit Sub
            End If
            
        aranan_ders = TextBox1.Value
        Set b2 = s1.Columns(b1).Find(aranan_ders, LookAt:=xlWhole)
            If Not b2 Is Nothing Then
                b2 = b2.Row
                s1.Cells(b2, b1).ClearContents
                MsgBox aranan_isim & " isimli öğretmenden " & aranan_ders & " isimli ders silindi.", , ""
            Else
                MsgBox "Ders Adı Yok", , ""
            End If
    End If
End Sub

 

[Feylosof]

Sayın @AdemCan istediğim tam da buydu. Çok teşekkür ederim. Emeğinize sağlık.

 

[AdemCan]

Rica ederim.