Çözüldü Buton ile Yeni Sayfa Oluştur

[gicimi]

Merhaba;

Butona basarak yeni sheet oluşturmak istiyorum.

Sub TIKLA ()
   Set NewSh = Worksheets.Add (After: = (Sheets.Count))
End Sub

Kodu hatalı mı yazıyorum acaba ?

 

[Haluk]

Sub TIKLA()
   Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count))
End Sub

 

[gicimi]

@Sn @Haluk Bey teşekkür ederim. Kolaylıklar.

 

[u.L.a.s]

Yeni bir sheet oluştururken o sheet için bir ad vermek için öncesinde bir form gibi bir ekran çıkarıp o ekranda yazılan ad ile yeni sheetin oluşmasını nasıl sağlarız.

 

[Haluk]

Sub Test()
    shName = InputBox(Prompt:="Sayfa Adını girin .....")
    If shName <> Empty Then
        Set newSh = Sheets.Add(After:=Sheets(Sheets.Count))
        newSh.Name = shName
    End If
End Sub

 

[rabbace]

Yeni bir sheet oluştururken o sheet için bir ad vermek için öncesinde bir form gibi bir ekran çıkarıp o ekranda yazılan ad ile yeni sheetin oluşmasını nasıl sağlarız.

Sub sayfa_ac()
Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count))
    syf_ad = ActiveSheet.Name
    Name = InputBox("Sayfa adının giriniz")
        If Name <> "" Then
            ActiveSheet.Name = Name
        Else
            MsgBox ("Sayfa adı boş olamaz " & syf_ad & " adıyla sayfa açılmıştır")
        End If
End Sub

 

[u.L.a.s]

Çok teşekkürler iki örnekte gayet faydalı ve güzel emeğinize bilginize sağlık