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
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