MESUT K
Altın Üye
- Katılım
- 26 Nisan 2019
- Mesajlar
- 221
- Excel Vers. ve Dili
-
İş'te:Excel 2016 eng
Ev'de:Excel 2013 tr
- Altın Üyelik Bitiş Tarihi
- 29-04-2025
Herkese Selamlar
Başlıkta belirttiğim üzere "Commandbuton" "office 2007 64 bit" excelde donuk ve üzerine basılmıyor."office 2010 32 bit/64 bit" excelde hiç bir sorun yok düzgün çalışıyor.İşin içinden çıkamadım bilen arkadaşlardan yardım istiyorum.
Private Sub CommandButton1_Click()
CommandButton1.Enabled = True
If [A110].EntireRow.Hidden = True Then
CommandButton1.Caption = "a seçildi!"
[A110,A111].EntireRow.Hidden = False
[A112,A113].EntireRow.Hidden = True
ActiveSheet.CheckBoxes("checkbox_Q110").Visible = True
ActiveSheet.CheckBoxes("checkbox_Q111").Visible = True
ActiveSheet.CheckBoxes("checkbox_Q112").Visible = False
ActiveSheet.CheckBoxes("checkbox_Q113").Visible = False
Exit Sub
End If
If [A110].EntireRow.Hidden = False Then
CommandButton1.Caption = "b seçildi!"
[A110,A111].EntireRow.Hidden = True
[A112,A113].EntireRow.Hidden = False
ActiveSheet.CheckBoxes("checkbox_Q110").Visible = False
ActiveSheet.CheckBoxes("checkbox_Q111").Visible = False
ActiveSheet.CheckBoxes("checkbox_Q112").Visible = True
ActiveSheet.CheckBoxes("checkbox_Q113").Visible = True
Exit Sub
End If
End Sub
Başlıkta belirttiğim üzere "Commandbuton" "office 2007 64 bit" excelde donuk ve üzerine basılmıyor."office 2010 32 bit/64 bit" excelde hiç bir sorun yok düzgün çalışıyor.İşin içinden çıkamadım bilen arkadaşlardan yardım istiyorum.
Private Sub CommandButton1_Click()
CommandButton1.Enabled = True
If [A110].EntireRow.Hidden = True Then
CommandButton1.Caption = "a seçildi!"
[A110,A111].EntireRow.Hidden = False
[A112,A113].EntireRow.Hidden = True
ActiveSheet.CheckBoxes("checkbox_Q110").Visible = True
ActiveSheet.CheckBoxes("checkbox_Q111").Visible = True
ActiveSheet.CheckBoxes("checkbox_Q112").Visible = False
ActiveSheet.CheckBoxes("checkbox_Q113").Visible = False
Exit Sub
End If
If [A110].EntireRow.Hidden = False Then
CommandButton1.Caption = "b seçildi!"
[A110,A111].EntireRow.Hidden = True
[A112,A113].EntireRow.Hidden = False
ActiveSheet.CheckBoxes("checkbox_Q110").Visible = False
ActiveSheet.CheckBoxes("checkbox_Q111").Visible = False
ActiveSheet.CheckBoxes("checkbox_Q112").Visible = True
ActiveSheet.CheckBoxes("checkbox_Q113").Visible = True
Exit Sub
End If
End Sub