Yeni bir sayfa oluşturmak ve o sayfaya isim vermek.

[Orion1]

Mrb.
Yeni bir sayfa oluşturmak ve bu yeni oluşturduğum sayfaya isim vermek istiyorum.
Teşekkür ederim.
Kolay gelsin.

 

[idogus]

Sub Sayfa_Ekle()
    ThisWorkbook.Sheets.Add
    Sheets(ActiveSheet.Name).Name = "Sayfa" & Sheets.Count
End Sub

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[mcd]

leventm okey de belirtilen hücre mesela a1 e girilen ada göre sayfa eklenmesi ve de dosya ismi otomatik oluşması nasıl olur :kafa:

 

[Levent Menteşoğlu]

Bunun için sn idogus'un verdiği koda aşağıdaki ilaveyi yapmak yeterlidir.
[vb:1:62bb484ac9]Sub Sayfa_Ekle()
ThisWorkbook.Sheets.Add
Sheets(ActiveSheet.Name).Name =sheets("sayfa1"). [a1].value
End Sub
[/vb:1:62bb484ac9]