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

02/10/2006 - 12:23 por sercontri | Informe spam
Me gustaría saber de que manera, supongo que por SQL, podria hacer
para que 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 así, 11000 con la primera fila con titulos, y que la celda en
la hoja a modo índice se hiciera un hipervinculo de esta hoja creada.
Ya se que se ve raro pero me haria mundo.

Gracias por vuestros conocimientos.

Preguntas similare

Leer las respuestas

#6 Héctor Miguel
04/10/2006 - 23:47 | Informe spam
hola, ?

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
... cuando hago un registro en el "indice" no puede haber espacios porque sino me dice: "La referencia no es valida"
y... podriamos hacer que las hojas se fueran agregando al final (derecha de indice)
tal y como empiezan los libros (hoja 1, hoja 2, hoja3...)? ...



1) si los datos que escribas en las celdas [que seran el nombre de las hojas nuevas] van a contener espacios...
[en el codigo] el hipervinculo a la hoja [la variable Target] necesitaras 'delimitarllo' entre apostrofos: -> ' _ '
2) luego de haber agregado la hoja, puedes 'moverla' al final de la cuenta de hojas en el libro ;)

te paso el codigo 'modificado' [no te olvides de corregir donde mis supuestos sean diferentes de la realidad] :D

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
.Move After:=Sheets(Sheets.Count)
.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
Respuesta Responder a este mensaje
#7 sercontri
05/10/2006 - 12:16 | Informe spam
1) si los datos que escribas en las celdas [que seran el nombre de las hojas nuevas] van a contener espacios...
[en el codigo] el hipervinculo a la hoja [la variable Target] necesitaras 'delimitarllo' entre apostrofos: -> ' _ '
2) luego de haber agregado la hoja, puedes 'moverla' al final de la cuenta de hojas en el libro ;)



Hector, me has solucionado los dos aspectos que te pedia, otra vez me
descubro ante ti.
Muchisimas gracias...

El punto 2, tb me lo has solucionado, ahora las hojas se agregan al
final, increible.
Respuesta Responder a este mensaje
#8 sercontri
05/10/2006 - 12:22 | Informe spam
Me vas a matar, pero te lo tengo que preguntar... si vamos un poco más
alla y en vez de que en las hojas que se crean salga una fila de
"titulos" hacemos que se cree una copia de una hoja del libro, por
ejemplo una hoja que estuviera oculta a modo de plantilla con cuadros a
rellenar y esas cosas??? Podria hacerse???

Gracias por tu tiempo.
Respuesta Responder a este mensaje
#9 sercontri
26/10/2006 - 19:20 | Informe spam
Hector, es muy complicado lo que pido en mi ultimo post o esque es
imposible... gracias por todo
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida