veri alma hatası ?

[öztürk1]

selam
bu makro ile Sayfa2 'den veri alamıyorum ne yapmam gerekir
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each a In Range("B1:B5")
i = a.Address
If Range(i) = "" Then GoTo AA
SONUC = WorksheetFunction.Index(Sheets("Sayfa2").Range("G1:K5"), _
WorksheetFunction.Match(Sheets("Sayfa2").Range(i), _
Sheets("Sayfa2").Range("H1:H5"), 0), 1)
Range(i).Offset(0, -1) = SONUC
AA:
Next
End Sub

 

[Levent Menteşoğlu]

Ne yapmak iştediğinizi belirtirseniz ona göre yardımcı olalım. Yukarıda verdiğiniz makro bir private prosedür olup sadece sayfanın kod sayfasına yazılarak kullanılabilir ve yazıldığı sayfada herhangi bir hücreyi imleçle seçtiğinizde çalışır. Yani bir butona bağlayamazsınız.

 

[öztürk1]

evet sayfanın kod sayfasına yazılmış ve verileride aynı sayfada bulunmakta. fakat benim istdeiğim: kodu, sayfa1 kod sayfasına yazmak, verileri de sayfa2 den almak