رفع مشكل مخفي شدن دكمه تعبيه شدن در شيت

[bakhshism]

سلام به دوستان
من در نمونه ارسالي يك مشكل دارم و اين اينكه در بعضي از مواقع با كليك بر روي دكمه go to sheet اين دكمه مخفي مي شه و نمي تونم به شيت بعدي برم البته فقط خود دكمه مخفي ميشه و كداش وجود داره به نظر شما علتش چيست

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[abootorab]

سلام به دوستان
من در نمونه ارسالي يك مشكل دارم و اين اينكه در بعضي از مواقع با كليك بر روي دكمه go to sheet اين دكمه مخفي مي شه و نمي تونم به شيت بعدي برم البته فقط خود دكمه مخفي ميشه و كداش وجود داره به نظر شما علتش چيست

با درود
دوست عزیز کدهای مربوط به کلیدهاتون مربوط به شیت1 و شیت2 بصورت زیر تغییر بدین ببینید مشکلتون حل میشه؟

کد کلید1 در شیت1:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheet2.Visible = xlSheetVisible
    Sheet2.Activate
    Sheet1.Visible = xlSheetHidden
    Application.ScreenUpdating = True
End Sub 

کد کلید1 در شیت2:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheet1.Visible = xlSheetVisible
    Sheet1.Activate
    Sheet2.Visible = xlSheetHidden
    Application.ScreenUpdating = True
End Sub