Ocultar y mostrar hojas, cuando cambie el valor de C1
Para Dante Amor
Tengo un combobox en hoja1 que me abre la lista de clientes
Desde ésta hoja quiero que al seleccionar o cambiar de cliente:
1º Borre el codigo de la hoja que haya abierta. (Siempre habrá dos hojas abiertas, la del combobox y la del cliente actual)
2º Se ciere la hoja que haya abierta
3º Se abra la hoja que corresponda al nuevo cliente
4º Se pegue el código que había en la anterior hoja abierta
Es decir quiero tener todas las hojas ocultas excepto la de trabajo y que todas las hojas ocultas estén sin ningún código y que al llamarla se pegue el código que me hace falta para que funcione.
1 Respuesta
En cada hoja tengo éste código y algo más.
Entiendo que al ser tantas hojas con éste código debe pesar bastante más que si están sin el código y se pega al activar la hoja.
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
Set h1 = ActiveSheet
If Not Intersect(Target, Range("M2")) Is Nothing Then
Nuevo_Codigo Target.Value
End If
If Target.AddressLocal = "$I$5" Then
Application.ScreenUpdating = False
h1.Unprotect "m"
h1.Name = h1.Range("ba5").Value
Range("N15:R60").Select
Range("N4:R4").Copy
Selection.PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
Range("M2").Select
h1.Protect "m"
End If
'----
If Target.AddressLocal = "$K$5" Then
h1.Name = h1.Range("ba5").Value
Range("M2").Select
End If
End Sub
Un saludo
No te preocupes, no se hace mucho más pesado, puedes tener el código en todas las hojas.
Agrega el siguiente código en tu combobox
Private Sub ComboBox1_Change() 'Por.Dante Amor h1 = "Hoja1" h2 = ActiveSheet.ComboBox1.Value Application.ScreenUpdating = False For Each h In Sheets Select Case h.Name Case h1 Case h2: Sheets(h2).Visible = True Case Else: Sheets(h.Name).Visible = False End Select Next End Sub
