#Yok ve Yanlış Hatalarını Makro ile Değiştirmek

[cavanoos]

Merhaba;

Formül sonucu, yanlış yada yok değeri dönüyor.
Bunları CTRL + F tuş kombinasyonları ile silebiliyorum

Bu işlemi makro ile yapmak istediğimde olmuyor.
Kullandığım kod alttadır.
Yardım edebilir misiniz ?

Columns("E:G").Select
Selection.Replace What:="YANLIŞ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="#YOK", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

[Korhan Ayhan]

MAKRO KAYDET yöntemi ile gerekli kodları elde edebilirsiniz.

 

[cavanoos]

Korhan Bey;

Bu kodları kendim yazmadım. Makro kaydet ile oluşturdum, ama olmuyor

 

[Korhan Ayhan]

Formülleri değere çevirdikten sonra denemeler yapınız..

 

[cavanoos]

Hücreleri formülden kurtardığım halde olmuyor.

 

[Korhan Ayhan]

Örnek dosya paylaşırsanız deneyebiliriz.

 

[cavanoos]

Korhan Bey;

Sorunu bir başka şekilde çözmeye başladım.
Yok ve yanlış hatalarını eğerhata fonksiyonu ile istediğim metni getiriyorum.
Sonra yine yukarıdaki kod ile değiştirebiliyorum.
Yok hatasını giderdim. Yanlış hatasını gideremiyorum.
Bu konuda sizden yardım isteyeceğim.
Aşağıdaki formülü çalıştırdığımda yanlış yerine Kayıt Bulunamadı almak istiyorum ama olmuyor.
Hata nerde ?

EĞERHATA(EĞER(ESAYIYSA(MBUL("PEYAS MAH";B2));"MG35");"Kayıt Bulunamadı")

 

[cavanoos]

Korhan Bey;

Başlığın adını değiştirdim ki, oldu da benimle aynı sıkıntıyı yaşayan olursa bu başlık yardımcı olsun.
İsteğiniz üzere ekteki dosyayı hazırladım.

 

[Korhan Ayhan]

Deneyiniz.

=EĞER(ESAYIYSA(MBUL("PEYAS MAH";B2));"MG35";"Kayıt Bulunamadı")

 

[cavanoos]

Elinize sağlık