- Katılım
- 4 Haziran 2005
- Mesajlar
- 2,746
- Excel Vers. ve Dili
- 2010-2016
Kolay gelsin.
A
arasında verilerim mevcut. Bu sütunların 3. satırına checkbox ekledim. Ve her checkboxı da 1.satırına bağladım. Checkbox ile sütun gizlemek için aşağıdaki kodları kullanıyorum. İşlemi yapıyor. Yalnız sütunlar gizlenince checkboxlar birbirine giriyor. Checkboxı hücre içerisine nasıl entegre ederim. Sütun gizlenince oda gizlensin. Gösterince ortaya çıksın.
Teşekkürler.
Sütun gizleme kodlarım.
Private Sub ToggleButton1_Click()
Dim i As Integer
Application.ScreenUpdating = False
If ToggleButton1 = True Then
For i = 2 To 15
If Cells("1", i) = DOĞRU Then
Columns(i).Hidden = True
'Rows.Range("B1:B10") = Empty
End If
Next
ToggleButton1.Caption = "GÖSTER"
Else
Columns("B:O").EntireColumn.Hidden = False
ToggleButton1.Caption = "GİZLE"
End If
Application.ScreenUpdating = True
End Sub
A
arasında verilerim mevcut. Bu sütunların 3. satırına checkbox ekledim. Ve her checkboxı da 1.satırına bağladım. Checkbox ile sütun gizlemek için aşağıdaki kodları kullanıyorum. İşlemi yapıyor. Yalnız sütunlar gizlenince checkboxlar birbirine giriyor. Checkboxı hücre içerisine nasıl entegre ederim. Sütun gizlenince oda gizlensin. Gösterince ortaya çıksın.Teşekkürler.
Sütun gizleme kodlarım.
Private Sub ToggleButton1_Click()
Dim i As Integer
Application.ScreenUpdating = False
If ToggleButton1 = True Then
For i = 2 To 15
If Cells("1", i) = DOĞRU Then
Columns(i).Hidden = True
'Rows.Range("B1:B10") = Empty
End If
Next
ToggleButton1.Caption = "GÖSTER"
Else
Columns("B:O").EntireColumn.Hidden = False
ToggleButton1.Caption = "GİZLE"
End If
Application.ScreenUpdating = True
End Sub