Sorgu için arama sonuçları: followhyperlink

Herkese merhaba, Hazırladığım makroda excel dosyasının hemen yanında bulunan "images" klasörünün içindeki fotoğrafları Textboxtan gelen hedef ile button kullanarak açıyorum. ancak sorun şu ki klasörün içinde böyle bir dosya olmadığında haliyle hata veriyor. içinde aradığımız isimde bir dosya...

...Private Sub CommandButton2_Click() Unload Me End Sub Private Sub Label1_Click() On Error Resume Next ActiveWorkbook.FollowHyperlink Address:="http://www.excel.web.tr", NewWindow:=True End Sub Private Sub SpinButton1_SpinDown() If TextBox1 = 1 Then TextBox1 = 1 Else...

selam arama yaptım ama benim istediğim tarzda bir formül yoktu. benim yapmak istediğim ekli dosyada görünen kalan stok 25 kg kalınca ürün ismi ile beraber otomatik olarak " x ürün 25 kg kalmıştır " şeklinde bir email göndermesi hiç sormadan.. benim bulduğum kod bu şekilde yukardaki kodda a1...

...fakat web bu kodları listbox4 den mail gönderme şeklinde düzenleyemedim forumdada bulamadım yardımlarınızı rica ediyorum teşekkürler Dim Link As String If T9 = i Then MsgBox e, , T Link = "mailto:" & T9 & "?Tarafınıza mail Gönderildi " ActiveWorkbook.FollowHyperlink Address:=Link...

...& "&" & "bcc=" & Recipientbcc & "&" HLink = HLink & "subject=" & Subj & "&" HLink = HLink & "body=" & msg ActiveWorkbook.FollowHyperlink (HLink) ' Application.Wait (Now + TimeValue("0:00:03")) ' Application.SendKeys "%n" End Sub Ben Bu Kodların birleşerek çalışmasını...

...& "&" HLink = HLink & "subject=" & Subj & "&" HLink = HLink & "body=" & Bady & " " & vbCr & Msg ActiveWorkbook.FollowHyperlink (HLink) Application.Wait (Now + TimeValue("0:00:01")) Application.SendKeys "%s", True KacMail = KacMail + 1 'End If 'Next i ------------------...

...Dim Link As String If T8 = i Then MsgBox e, , t Link = "mailto:" & T8 & "?Subject=Teklif Mektubu " ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True End Sub e-mail adres kutusuna T8 textbox'undaki adresi ve konuyada direkt olarak " Teklif mektubu" yazdırıyorum...