Foro Excel

Hola Saludos y buenos dias a todos
quien puede controlarme lo siguiente y hacer los arreglos necesario?

Option Explicit
Private Sub ToggleButton1_Click()
'Ware + Material
Application.ScreenUpdating = False
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "[ 1 ]"
ToggleButton1.Width = 37.5
ToggleButton1.BackColor = RGB(227, 227, 227)
Columns("K:W").EntireColumn.Hidden = True
Range("B65536").End(xlUp).Offset(1, -1).Select
Else
ToggleButton2.Value = False
ToggleButton1.Caption = "[ Kasse 1 Off ]"
ToggleButton1.Width = 72
Columns("M:V").EntireColumn.Hidden = True
Columns("K:L").EntireColumn.Hidden = False
Columns("W").EntireColumn.Hidden = False
Application.ScreenUpdating = True
End If
End Sub
‘-----------------------------------------------------------------------------------------
Private Sub ToggleButton2_Click()
'Eigenebedarf
Application.ScreenUpdating = False
If ToggleButton2.Value = False Then
ToggleButton2.Caption = "[ 2 ]"
ToggleButton2.Width = 37.5
ToggleButton2.BackColor = RGB(227, 227, 227)
Columns("K:W").EntireColumn.Hidden = True
Range("B65536").End(xlUp).Offset(1, -1).Select
Else
ToggleButton1.Value = False
ToggleButton2.Caption = "[ Kasse 2 Off ]"
ToggleButton2.Width = 72
Columns("K:N").EntireColumn.Hidden = True
Columns("Q:V").EntireColumn.Hidden = True
Columns("O:P").EntireColumn.Hidden = False 'aqui es desde Columna O bis P
Columns("W").EntireColumn.Hidden = False
Application.ScreenUpdating = True
End If
End Sub

Gracias anticipadamente

Hola,

Podrias cargar un archivo para ver mejor lo que quieres hacer?.


FELICIDADES!!!!!!!!!!!!!!!