WorksheetFunction.VLookup hata veriyor

[macay]

Merhabalar,

Sub Hh()
UrtIcm.[B13] = WorksheetFunction.VLookup_(UrtIcm.[AD13], [Ana.xls]!sayfa(13).[E13:H644], 2, 0)
End Sub

şeklinde bir VBA makrosu yazdım ama Run-Time errror '424': Object Required şeklinde bir hata mesajı veriyor..

Yapmak istediğim şu UrtIcm.xls diye bir çalışma sayfam var..bu sayfanın B13 hücresine Ana.xls kitapçığındaki sayfa13 sayfasından ilgili veriyi VLookup ile getirmek istiyorum..bunu Düşeyara fonksiyonu yapıyorum ama yapmak istediğim bunu VBA makrosu ile yapmak ve kitapçığın gereksiz şişmesini engellemek

Saygılarımla,

 

[hamitcan]

Sub Hh()
UrtIcm.[B13] = WorksheetFunction.VLookup_(UrtIcm.[AD13], [Ana.xls]!sayfa(13).[E13:H644], 2, 0)
End Sub

kodunu aşağıdaki ile değiştirip deneyin.

Sub Hh()
UrtIcm.[B13] = WorksheetFunction.VLookup(UrtIcm.[AD13], [Ana.xls]!sayfa(13).[E13:H644], 2, 0)
End Sub

Not: Sorun alt çizgi kullandığınız için olabilir.

 

[macay]

Yok sayın hocam alt çizgiyi kaldırdım yine olmadı
Sub HHH()
Sheet(1).[B13] = WorksheetFunction.VLookup(Sheet(1).[AD13], [Ana.xls]!sayfa(13).[E13:H644], 2, 0)
End Sub

gibi bir kod yazdım bunada compile error hatası verdi.

 

[hamitcan]

Eğer bilgilerinizi aynı çalışma kitabı içinde bulmaya çalışıyorsanız, kodu

Sub HHH()
Sayfa1.[B13] = WorksheetFunction.VLookup(Sayfa1.[AD13], sayfa13.[E13:H644], 2, 0)
End Sub

şeklinde değiştirip deneyin.

 

[macay]

Evet hocam,

Sub HHH()
Sayfa1.[B13] = WorksheetFunction.VLookup(Sayfa1.[AD13], sayfa13.[E13:H644], 2, 0)
End Sub

Şeklinde kod yazınca veriler aynı çalışma kitabındaysa çalışıyor ama benim bilgilerim Ana.xls adlı kitapta ve ben ne yaparsam yapayım olmadı ya compile hatası veriyor yada debug bu işi yapabilmenin yolu nedir..

Saygılar,

 

[macay]

bu problemi düzeltemezmiyiz

 

[hamitcan]

Eğer almak istediğiniz bilgiler kapalı bir dosya içindeyse, sitedeki Ado uygulamaları ile ilgili örneklere bakın.
Eğer almak istediğiniz bilgiler açık bir dosya içindeyse, aşağıdaki kodu deneyin.

Sub HHH()
Sayfa1.[b13] = Evaluate("VLOOKUP(""" & Range("AD13").Value & """,[Ana]Sayfa13!$E$13:$H$644,2,FALSE) ")
End Sub

 

[macay]

Hocam çalıştı ama #BAŞV!
verdi

 

[hamitcan]

Dosyanızı incelemek gerekir. Çünkü ben de doğru çalışıyor.

 

[macay]

sayın hocam dosyayı ekledim ilgin için çok teşekkür ederim..

 

[hamitcan]

Haklısınız çalışmadı. Ben de kodu değiştirdim. Bir de böyle deneyin.

Sub bul()
    Dim myRange As Range
    Set myRange = Workbooks("Anaa").Worksheets("StkHrkIcm").Range("E13:H644")
    answer = WorksheetFunction.VLookup([ad13], myRange, 2, False)
    [b13] = answer
End Sub

 

[macay]

Hocam süpersin..tam olarak işimi gördü..Eline sağlık..ilgin için çok teşşekkür ederim...

Müsait olduğunuz bir zaman bu yazılanların manasınıda yazarsanız aynı formattaki sorunlarıda kolayca çözebiliriz bizimde bilgimizin gelişmesine katkıda bulunursunuz..Tekrar teşekkür ederim..

Saygılarımla