• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

A sutununda yazan ısımler kadar sayfa acıp sayfalara o ısımlerı versın

K

kneehot

Katılım
4 Ekim 2007
Mesajlar
632
Excel Vers. ve Dili
OFFİCE 365
arkadaslar ıyı aksamlar.baslıktada yazdıgım gıbı a sutunundakı hucrelerde yazan ısımler kadar ( 1000 de olabılır 2000 de ) sayfa ekleyıp o hucrelerde yazan ısımlerı sayfaya versın.ornek ekledım.tum yardımlara tesekkurler.
 

Ekli dosyalar

Merhaba;

Aşağıdaki kodu denermisiniz.
Kod: 
Option Explicit

Sub Sayfa_Adı()
    Dim u As Long
    For u = 1 To Sheets("GENEL").[A65536].End(3).Row
    Sheets.Add After:=Sheets((Worksheets.Count))
    ActiveSheet.Name = Sheets("GENEL").Cells(u, "A")
    Next
End Sub
 
syn : usubaykan
kod'ununz hatalı çalışmaktadır.
Hatası şu sutündaki harflere göre sayfaları açıyor ama altına yeni kayıt yaptığında ve butona bastığında açmayıp hata veriyor silindiğinde tekrardan açıyor
 
İhsan Tank' Alıntı:
syn : usubaykan
kod'ununz hatalı çalışmaktadır.
Hatası şu sutündaki harflere göre sayfaları açıyor ama altına yeni kayıt yaptığında ve butona bastığında açmayıp hata veriyor silindiğinde tekrardan açıyor
Genişletmek için tıkla ...

Merhaba;

İhsan bey satırdaki isimler kadar sayfa ekleyip satırdaki isimleri sayfa ismi yapıyor. Zaten soru bu yönde ama ben burada boş satırları yada aynı sayfa ismlerini kontrol ettirmedim. Eğer böyle bir hata varsa silsin diye bir komut yazmadım. Soruda sayfa ekleme yönünde olduğu için bu şekilde kod yazdım. Tabiki de sayfa isimleri sürekli değişken olacaksa yada sayfa isimleri A sütunundaki satırlara göre değişkenlik gösterecekse kod farklı olur.
 
Usubaykan üstadım..Ben de denedim çalışmıyor..Genel sayfasındaki isimlere isim ekleyip tekrar tarattım mı sadece tek sayfa açıyor ona da "sayfa11-sayfa12.........." diye isimler veriyor..Listedeki isimleri vermiyor..400 hata kodlu uyarı çıkıyor..Aslında muhteşem bir program..Düzenler,tekrar eklerseniz çok arkadaşımızın işini görecek burada..İlgine,bilgine ve emeğine sağlık.
 
manisali50' Alıntı:
Usubaykan üstadım..Ben de denedim çalışmıyor..Genel sayfasındaki isimlere isim ekleyip tekrar tarattım mı sadece tek sayfa açıyor ona da "sayfa11-sayfa12.........." diye isimler veriyor..Listedeki isimleri vermiyor..400 hata kodlu uyarı çıkıyor..Aslında muhteşem bir program..Düzenler,tekrar eklerseniz çok arkadaşımızın işini görecek burada..İlgine,bilgine ve emeğine sağlık.
Genişletmek için tıkla ...

Merhaba;
Aşağıdaki kodu dener misiniz? Genel sayfası IV sütunu yardımcı sütun olarak kullanılmıştır.
Kod: 
Sub Sayfa_Ekle()
Dim U As Long, S1 As Worksheet
BAŞLA:
Set S1 = Sheets("GENEL")
    U = 1
    S1.Range("IV:IV").ClearContents
        For Each Sayfalar In Worksheets
        If Sayfalar.Name <> "GENEL" Then
        S1.Cells(U, "IV") = Sayfalar.Name
        U = U + 1
        End If
        Next
        
        For U = 1 To S1.Range("A65536").End(3).Row
        If S1.Cells(U, "C") <> "GENEL" Then
        If S1.Cells(U, "A") <> "" Then
            Say = WorksheetFunction.CountIf(S1.Range("IV:IV"), S1.Cells(U, "A"))
            If Say = 0 Then
            Sheets.Add After:=Sheets((Worksheets.Count))
            ActiveSheet.Name = S1.Cells(U, "A")
            GoTo BAŞLA
            End If
        End If
        End If
        Next
    S1.Range("IV:IV").ClearContents
End Sub
 
sayın usubaykan ilginiz ve yardımlarınız icin cok tesekkurler tam istedigim gibi calısıyor.umarım benım gıbı faydalanan cok kısı olur.tekrar tesekkurler.
 
Alıntı
Aşağıdaki kodu dener misiniz? Genel sayfası IV sütunu yardımcı sütun olarak kullanılmıştır.
Sayın:usubaykan;Kodlarınızdan yararlandım.Çok işime yaradı.Her zaman sayfamızın ismi Genel olmayabilir.Genel sayfası ismi olmadan ilk sayfada makronun çalışması için kodu nasıl düzenleyebiliriz.Teşekkürler.
 
Son düzenleme:
usubaykan üstadım..ilk verdiğin kodları çalıştırabilmiştim ama bu son yazdığın kodu çalıştıramadım.. GENEL sayfası açıp oraya mı yapıştıracağım kodları?
 
caglarr65' Alıntı:
Alıntı
Aşağıdaki kodu dener misiniz? Genel sayfası IV sütunu yardımcı sütun olarak kullanılmıştır.
Sayın:usubaykan;Kodlarınızdan yararlandım.Çok işime yaradı.Her zaman sayfamızın ismi Genel olmayabilir.Genel sayfası ismi olmadan ilk sayfada makronun çalışması için kodu nasıl düzenleyebiliriz.Teşekkürler.
Genişletmek için tıkla ...

Merhaba;

Kırmızı ile işaretlenmiş isimleri kullanmak istediğiniz sayfa ismi ile değiştiriniz.

Kod: 
Sub Sayfa_Ekle()
Dim U As Long, S1 As Worksheet
BAŞLA:
Set S1 = Sheets([COLOR=Red]"GENEL"[/COLOR])
    U = 1
    S1.Range("IV:IV").ClearContents
        For Each Sayfalar In Worksheets
        If Sayfalar.Name <> [COLOR=Red]"GENEL"[/COLOR] Then
        S1.Cells(U, "IV") = Sayfalar.Name
        U = U + 1
        End If
        Next
        
        For U = 1 To S1.Range("A65536").End(3).Row
        If S1.Cells(U, "C") <> [COLOR=Red]"GENEL"[/COLOR] Then
        If S1.Cells(U, "A") <> "" Then
            Say = WorksheetFunction.CountIf(S1.Range("IV:IV"), S1.Cells(U, "A"))
            If Say = 0 Then
            Sheets.Add After:=Sheets((Worksheets.Count))
            ActiveSheet.Name = S1.Cells(U, "A")
            GoTo BAŞLA
            End If
        End If
        End If
        Next
    S1.Range("IV:IV").ClearContents
End Sub
 
Cevabınız için çok teşekkür ederim. Yeni bir çalışma sayfası açtığımda kodlarda her defasında sayfa ismi yazmadan ilk sayfada bu işlemleri yapmak istemiştim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst