Sorgu için arama sonuçları: followhyperlink

...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

...Birincisi her seferinde Chrome açıyordu, ikincisi zamanlama. Yalnız hâlâ her seferinde ayrı WhatsApp sekmesi açıyor. ActiveWorkbook.FollowHyperlink Address:="http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2) Satırını ayıramadım. Private Sub CommandButton1_Click()...

...Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"), vbMaximizedFocus ActiveSheet.Shapes("xxx").Copy ActiveWorkbook.FollowHyperlink Address:="http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2) 'Aplication.Wait Now + TimeValue("00:00:05") Call...

...= SearchTreeForFile(topFolder, Target & ".pdf", tempStr) If Ret <> 0 Then pdfFile = Left$(tempStr, InStr(1, tempStr, Chr$(0)) - 1) ActiveWorkbook.FollowHyperlink pdfFile Else MsgBox "Dosya bulunamadı!" End If End If End...

Kod çalıştı , çok teşekkürler

Altenatif; Kodu butona tanımlayınız. Sub Link_Open() ActiveWorkbook.FollowHyperlink Range("A1").Value End Sub

...pth & "*" & Target.Value & "*.pdf" dosya = Dir(fname) If dosya <> "" Then dosya = pth & dosya ActiveWorkbook.FollowHyperlink dosya Else End If End Sub Yukarıdaki kod ile; pth = "C:\Users\tahsin.anarat\Documents\HCP Anywhere\Tahsin_anarat\irsaliyeler\"...

...ile ilgili video denk geldi ama çalıştıramadım nerede yanlış yapıyorum yardımcı olabilirmisiniz. Sub TWWT() ActiveWorkbook.FollowHyperlink Address:="https://twitter.com/home" Application.Wait (Now + TimeValue("00:00:07")) For i = 1 To 5 twit = Range("A" & i) Call SendKeys("n", True)...

...< 6 Then Exit Sub Dosyasonu = Right(strDownloads, Len(strDownloads) - InStrRev(strDownloads, "\")) ActiveWorkbook.FollowHyperlink strDownloads Range("a1").Select If Range("I6").Value <> "İŞLETMEDEKİ SIĞIR-MANDA TÜRÜ HAYVAN BİLGİ RAPORU" Then MsgBox ("Lütfen doğru liste...

selamlar sizede umarım yardımcı olurlar , takipteyim emekleriniz için teşekkür ederim

...dosya paylaşıyorum. Her iki sekmede birbirine yakın ama hemen hemen aynı basit bir uygulama "ama" aşağıdaki satırda; ActiveWorkbook.FollowHyperlink address:="https://twitter.com/home" Görsellerdeki hataları alıyorum; (baya bir araştırdım ama bir türlü çözemedim) Belki formdan kıymetli...