Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Sütunda Yazılı Olanlardan Sayfa Adı Yapma kodu, A sütununda yazılı olan veriler kadar sayfa ekleme ve aynı isimleri sayfalara verme işlevini görmektedir.
XD Destek İsteSub sayfa_olusturma()
Application.ScreenUpdating = False
For a = 1 To Sheets(1).Range("A" & Sheets(1).Rows.Count).End(3).Row
Sheets(2).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(1).Cells(a, "a")
Next
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Sütunda Yazılı Olanlardan Sayfa Adı Yapma kodu, A sütununda yazılı olan veriler kadar sayfa ekleme ve aynı isimleri sayfalara verme işlevini görmektedir.
Etiketler
Daha önce yorum yapılmamış!
| YARARLI KISAYOLLAR | |
|---|---|
| Bul Penceresini Açma / Alternatif | Shift F5 |
| İşlemi Tamamlama/Onaylama | Enter |
| Bir Hücre Aşağı Git | ↓ |
| Açılır Listeden Seçim Yapma | Alt ↓ |
| Değiştir Penceresini Açma | Ctrl H |
#AD? (#NAME?) Hatası
Formülünüz, çalışmanızda bulunamayan bir alana başvuru yapıyor. Hücrelerinizi dinamik olarak adlandırdıysanız, formül ile bağlantı kurma esnasında hatalı yazımlara da bu yanıt gelebilir. Yazdığınız isimde bir hücre bulunmayabilir.Daha detaylı olarak yazmış olduğumuz buradaki makaleyi inceleyebilirsiniz.