OptionButton ile çoklu seçim yapmak

[Gold_Savt]

İki gurup OptionButton'um var.
1.Gurup : OptionButton1 ve OptionButton2
2.Gurup: OptionButton3 ve OptionButton4

Bunları TAMAM Butonuna bağlamak istiyorum.

Private Sub btnTamam_Click()
Unload Me
   If OptionButton1 Then
         Range("A2:A").EntireColumn.Hidden = False
       ElseIf OptionButton2 Then
         Range("A2:A").EntireColumn.Hidden = True
    End If

    If OptionButton3 Then
         Range("B2:B").EntireColumn.Hidden = False
       ElseIf OptionButton4 Then
         Range("B2:B").EntireColumn.Hidden = True
    End If
End Sub

Yaptığım zaman Debug hatası alıyorum.

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Range("A2:A").EntireColumn.Hidden = False
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Range("A2:A").EntireColumn.Hidden = True
End If

End Sub
Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then
Range("B2:B").EntireColumn.Hidden = False
End If
End Sub
Private Sub OptionButton4_Click()
If OptionButton4.Value = True Then
Range("B2:B").EntireColumn.Hidden = True
End If
End Sub

Tamam butonundan çıkarıp yukardaki gibi yapsam bu seferde OptionButtona dokunur dokunmaz sayfadaki ilgili sütunu gizlendiğinden sorun yaşıyorum.
Çünkü Optionbuttonlar arasında seçim yaptıktan sonra onay vermeden işlem yapmaması lazım.

 

[Orion1]

CheckBox kullanabilirsiniz.

 

[işsiz123]

İki gurup OptionButton'um var.
1.Gurup : OptionButton1 ve OptionButton2
2.Gurup: OptionButton3 ve OptionButton4

Bunları TAMAM Butonuna bağlamak istiyorum.

Private Sub btnTamam_Click()
Unload Me
   If OptionButton1 Then
         Range("A2:A").EntireColumn.Hidden = False
       ElseIf OptionButton2 Then
         Range("A2:A").EntireColumn.Hidden = True
    End If

    If OptionButton3 Then
         Range("B2:B").EntireColumn.Hidden = False
       ElseIf OptionButton4 Then
         Range("B2:B").EntireColumn.Hidden = True
    End If
End Sub

Yaptığım zaman Debug hatası alıyorum.

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Range("A2:A").EntireColumn.Hidden = False
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Range("A2:A").EntireColumn.Hidden = True
End If

End Sub
Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then
Range("B2:B").EntireColumn.Hidden = False
End If
End Sub
Private Sub OptionButton4_Click()
If OptionButton4.Value = True Then
Range("B2:B").EntireColumn.Hidden = True
End If
End Sub

Tamam butonundan çıkarıp yukardaki gibi yapsam bu seferde OptionButtona dokunur dokunmaz sayfadaki ilgili sütunu gizlendiğinden sorun yaşıyorum.
Çünkü Optionbuttonlar arasında seçim yaptıktan sonra onay vermeden işlem yapmaması lazım.

Range("B2:B")
Range("A2:A") iki rakamlarını silerseniz hata vermeyecektir.

 

[Gold_Savt]

":" iaşretini kaldırında Debug hatası gitti ancak, Ben butonlar yardımıyla ilgili sütunu göster veya gösterme yapmak istiyorm. Sütun açıkken ve ben aç butonuna basarsam sütunu gizliyor. Acaba ORİON'un dediği gibi CheckBox mı kullanmalıyım. Bilemedim.

 

[işsiz123]

":" iaşretini kaldırında Debug hatası gitti ancak, Ben butonlar yardımıyla ilgili sütunu göster veya gösterme yapmak istiyorm. Sütun açıkken ve ben aç butonuna basarsam sütunu gizliyor. Acaba ORİON'un dediği gibi CheckBox mı kullanmalıyım. Bilemedim.

Örnek dosyayı inceleyebilirsiniz. İndirme Linki

 

[Gold_Savt]

işsiz123 teşekkür ederim

 

[işsiz123]

işsiz123 teşekkür ederim

Rica ederim. İyi çalışmalar