Run Time Error 438 Hatasını Çözme

  • Konuyu başlatan Konuyu başlatan imran
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
28 Tem 2022
Mesajlar
7
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,

Resimdeki hatanın çözümü için desteğinizi rica ederim.

1619254757969.webp



1619254998349.webp
 
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).
 
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
VBA:
Sub whatsapp_link()

For i = 2 To 10

numara = Sheets("Sayfal").Range("A" & i)
mesaj = Sheets("Sayfal").Range("B" & i)
Sheets("Sayfal").Range("C" & i) = "https://api.whatsapp.com/send?phone=" & numara & "&text=" & mesaj

Range("C" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Range("C" & i)

Next

End Sub

Sub whatsapp_gonder()
For i = 2 To 10
Range("C" & i).Select

Selection.hyperlings(1).follaw NewWindow:=False, addhistory:=True

Application.Wait (Now + TimeValue("00:00:07"))

Call SendKeys("-", True)

Application.Wait (Now + TimeValue("00:00:03"))

Next

End Sub
 
Ü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
 

Ekli dosyalar

  • 1619268849903.webp
    1619268849903.webp
    71.3 KB · Görüntüleme: 49
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt