اطلاع از وجود یک شیت خاص در فایل

[hamidrezasadeghi]

سلام خدمت اساتید گرامی
یه ماکرو اجرا میشه و یه سری عملیات در یک شیت با نام خاص رو انجام میده. اگه این شیت قبلا ایجاد نشده باشه پیغام خطا میده. با چه کدی بگم اگه شیتی با نام مثلا sheet1 وجود داره که ادامه عملیات انجام بشه ولی اگه sheet1 وجود نداره ، اول ایجادش کن و سپس ادامه عملیات رو انجام بده؟

[misammisam]

سلام
با این کد که زدم اگه شیت new وجود داشت که عملیات بصورت عادی انجام میشه در غیر اینصورت یک شیت جدید به اسم new میسازه .

Private Sub CommandButton1_Click()
On Error Resume Next
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "new" Then n = 1
Next
If n <> 1 Then
Sheets.Add
ActiveSheet.Name = "new"
End If
Application.DisplayAlerts = True
End Sub 

شاید لازم به توضیح نباشه ولی بجای اسم شیت میشه از کد شیتها هم استفاده کرد

[hamidrezasadeghi]

سلام استاد میثم
ممنون از راهنمایی تان.