Otomatik Çalışma Sayfası Kopyalama

[badmad34]

Merhaba arkadaşlar,

Eklediğim çalışma kitabında bulunan "yeni sayfa ekle" butonuna tıklandığında açılan inputbox'a girilecek isimde yeni bir sayfa eklenmesini istiyorum ama iki isteğim var:

1. Açılacak yeni çalışma sayfası, "TEMPLATE" isimli sayfa kopyalanarak oluşturulsun, sadece adı değişsin.

2. Oluşturulmak istenen çalışma sayfası zaten varsa, uyarı verilsin ve inputbox tekrar açılsın.

Nasıl yapabilirim bu işlemleri? Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Boş bir modüle aşağıdaki kodu uygulayın.

Option Explicit
 
Function SAYFA_VARMI(SAYFAADI As String) As Boolean
    On Error Resume Next
    SAYFA_VARMI = CBool(Len(Worksheets(SAYFAADI).Name) > 0)
End Function

Aşağıdaki kodu da formunuzdaki CommandButton1 kodunun yerine uygulayıp deneyiniz.

Private Sub CommandButton1_Click()
    Dim Sayfa_Adı As String
    
Başla: Sayfa_Adı = InputBox("Lütfen eklemek istediğiniz sayfa adını aşağıdaki kutuya giriniz.", "YENİ SAYFA EKLEME")
    
    If Sayfa_Adı = "" Then Exit Sub
    If SAYFA_VARMI(Sayfa_Adı) = True Then
        MsgBox Sayfa_Adı & " isimli sayfa daha önce eklenmiştir. Lütfen yeniden deneyin.", vbCritical
        GoTo Başla
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Sheets("TEMPLATE").Copy After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = UCase(Replace(Replace(Sayfa_Adı, "i", "İ"), "ı", "I"))
    ActiveSheet.Shapes("CommandButton1").Delete
    Application.ScreenUpdating = True
End Sub

 

[badmad34]

Çalıştı, çok teşekkür ederim

 

[kuschcu]

Sayın Üstad,
Yukardaki soru ve çözüme ilişkin bir sorum var.

Yeni bir excel dokümanı açıp ilgili sayfayı kopyalamak istersek nasıl bir kod yazmalıyız?

 

[BUL_TR]

Sayın Koray Ayhan,

Sizlere yeni konu açmamak uğruna (inatla) geçirdiğim 6 saat helal olsun...(Sonunda buldum aradığımı.)

Ama, üyelerin sizlere sormadan, sizleri yormadan açılan konular arasında aradıklarını bulmalarını tavsiye ederim...

Yaş 55 olsa da ÇÖZÜM HALÂ 1