• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sorgu için arama sonuçları: followhyperlink

  1. muratgunay48

    Enter'a basmak

    ...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()...
  2. muratgunay48

    Enter'a basmak

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

    Çift tıklama ile alt klasörlerdeki içeren pdf dosyalarını açma

    ...= 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...
  4. B

    Çözüldü ŞEKİLLERE VBA İLE LİNK VERMEK

    Kod çalıştı , çok teşekkürler
  5. Korhan Ayhan

    Çözüldü ŞEKİLLERE VBA İLE LİNK VERMEK

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

    Çift tıklama ile alt klasörlerdeki içeren pdf dosyalarını açma

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

    Oto Twit

    ...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)...
  8. S

    En son indirilen exceli makro ile açmak

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

    Soru ücreti mukabilinde tw oto mesaj programı

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

    Soru ücreti mukabilinde tw oto mesaj programı

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

    excel den whatsapp msj gönderme hakkında

    ...& ".xlsx") Set s2 = Worksheets(1) kime = Sheets("Sayfa1").Range("F1").Text metin = s2.Range("A1:G2").Copy ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/" Application.Wait (Now + TimeValue("00:00:10")) Call SendKeys("{TAB}", True) Application.Wait (Now +...
  12. E

    PDF Kaydederken "Fit Sheet On One Page"

    ...".") - 1) Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "PROFORMA FATURA-" & Dsy & "-" & [A1] Syf.PageSetup.Zoom = False: Syf.PageSetup.FitToPagesWide = 1 Syf.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol ThisWorkbook.FollowHyperlink Yol & ".Pdf"...
  13. Korhan Ayhan

    Makro ile PDF önizlemesi ve PDF listeleme

    ...Set Alan = Nothing ActiveSheet.Range("filePath").Value = DialogBox.SelectedItems(1) ActiveWorkbook.FollowHyperlink DialogBox.SelectedItems(1) AppActivate VBA.Split(DialogBox.SelectedItems(1), Application.PathSeparator)(1) Application.Wait Now +...
  14. northcyprus

    Bir dosyanın köprüsünden gelen uyarı mesajı

    ...kodda gelen mesaja On Error Resume Next ten sonra Tamam ı tıkla diye bir kod ekleyebilirsek olur mu aceba. Sub sarkı1() Dim fileaudio As String On Error Resume Next fileaudio = "C:\.........................................wav" ActiveWorkbook.FollowHyperlink Address:=fileaudio End Sub
  15. S

    Veri Doğrulamada Köprü Oluşturma

    Korhan bey merhaba, Yardımlarınız ve ilginiz için çok teşekkür ederim bir şeyleri yanlış yaptığımdan sonuca ulaşamıyorum sizi daha fazla uğraştırmak istemem sağ olun var olun.
  16. Korhan Ayhan

    Veri Doğrulamada Köprü Oluşturma

    ...Target As Range, Cancel As Boolean) Dim Yol As String If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub Cancel = True Yol = "C:\Users\Admin\Desktop\Test\" & Target.Value & ".jpg" ActiveWorkbook.FollowHyperlink Address:=Yol, NewWindow:=True End Sub
  17. S

    Klasör içindeki dosyalara bağlantı oluşturmak

    Hocam bu hali tam istediğim gibi oldu,Teşekkürler.
  18. Cengiz Demir

    Klasör içindeki dosyalara bağlantı oluşturmak

    ...Then bul.Offset(i, 0).Activate Dim strFilePath As String strFilePath = "\\Dosya Yolu\" & ComboBox1.Value '& ".pdf" ThisWorkbook.FollowHyperlink (strFilePath) Exit For End If Next bul End Sub Bu çalışma kitabındaki kod aşağıdaki gibi düzenlenecek. Private Sub WorkBook_open() For i = 1 To 200...
  19. S

    Klasör içindeki dosyalara bağlantı oluşturmak

    ...bul.Offset(i, 0).Activate Dim strFilePath As String strFilePath = "\\dosya yolu\" & ComboBox1.Value & ".pdf" ThisWorkbook.FollowHyperlink (strFilePath) Exit For End If Next bul End Sub workbook Private Sub WorkBook_open() For i = 1 To 200 Sayfa1.ComboBox1.AddItem Range("A"...
  20. mancubus

    whatsapp ile aktif satırdaki bilgileri gönder

    ...& "BAGLANTI_TUTARI: " & Range("AE" & lRow) & vbCrLf waMsg = waMsg & "PLASIYER_eposta: " & Range("AF" & lRow) ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2) Application.Wait Now + TimeValue("00:00:20")...
Üst