Formülü vba'ya çevirme

[excel_ance]

PARÇAAL(DÜŞEYARA($Y$71;'GİRİŞ EKRANI'!$B$3:$AM$1338;2;0);1;1) arkadaşlar bu formülü nasıl vba yapacağız yardım edermisiniz. vba yı ekteki dosyaya uygulamak istiyorum.

 

[Orion1]

MsgBox Mid(WorksheetFunction.VLookup(Range("Y71").Value _
, Sheets("GİRİŞ EKRANI").Range("B3:AM13338"), 2, 0), 1, 1)

 

[excel_ance]

sayın Evren Gizlen formülü eklediğim kkk ye uyguladım fakat olmadı yardım edermisiniz.

 

[Orion1]

sayın Evren Gizlen formülü eklediğim kkk ye uyguladım fakat olmadı yardım edermisiniz.

kkk nedir?

 

[excel_ance]

ekteki dosya üstad

 

[Orion1]

Üstteki satıra aşağıdaki kodu giriniz.

On Error Resume Next

 

[haso_excel]

Merhaba arkadaşlar,

Sub vlookup_1() 'sheet1 den
'On Error GoTo hata
For sut = 2 To WorksheetFunction.CountA(Range("C:C"))
Range("D" & sut) = WorksheetFunction.VLOOKUP(Range("C" & sut), Sheets("Sheet1").Range("a:B"), 2, 0)
Next
Exit Sub
End Sub

Yukarıdaki kod ile Sheet2 ye sheet1 den veri getiriyorum. Ama kod Sheet2 de iken çalışyor. Ben Sheet1 de yada workbook hangi sayfasında olursam oluyım kodu çalıştırdığımda Sheet2 deki D2 hücreseinden başlayarak vlookup nasıl çalışır.