Makro ile tablodan değer bulma

[pars_turk]

İyi günler arkadaşlar, benim sorum şu ki, excel'de "sayfa2"de yer alan bir tablodan değerleri okutmayı ve bunları bir döngüde kullanmayı başaramadım. Yazdığım kod aşağıdaki gibi fakat kalın harfler ile yazılmış satırda hata veriyor. O kısımdaki kodu nasıl düzeltebilirim?

Private Sub Worksheet_Change(ByVal Target As Range)
n = Range("P14")
a = Range("R14")
For i = 2 To 24
k = Worksheets("Sayfa2").Cells(i, "1")
If k = n Then x = k
End
Next i
For j = 2 To 6
l = Worksheets("Sayfa2").Cells("1", j)
If l = a Then y = l
End
Next j
Deger = Sheet2.Range("xy")
Deger = Worksheets("Sayfa2").Cells(x, y)
Worksheets("Sayfa1").Cells(22, "S") = Deger
End Sub

 

[Orion1]

A sütunu için şöyle deneyin.

k = Sheets("Sayfa1").Cells(i, "A")

 

[Necdet]

Merhaba,

Foruma hoş geldiniz.

Siz kodları boşverin de, ne yapmak istediğinizi açık açık yazarsanız, arkadaşlarımız yardımcı olacaktır. Dolayısıyla o kodları incelersiniz.

Kodlarınızdan ne yapmak istediğinizi anlamak güç.

 

[Murat OSMA]

A sütunu için şöyle deneyin.

k = Sheets("Sayfa1").Cells(i, "A")

O satırı geçince yine dur denilecek.

 

[pars_turk]

Merhaba,

Foruma hoş geldiniz.

Siz kodları boşverin de, ne yapmak istediğinizi açık açık yazarsanız, arkadaşlarımız yardımcı olacaktır. Dolayısıyla o kodları incelersiniz.

Kodlarınızdan ne yapmak istediğinizi anlamak güç.

Yapmak istediğim şu ki, "sd=" kısmından bulunan değeri "sayfa2" deki tablonun satırındaki bir değer ile eşleştirmek ve "a=" kısmından bulunan değeri de "sayfa2" tablonun sütunundaki bir değer ile eşleştirmek. İki eşleşmeden çıkan değeri de "D0,05;15=" kısmına yerleştirmek.
Yani sayfa2'deki tablonun sütunlarına j, satırlarına da i dersek "aij" elemanının değerini buldurmak

 

[Orion1]

O satırı geçince yine dur denilecek.

Ben denedim.
hata vermedi.