ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[MasterofOmk]

Arkadaşlar kolay gelsin

makroda düşey ara yapmak istiyorum ancak tablomun içinde değer var ise sorun çıkarmadan çalışırken tabloda aranan değer yok ise vlookup özelliği alınamıyor hatası veriyor

hatalı satır da
Sheets("RAPOR").Range("b8").Value = IIf(IsError(Application.WorksheetFunction.VLookup(3489, Sheets(2).Range("a2:f6"), 3, True)), 0, (Application.WorksheetFunction.VLookup(3489, Sheets(2).Range("a2:f6"), 3, False)))
Derdim de şudur sql db den veri çeken bir tablom var bu tablo oluştuktan sonra eğer o tablo içerisinde 3489 değeri var ise onun 3. kolona denk gelen verisini alıp ilgili hücreye yazdırmak istiyorum. Yok ise 0 yazsın. Ancak hata veriyor.

Yardımcı olabilirseniz çok memnun olurum

[Tarkan VURAL]

Merhaba,
Hata kodu ve açıklaması nedir ?

[MasterofOmk]

Merhaba,
Hata kodu ve açıklaması nedir ?

Runtime error'1004':
worksheetfunction sınıfının vlookup özelliği alınamıyor

[şahin]

Bu şekilde dene

Kod: Tümünü seç

Sub vlookup_()
On Error Resume Next
sonuc = Application.WorksheetFunction.VLookup(3489, Sheets(2).Range("a2:f6"), 3, False)
Sheets("RAPOR").Range("b8").Value = IIf(Err.Number >= 1, 0, sonuc)
Err.Number = 0
End Sub

[şahin]

Kod: Tümünü seç

Sub vlookup_()
On Error Resume Next
sonuc = Application.WorksheetFunction.VLookup(3489, Sheets(2).Range("a2:f6"), 3, False)
Sheets("RAPOR").Range("b8").Value = IIf(Err.Number = 1004, 0, sonuc)
Err.Number = 0
End Sub

[MasterofOmk]

Kod: Tümünü seç

Sub vlookup_()
On Error Resume Next
sonuc = Application.WorksheetFunction.VLookup(3489, Sheets(2).Range("a2:f6"), 3, False)
Sheets("RAPOR").Range("b8").Value = IIf(Err.Number = 1004, 0, sonuc)
Err.Number = 0
End Sub

Cevap için teşekkür ederim. Ancak bu kodu sayfanın içerisine mi yazacağız, yoksa ayrı bir modül içine yazıp sayfadan mı çağıracağız.

[MasterofOmk]

Kod: Tümünü seç

Sub vlookup_()
On Error Resume Next
sonuc = Application.WorksheetFunction.VLookup(3489, Sheets(2).Range("a2:f6"), 3, False)
Sheets("RAPOR").Range("b8").Value = IIf(Err.Number = 1004, 0, sonuc)
Err.Number = 0
End Sub

Şahin bey çok teşekkür ederim. Yardımlarınızdan dolayı. İşimi gördü bir modül içerisine yazıp sayfadan çağırdığımız zaman sorunsuz çalıştı. Değerli vaktinizi ayırdığınız için ayrıca teşekkürler. Cevap yazarak yardımcı olmaya çalışan diğer arkadaşlara da ayrıca teşekkürler.