Sayfa Kopyalama ve For Döngüsü Sayısına Göre Sayfa İsimlendirme

[bdemir035]

Altta yazdığım kod ile yapmak istediğim Sayfa1 adındaki çalışma sayfasını kopyalayıp yeni sayfa oluşturmak ve for döngüsünde belirtilen dolu satır sayısınca sayfaları isimlendirmek. Sayfalar bu kod ile kopyalanıyor ancak isimlendirme olmuyor bir türlü. İsimlendirme satırında hep hata veriyor. Bu hatayı nasıl düzeltebilirim yardımcı olursanız sevinirim.

Sub sayfalarihazirla()


' AİLE VE SOSYAL sayfası için

son = Sheets("zimmetdefteri_otomatik").Cells(Rows.Count, "B").End(3).Row




For i = 1 To son
 ' Worksheets("Sayfa" & i).PrintOut From:=i, To:=son
  Worksheets("Sayfa1").Copy After:=Worksheets("Sayfa" & i)
 

Next i


End Sub

 

[ÖmerFaruk]

Worksheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
işini görür mü?

 

[bdemir035]

Worksheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
işini görür mü?

teşekkür ederim evet oldu ancak boş hücreler için de sayfa oluşturdu bunu nasıl engelleyebilirim ?

 

[ÖmerFaruk]

If Sheets("zimmetdefteri_otomatik").Cells(i, "B")<>"" Then Worksheets("Sayfa1").Copy After:=Sheets(Sheets.Count)

 

[bdemir035]

If Sheets("zimmetdefteri_otomatik").Cells(i, "B")<>"" Then Worksheets("Sayfa1").Copy After:=Sheets(Sheets.Count)

Sadece iki satır dolu ama 7 sayfa kopyalıyor yine

 

[ÖmerFaruk]

If Len(Sheets("zimmetdefteri_otomatik").Cells(i, "B"))>1 Then Worksheets("Sayfa1").Copy After:=Sheets(Sheets.Count)

Boş dediğiniz hücrelerde formül mü var?

 

[bdemir035]

If Len(Sheets("zimmetdefteri_otomatik").Cells(i, "B"))>1 Then Worksheets("Sayfa1").Copy After:=Sheets(Sheets.Count)

Boş dediğiniz hücrelerde formül mü var?

Yok hayır tamamen boş hatta o sütunda sıkıntı olabilir diye b sütununu c diye değiştirdim yine aynı

 

[ÖmerFaruk]

Dosyanızı yükler misiniz?

 

[bdemir035]

Kitap1.xlsx

drive.google.com

 

[ÖmerFaruk]

Kullandığınız kodları da ekleseydiniz ki düzeltmesini yapsaydık

 

[bdemir035]

kodlar ekli makro kısmında vardı ama görünmüyor mu acaba ?

 

[bdemir035]

size gönderdiğim bende açılıyor yine denedim açıldı.

 

[bdemir035]

Bir daha paylaştım üstad bakabilir misin yine görünmüyor mu kodlar ? https://drive.google.com/file/d/1T1JcKVnjZ9LR20ux7S_SWTNkeWRSyJML/view?usp=sharing