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