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

[kneehot]

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.

 

[usubaykan]

Merhaba;

Aşağıdaki kodu denermisiniz.

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

 

[İhsan Tank]

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

 

[usubaykan]

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

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.

 

[manisali50]

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.

 

[usubaykan]

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.

Merhaba;
Aşağıdaki kodu dener misiniz? Genel sayfası IV sütunu yardımcı sütun olarak kullanılmıştır.

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

 

[İhsan Tank]

kod için teşekkürler

 

[usubaykan]

kod için teşekkürler

Rica ederim Umarım faydalı olur.

 

[kneehot]

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.

 

[usubaykan]

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.

Rica ederim

 

[caglarr65]

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.

 

[manisali50]

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ı?

 

[usubaykan]

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.

Merhaba;

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

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

 

[caglarr65]

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.