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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.