Sayfada bul ve göster

[lovekiller]

Herkese merhaba
Bana Veri olan sayfada kriterleri girdiğimde bunlara karşılık gelen değeri veren kodlar gerekiyor.Ã?rneğin textbox1'e 1977 textbox2'ye Aralık girdiğimde sayfada bunun kesişimi olan değeri label'a yazsın.Teşekkürler.

 

[Haluk]

Ocak, Þubat, Mart...... gibi aylar A2:A13 aralığında,
1975, 1976,............... gibi yıllar B1:L1 aralığında,
UserForm üzerinde TextBox1, TextBox2, Label1 ve CommandButton1 nesneleri varsa;

Private Sub CommandButton1_Click()
    On Error GoTo ResumeSub:
    x = Range("A2:A13").Cells.Find(TextBox1).Row
    y = Range("B1:L1").Cells.Find(TextBox2).Column
    Label1.Caption = Cells(x, y)
    Exit Sub
ResumeSub:
    Label1.Caption = "Deger bulunamadi...."
End Sub

 

[lovekiller]

Ã?zür dilerim geç oldu.İlginize teşekkür ederim.İyi çalışmalar