Sorgu için arama sonuçları: followhyperlink

...Type:=xlTypePDF, Filename:=pfad & "\" & dateiname2 ' Optional: PDF-Datei in einem neuen Fenster öffnen ' Application.FollowHyperlink pfad & "\" & dateiname2 End Sub Bu sekilde belirli bir alani bilgisayara Pdf seklinde kaydedebiliyorum ancak internette bir ortak alan...

...= Range("D4").Value ' WhatsApp web URL'sini oluştur url = "https://web.whatsapp.com/send?phone=" & phoneNumber & "&text=" & WorksheetFunction.EncodeURL(message) ' WhatsApp Web'i varsayılan tarayıcıda aç ThisWorkbook.FollowHyperlink Address:=url, NewWindow:=True End Sub

...Range("D170").Select ActiveSheet.Paste Selection.ShapeRange.Name = "picture 1" sh.Shapes("picture 1").Copy ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send?phone=" & Cells(i, 33) & "&Text=" & Cells(i, 43) Application.Wait (Now + TimeValue("00:00:15")) Call...

...kime As String Dim metin As String kime = Sheets("Data").Range("B1").Text metin = Sheets("Data").Range("B2").Text ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send?phone=90" & kime & "&text=" & metin & "&app_absent=1&send=1" Application.Wait (Now +...

...Syg, If ListBox1.ListIndex < 0 Then MsgBox "Listeden seçim yapılmalı!" Exit Sub End If On Error GoTo hata aranan = ListBox1.List(ListBox1.ListIndex, 9) DosyaYol = ThisWorkbook.Path & "\" & aranan & ".pdf" ActiveWorkbook.FollowHyperlink DosyaYol Exit Sub hata: MsgBox "Aranan Dosya bulunamadı"

...bilgim yok açıkçası. Bizimkisi el yordamı. Link örneği aşağıdaki gibi. Telefon numarasını bulamaz ise hata veriyor. ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send?phone=+905000000000&Text=Merhaba" URL kontrol eden bazı kodlar buldum ama, bu kodlar hiç açılmayan veya...

...On Error Resume Next Application.ScreenUpdating = False Application.CutCopyMode = False ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send/?phone=90" & Worksheets("YIF").Range("C2") Application.Wait (Now + TimeValue("00:00:10"))...

bu kodda Application.Wait (Now + TimeValue("00:00:02")) yerine başka bir kod kullanabilirmiyiz? yani send key değilde click yapmak istediğimizde yeni sayfanını açılmasını beklemek için manuel bir zaman yerine sayfa açılana kadar bekleme yapabilirmiyiz?

...As String Dim linkAdresi As String KullaniciAdi = Sheets("Sayfa1").Range("A2").Copy linkAdresi = Range("C2").Value ActiveWorkbook.FollowHyperlink Address:=linkAdresi Application.Wait (Now + TimeValue("00:00:5")) Call SendKeys("{TAB}", True) 'Application.Wait (Now + TimeValue("00:00:02"))...

...As Range, X_Address As String Set Rng = Sayfa1.Range("C2") If Rng.Hyperlinks.Count > 0 Then ThisWorkbook.FollowHyperlink Rng.Hyperlinks(1).Address Else X_Address = Replace(Replace(Split(Sayfa1.Range("C2").Formula, ",")(0), "=HYPERLINK(", ""), ",", "")...

...Sayfaadi.Range("H" & i).Value <> "" Then '' H de numara var mı alo_whatsup = Sayfaadi.Range("H" & i).Value 'Numaramız ThisWorkbook.FollowHyperlink "https://web.whatsapp.com/send?phone=%2B" & alo_whatsup & "&text=" & _ Sayfaadi.Range("A" & i).Value & "&app_absent=1&send=1" ' A sütununda...

...Object resimyolu = "C:\Users\sami\Desktop\okul.png" Set resim = ActiveSheet.Pictures.Insert(resimyolu) resim.Copy ActiveWorkbook.FollowHyperlink Address:="https://twitter.com/home" Application.Wait (Now + TimeValue("00:00:15")) Call SendKeys("n", True) Application.Wait (Now +...

Necdet bey , bu şekilde parça parça twitıra atıyor, zaman faktoru oldugu için sıralama karışabılıyor, twit = Range("A" & i) & " " & _ Range("A" & i + 1) & " " & _ Range("A" & i + 2) yukarda yazdıgınız kısmı tek seferde 3 satırı bırden seçme şansımız olamaz mı ? ilginiz...

...siz 3 değeri birleştirmek istiyorsunuz. Sizin kodlarınızda değişiklik yaptım. Umarım doğru anlamışımdır. Sub TW() ActiveWorkbook.FollowHyperlink Address:="https://twitter.com/home" Application.Wait (Now + TimeValue("00:00:05")) For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 3...

...şekilde; Private Sub CommandButton1_Click() 'Web Sitesine girme işlemi On Error Resume Next 'Hataları gizleme komutu ActiveWorkbook.FollowHyperlink Address:="http://deneme/giris.html" '5 Saniye sitenin açılması için bekleme komutu Application.Wait (Now + TimeValue("00:00:05")) Call...

Selamlar Örnek buton ile Google açma; Private Sub CommandButton1_Click() ActiveWorkbook.FollowHyperlink Address:="https://www.google.com.tr", NewWindow:=True End Sub

Aşağıdaki gibi deneyin. ActiveWorkbook.FollowHyperlink "https://excel.web.tr"

Call SendKeys("{ENTER}") yerine Call SendKeys("{ENTER}", TRUE) yazsanız çalışır mı acaba?

Hocam olmadı. Yine aynı netice. Ayrıca ENTER'a basmıyor.

Şu şekilde dener misiniz ActiveWorkbook.FollowHyperlink Address:= "http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2), NewWindow:=False