makro duseyara sonucu yok hatası sılme

[arifcetin93]

Merhaba

asagıdaki döngunun sonucu yok hatasını bos olarak yazdırmak ıcın neyı eklememız lazım


For i = 2 To Sayfa1.Range("A2").End(xlDown).Row

Sayfa1.Cells(i, 9) = Application.VLookup(Sayfa1.Cells(i, 3), Sayfa2.Range("C:E"), 3, False)

Next

 

[Korhan Ayhan]

Merhaba,

Deneyiniz.

Sayfa1 de 9. Sütunun içeriğini temizledikten sonra kodu yeniden çalıştırın.

For i = 2 To Sayfa1.Range("A2").End(xlDown).Row
If Not IsError(Application.VLookup(Sayfa1.Cells(i, 3), Sayfa2.Range("C:E"), 3, False)) Then
Sayfa1.Cells(i, 9) = Application.VLookup(Sayfa1.Cells(i, 3), Sayfa2.Range("C:E"), 3, False)
End If
Next

 

[Korhan Ayhan]

Linkte faydalı olabilir..

Makro ile Düşey ara

Merhaba üstatlar Ekli dosyada Makro ile düşey ara işlemi gerçekleştiriyorum, işlemi yapıyor ancak bir hata veriyor kodlardaki hata nedir acaba?

www.excel.web.tr

 

[arifcetin93]

emegınız cok buyuk
Korhan hocam ALLAH razı olsun