Dizide değer yoksa hata vermesin.

[Muhammet Okumuş]

Arkadaşlar,

WorksheetFunction.Match(liste(i, 4), liste1, 0) kodu değer varsa sorunsuz çalışıyor ama değer yoksa hata veriyor. Bu hatayı vermemesi için

If WorksheetFunction.Match(liste(i, 4), liste1, 0) = Empty Then GoTo 10

şeklinde kod satırı yazdım ama hatayı gideremedim. Dosyayı tam olarak oluşturmadım. Bu yüzden dosya yok.

Aranılan değer yoksa hata vermemesi için nasıl kod yazmak gerekir?

 

[Korhan Ayhan]

Aşağıdaki kalıbı kullanın.

If IsError(Application.Match(liste(i, 4), liste1, 0)) Then GoTo 10

 

[Muhammet Okumuş]

Hata düzelmedi.
"... sınıfının özelliği alınamıyor" diyor.

 

[Korhan Ayhan]

Hangi hata kodunu veriyor?

 

[Korhan Ayhan]

Üstteki mesajımdaki koda küçük bir ekleme yaptım. Tekrar deneyiniz.

 

[Muhammet Okumuş]

Korhan Bey, teşekkür ederim. Sorun çözüldü.