Kod ile sayfa eklemek

[Mesafe]

Bir çalışma kitabında STOK isimli bir sayfa yoksa bir sayfa ekleyip adını STOK yapacak eğer bu isimde bir sayfa varsa koddan çıkacak bir makro için yardımlarınızı rica ediyorum.

 

[asi_kral]

Merhaba
Bu kodu dener misiniz_?

Option Explicit
Sub sayfa_aç()
Dim HT As Variant
On Error GoTo HT
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "STOK"
Exit Sub
HT:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
MsgBox "Stok İsimli Sayfa Var"
End Sub

 

[Yitik]

Pardon AsiKral cevabınızı görmedim. Alternatif olsun.

Sub Sayfaekle()
    Dim Sayfa As String
    Sayfa = "STOK"
        
        If Not SayfaVarMi(Sayfa) Then
            Sheets.Add After:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = Sayfa
            MsgBox " Stok isimli sayfa eklendi"
       Else
       MsgBox " Stok isimli sayfa zaten var"
       End If
       
       End Sub

Function SayfaVarMi(Sayfa As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function

 

[Mesafe]

Emek ve ilginiz için teşekkür ederim.

 

[asi_kral]

Emek ve ilginiz için teşekkür ederim.

Kolay Gelsin.