İnternet Bağlantısı Olduğunda Veya Olmadığında Raporunu Worde Yazar Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! Makroyu Kopyala 'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. Option Explicit Sub MessageAbrufen() Dim appWord As Object Dim docWord As Object Dim txt As String txt = LoadURL(Range("A1").Value) Set appWord = CreateObject("Word.Application") Set docWord = appWord.documents.Add With docWord.Range With .Font .Name = "Courier New" .Size = 8 End With .Text = txt End With appWord.Visible = True Set appWord = Nothing Set docWord = Nothing End Sub Function LoadURL(URL As String) As String Dim IEApp As Object Dim IEDocument As Object Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = False IEApp.Navigate URL Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False Set IEDocument = IEApp.Document LoadURL = IEDocument.Body.innerText IEApp.Quit Set IEDocument = Nothing Set IEApp = Nothing End Function Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro Adı 1 internet bağlantısı olduğunda veya olmadığında raporunu worde yazar 2 excelde kendi eklenti ve fonksiyonlarınızı oluşturun 3 excel operatörleri hk 4 textbox nesnesi tab tuşuyla veya mausla seçildiğinde yani aktif olduğunda renk değiştirme 5 makroda bir veya birden çok değer döndürmek 6 microsoft outlookdan uyarı e-maili göndersin 7 kod yazarak showmodal durumunu ayarlamak. 8 süzlü aktarma 9 makrolar kutusu ve makrolar görünsün 10 internetten dosya indirmek 11 hücre değerini açiklamaya ekleme 12 hepsi bir arada toplama çarpma bölme 13 internete dial up la bağlanmak için 14 kod yazarken 15 şifrelemede son nokta 16 t.c. merkez bankası güncel döviz kurlarını alma 17 istenilen yazıcıyı aktif yapmak için 18 a1:d20 arasında kırmızı olan hücreleri toplar 19 a1:d20 hücreleri arasındaki arka plan rengi kırmızı olan hücreleri toplar 20 A sütununda verilere göre sayfa ekler ve D sütununa kadar olan verileri de yazar