Sayfa Adini 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 Test2() If Not Sheets("Sayfa1").Range("A1") = Empty Then For i = 1 To Worksheets.Count If Sheets(i).Name = Sheets("Sayfa1").Range("A1") Then MsgBox "Bu isimli bir sayfa mevcut..... !" Exit Sub End If Next Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count)) NewSh.Name = Sheets("Sayfa1").Range("A1") End If Set NewSh = Nothing 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 sayfa adini yazdırma 2 dosya adı, yolu ve çalışma sayfası adını fornsiyonlarla yazdır 3 excelde kendi eklenti ve fonksiyonlarınızı oluşturun 4 aktif hücreye çalışma kitabının ve aktif sayfanın adını yazdırır 5 sayfanın sağ alt köşesine çalışma kitabının adını alt bilgi olarak yazdırır 6 aktif sayfanın adını aktif hücreye yazdırır 7 sayfa isimlerini sayfanın a sütununa yazdırma 8 makro ile belirli bir hücreye sayfa sayısı yazdırma 9 Inputbox'a göre çıktı sayısı 2 10 buton ile diğer sayfayı yazdirmak 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 mesaj kutusu ile sayfa yazdırma adedi gir (sayfa boş bile olsa yazdırır) 14 filigran yazdırma (sayfa artalanına silik yazı) 15 checkboxla sayfa yazdırma 16 sayfa ekle a1 hücresine otomatik olarak sayfanin adinin yazilmasi 17 sayfanın adını ,footerınada sayfa numarasını yazar.1of 5 gibi 18 Inputbox'la sayfa bulma 19 sayfa silme inputbox'a yazarak 20 veri olan tüm sayfaları yazdırır yoksa tarar ama yazdırmaz