yeni çalışma sayfası eklemek+flaş çakmak

[karakaçan]

butona basılınca yeni sayfa eklenip adının da bir sayfadaki hücreden aldıktan sonra almasını istiyorum. Ekteki dosyada anlattığım derdime çözüm olacak bir arkadaş varmıdır acaba?


iyi akşamlar

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub SayfaAc()
 
    Dim sor As String, ad As String, s As Byte
 
    sor = MsgBox("Sayım işleminin tamamlamak üzeresiniz.Eminmisiniz?", _
                    vbCritical + vbYesNo, "Dikkat !")
 
    If sor = vbNo Then Exit Sub
 
    ad = Sheets("Sayfa1").[A2] & " tarihli sayım raporu"
 
    s = 0
    On Error Resume Next
    s = Len(Sheets("" & ad & "").Name)
    If s > 0 Then Exit Sub
 
    Sheets.Add.Name = ad
 
End Sub

.

 

[karakaçan]

Çok teşekkür ederim. Hayırlı ramazanlar.....