excelde sheet oluşturma

[algil]

Merhaba
Bir excel sayfasında tabloya bazı veriler giriyorum. Bir buton oluşturdum. Bu butona bastığımda A3 hücresine girdiğim sayı kadar bana sayfa açsın ve onları 1, 2, 3, 4, .... diye isimlendirsin. Böyle bir kod hazırlayabilirmiyiz, yardımcı olursanız sevinirim..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:ce3df1313b]Sub sayfaekle()
For a = 1 To [a3]
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = a
Next
End Sub
[/vb:1:ce3df1313b]

 

[algil]

Teşekkürler Leventm k::