Excel Makro (VBA) ile Otomatik Sayfa Ekleme

Excel'de makro kullanarak otomatik olarak yeni sayfa ekleyebilirsiniz. Aşağıdaki kod A sütununa yeni eklenen bir verinin ismi ile yeni bir sayfa oluşturmaktadır. Farklı projelerde kullanılabilir. Kodu işlem yapacağınız sayfanın, sayfa koduna yapıştırmanız yeterlidir.

Private Sub worksheet_change(ByVal target As Range)
If Intersect([A:A], target) Is Nothing Then Exit Sub
Dim WS As Worksheet
Set WS = Sheets.Add

son = Cells(Rows.Count, "A").End(xlUp).Row

WS.Name = Cells(son, 1)

End Sub

Faydalı olması dileğiyle...