vlookup fonksiyonunda error durumunda "0" atama

[Aytaç]

Merhaba arkadaşlar,
vlookup fonksiyonunda error durumunda sıfır atamasını istiyorum fakat nası yapacağımı bilemiyorum son olarak aşağıdaki kodu denedim fakat yine hata verdi acaba bunun bi yolu var mıdır_?

For i = 8 To referans - 2
If WorksheetFunction.VLookup(Cells(i, 3), verimar, 30, False) Is Error Then
Cells(i, gun + 4) = 0
Else
Cells(i, gun + 4) = WorksheetFunction.VLookup(Cells(i, 3), verimar, 30, False)
End If


daha önce "is error" yerine "=Error" ; "on Error" gibi uydurma denemelerim oldu fakat sonuç hüsran oldu...

 

[Sıbırya]

Merhaba Aytaç,
Bende vlookup ' cok kullanırım..
Ama hücreye direk yazıyorum;
=IF(ISERROR(VLOOKUP(A7;sheet1!A:C;3;FALSE));0;VLOOKUP(A7;sheet1!A:C;3;FALSE))
Umarım işini görürü.

 

[Aytaç]

Sayın Sibirya,
Normalde düşeyara komutu ile çalışıyordum fakat dosyayanın 34mb gibi büyük bi boyuta gelmesi ve yaptığım en ufak bir veri girişinden sonra 20.000'e yakın hücrede hesap yapması nedeniyle sürekli olarak alt sol köşede hesaplanan hücreler yazısı çıkıyor ve birkaç dakika hesap yapıyor. Bende bunun yerine sadece çalıştığım günde formüllerin aktif olması aynı zamanda ben istediğim zamanlarda hesap yapması için bütün formülleri macro kodu içinde yazmaya karar verdim. Normal şartlarda önerdiğiniz formül çok yararlı olacaktı fakat şu anki şartlarda önerdiğiniz kod hücrenin içine formül yazıyor ve dosya tekrar aynı haline dönüyor. İlginiz için çok teşekkür ederim... Yeni önerilerinizi bekliyorum...