Soru Sheet Oluşturma

[gicimi]

Merhaba,

Çalışma sayfası içerisinde buton yardımı ile sheet oluşturmak için nasıl bir kod eklenmelidir.
Yardımcı olabilir misiniz.

 

[turist]

Çeşitli metodlarla yapılabilir.
Genel olarak:
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets.Add
ws.Name = "SayfaAdı"
şeklinde olabilir. Veya
Worksheets.Add (After:=Worksheets(Worksheets.Count)).Name = "SayfaAdı"
veya
Worksheets.Add().Name = "SayfaAdı"
Tabii ki ihtiyaca göre kod'un şekli değiştirilebilir.Sayfa isminin belli bir hücreden alınması vb. gibi.
Buna uygun örnekler, ancak Sayfa açma ihtiyacına göre düzenlenebilir.

Örnek olması bakımından aşağıdaki kod, açılacak sayfayı kontrol eder, mevcut değilse yeni sayfayı verilecek isimle açar, mevcutsa tekrar açmaz.

Sub SayfaAc()
    Dim Sayfa As String
    Dim Sayfakontrol As Object
    On Error Resume Next
    Sayfa = Application.InputBox("Açılacak Sayfanın Adını Yazınız!")
    If Sayfa = "" Then Exit Sub
        Set Sayfakontrol = Sheets(Sayfa)
        If Not Sayfakontrol Is Nothing Then
            MsgBox Sayfa & "isimli bir çalışma sayfası vardır.Bu çalışma Kitabında aynı isimle tekrar açamazsınız"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.Count)).Name = Sayfa
        End Sub

 

[gicimi]

Sn @turist bilgilendirme ve örnek için çok teşekkür ederim. Kolaylıklar

 

[turist]

Sayın @gicimi sağolun.