Sorgu için arama sonuçları: followhyperlink

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

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