Run Time Error 438 Hatasını Çözme

Merhaba, foruma hoşgeldiniz Sayın @imran,

Sorularınızı, ekran görüntüsü yerine; örnek belge üzerinden sorarsanız daha hızlı sonuca ulaşmanız kolaylaşır.
Örnek belge özellikleri konusunda, cevabımın altındaki İMZA bölümünde yeterli açıklama mevcut (okuyunuz).

Dosya ek'tedir.

Örnek dosyayı makrosuz kaydedip paylaşmışsınız.

durun hemen yapıp atayım

Eklenen dosyada zaten makro kodları yok (.xlsx uzantılı olduğundan belli zaten).
Olmayan makro kodlarındaki hata nasıl tezpit edilebilir, nasıl çözüm üretilebilir.

@imran
Makroların içerisinde olduğu yeni bir örnek belge veya en azından mevcut kodları eklerseniz iyi olur.

makrolar kayıt edilemiyor ben dosyayı kaydet diyorum çıkıp girince makrolar siliniyor ama kodlar şu

Belgeyi .XLSM veya .XLSB uzantılı olarak kaydetmezseniz kodlar silinir.

Güncel dosya ek'tedir.

Üstadlarım daha iyi bilir.
Ben makrodan anlamam ama dikkatimi çekenler;

1. Telefon numaralarını başında + olmadan yazın 905381234567 gibi
2. Selection.hyperlings(1).follaw NewWindow:=False, addhistory:=True
kısmı sanırım
Selection.hyperlinks(1).follow NewWindow:=False, addhistory:=True
olacak.
Deneyiniz.

çok teşekkür ederim oldu bir de şuradaki butonları nasıl sabitlerim

çok iyi olmuş ellerinize sağlık