Fontları Sayfaya Yazdırma 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. Sub SchriftAuslesen() Dim cnt As CommandBarControl Dim intCounter As Integer Application.ScreenUpdating = False Set cnt = Application.CommandBars.FindControl(ID:=1728) For intCounter = 1 To cnt.ListCount With Cells(intCounter, 1) .Value = cnt.List(intCounter) .Font.Name = cnt.List(intCounter) End With Next intCounter Columns(1).AutoFit Application.ScreenUpdating = True End Sub 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 fontları sayfaya yazdırma 2 sayfayı istenilen sayı kadar yazdırma ve numaralandırma 3 yazdırmak için süzme şart olsun 2 4 hücredeki yazi karakterinin rengine göre filtreleme 5 veri olan tüm sayfaları yazdırır yoksa tarar ama yazdırmaz 6 önizlemesiz yazdırma 7 yazdırma alanını a3:f15 yapar ve yinelenecek satırı da seçer ve yazdırır 8 buton ile diğer sayfayı yazdirmak 9 aktif sayfayı yazdırma 10 Baskı Bu makro kodları, size daha fazla zaman kazandıracak bazı yazdırma görevlerini otomatikleştirmenize yardımcı olur. & Nbsp; Açıklamaları Yazdırın: Sayfanın sonundaki hücre yorumlarını basmak için ayarları etkinleştirmek için bu makroyu kullanın. Baskı yapmak için 10 sayfanız olduğunu varsayalım, bu kodu kullandıktan sonra 11. sayfadaki tüm yorumları alacaksınız. 11 sütunlarin gizlenmesi 12 Özel Sayfaları Yazdır: Yazdırma seçeneklerinden ayarı kullanmak yerine, bu kodu, özel sayfa aralığı yazdırmak için kullanabilirsiniz. 5 ila 10 arasındaki sayfaları yazdırmak istediğinizi varsayalım. Sadece bu VBA kodunu çalıştırmanız ve başlangıç sayfası ve bitiş sayfasını girmeniz yeterlidir. 13 seçilen alanlari bir kağitda yazdırır eder 14 seçilen alanları bir kağıtta yazdırır eder 15 hücrelerden biri veya birkaçı boş olunca yazdırmayı iptal etme 16 listbox1'in içindeki bütün verileri excel sayfasına yazdırma 17 Inputbox'a göre çıktı sayısı 2 18 dosya adı, yolu ve çalışma sayfası adını fornsiyonlarla yazdır 19 mesaj kutusu ile sayfa yazdırma adedi gir (sayfa boş bile olsa yazdırır) 20 filigran yazdırma (sayfa artalanına silik yazı)