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

[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