otomatik sekme adı

[prokyonox]

1 Ocak'tan 31 Ocak'a kadar olan tarihleri sayfa ismi olarak vermek istiyorum. Bunun için sayfaları tek tek ekleyip isimlerini elle değiştirmem mi gerekiyor konu hakkında yardımcı olabilirseniz sevinirim.

 

[usngl]

Hızlı çözüm olması adına Sheet1* üzerinde A1 hücresinden aşağıya doğru tarihleri atayın ve aşağıda ki kodu çalıştırın lütfen.

*Eğer Türkçe Excel ya da Sheet1 adı haricinde bir sayfaya tarihleri işlediyseniz aşağıda ki kodda Sheet1 yazan tüm kısımları o sayfanın adıyla değiştirmeyi unutmayın.

Sub Macro1()
Dim t_sayfa As String
Dim i As Integer
i = 1
Do While Sheets("Sheet1").Cells(i, 1) <> ""
t_sayfa = Sheets("Sheet1").Cells(i, 1)
Sheets.Add , Sheets(Sheets.Count)
ActiveSheet.Name = CStr(t_sayfa)
i = i + 1
Loop
End Sub

 

[prokyonox]

peki bu kodu yazdıktan sonra açılan sayfaların tümüne ekteki dosya gibi sayfalarıda otomatik kopyalama şansımız var mı

yada var olan sekmelerin sadece adını değiştirebilir miyiz?


http://s7.dosya.tc/server2/ovlj1o/Gunluk_Rapor_Ocak_2018.xlsx.html

 

[usngl]

peki bu kodu yazdıktan sonra açılan sayfaların tümüne ekteki dosya gibi sayfalarıda otomatik kopyalama şansımız var mı

yada var olan sekmelerin sadece adını değiştirebilir miyiz?


http://s7.dosya.tc/server2/ovlj1o/Gunluk_Rapor_Ocak_2018.xlsx.html

Mevcut kopyalanacak sayfayı oluşturulan her sayfaya birebir kopyalamak ve isimlerini yukarıda bahsettiğiniz şekilde yapmak için aşağıda ki kodu kullanın:

Sub Macro1()
Dim t_sayfa As String
Dim i As Integer
i = 1
Do While Sheets("Sheet1").Cells(i, 1) <> ""
t_sayfa = Sheets("Sheet1").Cells(i, 1)
Sheets("Sheet1").Copy , Sheets(Sheets.Count)
ActiveSheet.Name = CStr(t_sayfa)
i = i + 1
Loop
End Sub