Sayfa varmı

[merakli_72]

merhaba,
mesela çalışma kitabında satış isimli kitap varsa o sayfaya geçse yoksa eklese nasıl yapılabilir.
Teşekkürler

 

[hamitcan]

Sub SayfaVarmiYokmu()
    On Error Resume Next
    Set sh = Sheets("satış")
    If sh Is Nothing Then
        Sheets.Add
        ActiveSheet.Name = "satış"
    End If
End Sub

 

[merakli_72]

çok teşekkür ederim hamitcan bey