excelde sayfa açarken isim verme

[variety]

sayfa açarken şunu kullanıyorum for döngüsü içinde
fakat sayfa sayısı koşullara göre değişiyor yani belirli değil.
fakat her sayfa açtığında bir sonraki numarayı veriyor ama isim değiştirmek istediğimde belki o sayfa açılmamış bile olabiliyor.
benim istediğim sayfa açarken sayfaya isim vermek ya da onuda döngüye bağlamak. acil yardımlarınızı bekliyorum şimdiden çok teşekkürler

Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Sayfa7").Select
Sheets("Sayfa7").Name = "12.3"

Not:sayfa7 örnek olarak yazdım ama sayfa sayısı belli olmadığı için bazen sayfa5 i 12.3 yapmam gerekiyo mesela bende o yüzden direk o isimle açmak istiyorum
umarım derdimi anlatabilmişimdir:S

 

[Necdet]

umarım derdimi anlatabilmişimdir:S

Merhaba,

Benim tarafımdan anlaşılamadınız

 

[variety]

Merhaba,

Benim tarafımdan anlaşılamadınız

kısaca istediğim şey: excelde yeni sayfa açmak ama sayfayı açarken numarasını vermek istiyorum. sayfa numarasınıda döngüye bağlayacağım. sayfa 1,2,3 gibi gidecek ama işte nereye kadar gideceği belli değil koşula göre olacak.
biraz daha açık anlatmaya çalıştım ama

 

[Necdet]

Merhaba,

Anladığım kadarıyla sayfa adları 1, 2, 3 .... diye gidecek en son açtığınız sayfanın adı da ona göre adlandırılacak, son sayfa 8 ise açılan yeni sayfanın adı 9 olacak.

Doğru anladım mı?
Bu bir, ikincisi 1,2,3... diye giden sayfalardan başka sayfanızda var mı?

 

[variety]

Merhaba,

Anladığım kadarıyla sayfa adları 1, 2, 3 .... diye gidecek en son açtığınız sayfanın adı da ona göre adlandırılacak, son sayfa 8 ise açılan yeni sayfanın adı 9 olacak.

Doğru anladım mı?
Bu bir, ikincisi 1,2,3... diye giden sayfalardan başka sayfanızda var mı?

Kusura bakmayın konuyu daha detaylı anlatmak için excel dosyası hazırladım içinde tam olarak ne yapmak istediğim yazıyor.

ilk soru için sayfa isimleri daha farklı aslında onlar yeni dosyada yazıyor.
ikinci soru içinde evet daha önce açtığım başka sayfalar var o yüzden işler karışıyor:S

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyip denemisiniz. Kod Sayfa1 deki verilere göre çalışmaktadır.

Option Explicit
Global SAY As Integer
 
Sub SAYFA_EKLE()
    Dim X As Long
    
    With Sheets("Sayfa1")
        For X = 2 To .Range("A65536").End(3).Row
            If .Cells(X, "C") = "EVET" Then
                Sheets.Add , Sheets(Sheets.Count)
                SAY = SAY + 1
                ActiveSheet.Name = "12." & SAY
                Sheets.Add , Sheets(Sheets.Count)
                SAY = SAY + 1
                ActiveSheet.Name = "12." & SAY
            End If
        Next
    End With
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[variety]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyip denemisiniz. Kod Sayfa1 deki verilere göre çalışmaktadır.

Option Explicit
Global SAY As Integer
 
Sub SAYFA_EKLE()
    Dim X As Long
    
    With Sheets("Sayfa1")
        For X = 2 To .Range("A65536").End(3).Row
            If .Cells(X, "C") = "EVET" Then
                Sheets.Add , Sheets(Sheets.Count)
                SAY = SAY + 1
                ActiveSheet.Name = "12." & SAY
                Sheets.Add , Sheets(Sheets.Count)
                SAY = SAY + 1
                ActiveSheet.Name = "12." & SAY
            End If
        Next
    End With
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

ya çok sağolasın gerçekten çok işime yaradı. tıkanıp kalmıştım şimdi buradan devam edebilirim. aslında basit bir şey ama işte bilmeyince zorluyor gerçekten.