Sayfa eklemesi hk

[mraltin]

Arkadaslar mrb.
Forumda arama yaptim ve bir cok ornek buldum fakat ben istedigimi yapamadim.
İstedigim bir musteri takip programi yapicam ve her yeni musteri icin bir sayfa olacak(sheet).yapmak istedigim sey userform uzerinden butona bastigimda yeni bir sheet ekleyecek ve yeni sayfanin ismi sayfa1 in a1 hucresindeki degeri alacak.Yardimlarinizi bekliyorum

 

[Ali]

Sayfa1 deki A1 hücreniz sürekli güncellenecek sanırım.

Private Sub CommandButton1_Click()
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
ActiveSheet.Name = Sheets("Sayfa1").Range("A1").Value
End Sub