Pregunta para Luis Mondelo! Macros excel
buenas!!
Necesito una macro para excel, se trata de que tengo 5 hojas que son iguales pero cada una tiene un nombre: hoja 1, hoja2, hoja 3, hoja 4, hoja 5, el contenido de
tas hojas es igual para todas.Todas estas hojas estarán ocultas.
En otra hoja tengo (esta no esta oculta) tengo una celda que inserto un
numero del 1 al 5. Si pongo uno me debe aparecer la hoja1 oculta, si
pulso 2 en la celda deben aparecer la hoja 1 y hoja 2, si pulso 3 hoja1,
hoja2, hoja3 y así sucesivamente como tope hasta 5.
Si no pongo nada no aparecen. ¿cómo puedo hacer esto posible con una macro desde visual basic?
Un saludo!!
1 Respuesta
Creo que con esta macro lo conseguimos. Es el evento change de la hoja en la que tienes los datos.
(También te la he mandado por mail)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$18" Then
tope = Target.Value
For x = 1 To tope
Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "ficha de producto " & x
Next
End If
Sheets("ficha general").Select
End Sub
Resulta que en la hoja 1 si hago doble clic en ella ya tengo esta macro!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngFechas As Range
Set rngFechas = Range("C3, D20:D21")
If Union(Target, rngFechas).Address = rngFechas.Address Then _
Call abrir_calendario
End Sub
Donde lo pongo???:S
Utiliza el archivo que te he mandado yo
