Creación de hoja a partri de inscripción en una celda.

hola, ?

... de que manera... cuando yo hiciera un registro en una celda de una hoja a modo "índice" con el texto pj: 11000
se me creara una hoja nueva que se llamara asi, 11000 con la primera fila con titulos
y que la celda en la hoja a modo indice se hiciera un hipervinculo de esta hoja creada...

-> suponiendo que 'esa' celda pudiera ser cualquiera de la columna 'A' y a partir de la fila 2
y que en la nueva hoja los titulos en la fila 1 serian las columnas 'A:D' ???

[seguramente habra que hacer otras consideraciones segun expongas datos adicionales] :)
[por lo pronto]... prueba copiando las siguientes lineas... y

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Application.ScreenUpdating = False
With Worksheets.Add
.Name = Target
.Range("a1:d1") = Array("Titulo 1", "Titulo 2", "Titulo 3", "Titulo 4")
End With
Me.Activate
Application.EnableEvents = False
Target.Hyperlinks.Add Target, "", Target & "!a1"
Application.EnableEvents = True
End Sub

en el modulo de codigo de 'esa' hoja ==> Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Application.ScreenUpdating = False
With Worksheets.Add
.Name = Target
.Range("a1:d1") = Array("Titulo 1", "Titulo 2", "Titulo 3", "Titulo 4")
End With
Me.Activate
Application.EnableEvents = False
Target.Hyperlinks.Add Target, "", Target & "!a1"
Application.EnableEvents = True
End Sub

Hector, si funciona, que seguro que lo hara eres un maquina... de todas
formas te indico que mi nivel es muy bajo y se hacer muy poco en
excel... (lo justo para ir parcheando), vamos, que no se donde
introducir lo que me has dado. Me he metido por visual basic, que no
tengo ni idea y no veo resultados, te reiras leyendo esto seguro, jeje.
Mira a ver si me puedes echar otra manilla, muchas gracias de corazón

hola, ?

... no se donde introducir lo que me has dado.
Me he metido por visual basic, que no tengo ni idea y no veo resultados.. si me puedes echar otra manilla...

en excel, selecciona la etiqueta con el nombre de 'la hoja' que necesitas y...
-> haz un click-derecho [o secundario] y selecciona del menu contextual la opcion de 'ver codigo'
[una vez en el modulo de codigo de 'esa' hoja, en el editor de vba]...
-> copia/pega las lineas con el codigo de la propuesta
OJO: no te olvides de 'ajustar' el rango de las celdas con titulos [y los titulos] para las hojas 'nuevas' :)

si cualquier duda... comentas ?
saludos,
hector.

Héctor Miguel wrote:

hola, ?

si cualquier duda... comentas ?
saludos,
hector.

Hector, no creia que se pudiera saber tanto, jeje. Chapó.
Solo dos cosillas a ver si se puede depurar... en primer lugar no me
deja poner espacios en la casilla que creara la nueva hoja y sera
vinculo de esta, osea, cuando hago un registro en el "indice" no puede
haber espacios porque sino me dice: "La referencia no es valida" y por
ultimo, podriamos hacer que las hojas se fueran agregando al final
(derecha de indice) tal y como empiezan los libros (hoja 1, hoja 2,
hoja3...)? Cuando creo un registro en "indice" la nueva hoja se pone al
principio, llevandome el indice hacia el final (infinito) y tengo que
ir a buscarlo todo el rato.

Gracias y un abrazo.

Otra cosilla Hector, lo he puesto en otro post pero no encuentro una
solución que me apañe,
por VBA, como has hecho lo de arriba podria hacer que cuando meto un
registro en una fila sea pj A1 u otra celda se me generen una serie de
funciones en algunas celdas de esa misma fila?? Así no tengo que hacer
hojas interminables de rango 1000 para que esten hechas ya las
funciones en las filas... (lo que te decia de parchear) jeje.

Gracias y perdonar por entrometer postŽs.