İNDİS Formülü ile yaptığımı Makro ile yapmak

[policeman]

Merhaba..
Örnek dosyamda da belirtmiş olduğum üzere formül ile yapabildiğimi "GETİR" düğmesine atayabileceğim Makro ile yapmak istiyorum..
Yardımlarınızı bekliyorum..
Saygılarımla..

 

[çıtır]

Deneyiniz.

Sub bulyaz()
Application.ScreenUpdating = False
Dim i As Integer
Set s1 = Sheets("Data")
Set s2 = Sheets("Bilgi")
son1 = s1.Cells(65536, "A").End(3).Row
son2 = s2.Cells(65536, "A").End(3).Row
s2.Range("G3:H" & s2.Cells(65536, "A").End(3).Row + 1).ClearContents
On Error Resume Next
For i = 3 To son2
aranan = s2.Range("A" & i)
t = WorksheetFunction.CountIf(s1.Range("A3:A" & son1), aranan)
If t > 0 Then
sat = WorksheetFunction.Match(aranan, s1.Range("A3:A" & son1), 0)
s2.Range("G" & i) = WorksheetFunction.Index(s1.Range("F3:F" & son1), sat, 1)
s2.Range("H" & i) = WorksheetFunction.Index(s1.Range("G3:G" & son1), sat, 1)
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam", vbInformation
End Sub

 

[policeman]

Teşekkür ettim Sayın çıtır;bilginize sağlık..

 

[çıtır]

Teşekkür ettim Sayın çıtır;bilginize sağlık..

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[50ersin]

Sy. Çıtır ;
Makroya yeni başladım size zahmet olmazsa aşağıdaki formülü Makroya göre yapabilir misiniz. Teşekkür ederim.
=EĞERHATA(İNDİS(KOM!$A$1:$A$222;KÜÇÜK(EĞER(KOM!$Q$1:$Q$222=$N$1;SATIR(KOM!$Q$1:$Q$222));SATIRSAY($B$140:$B140)));"")