[RESUELTO] Crear hojas a partir de una columna
[RESUELTO] Crear hojas a partir de una columna
Hola de nuevo. Vuelvo a tener una duda y no sé como solucionar un problema. Tengo una hoja de cálculo, y me gustaría que, cada vez que escribo en una celda de una determinada columna, al pulsar intro, se creaSE una hoja nueva con el nombre "Ficha Técnica (y el contenido de la celda que acabo de escribir)". Alguien tiene alguna idea de si es posible hacerlo?
Como siempre, muchísimas gracias por todo
Como siempre, muchísimas gracias por todo
Última edición por labotica el Lun Abr 16, 2018 6:28 pm, editado 1 vez en total.
OpenOffice 4.0 en Ubuntu 14.04
- PepeOooSevilla
- Mensajes: 1480
- Registrado: Sab Abr 04, 2009 6:10 pm
- Ubicación: Sevilla (España)
Re: Crear hojas a partir de una columna
Hola.
Adjunto una posible solución.
A tener en cuenta:
Adjunto una posible solución.
Código: Seleccionar todo
REM ***** BASIC *****
Option Explicit
Sub CrearHojaSegunColumna()
Dim DocCalc As Object
Dim Seleccion As Object
Dim NombreNuevaHoja As String
Dim HojasEnLibro As Object
On Error Goto CONTROL_ERRORES
DocCalc = ThisComponent
Seleccion = DocCalc.getCurrentSelection()
With Seleccion
'Solo si es una sola celda
If .supportsService("com.sun.star.sheet.SheetCell") Then
'También If .getImplementationName() = "ScCellObj" Then
'Si no es la columna A sale del procedimiento
'En OOBasic las columnas y filas comienzan en 0 (cero)
If .getCellAddress.Column <> 0 Then Exit Sub
NombreNuevaHoja = .getString()
'Si la celda está vacía sale del procedimiento
If NombreNuevaHoja = "" Then Exit Sub
NombreNuevaHoja = "Ficha Técnica " & NombreNuevaHoja
HojasEnLibro = DocCalc.getSheets()
With HojasEnLibro
If Not .hasByName(NombreNuevaHoja) Then
'Si no existe la insertamos al final
.insertNewByName(NombreNuevaHoja, .getCount())
Else
MsgBox "Esta hoja ya existe", 16, "¡Atención!"
End If
End With
End If
End With
Exit Sub
CONTROL_ERRORES:
MsgBox "Se ha producido un error ...", 16, "¡Atención!"
End Sub
- - La macro tiene que estar seleccionada en "Sucesos de hoja -> Contenido cambiado" de la hoja desde donde quieres crear las otras hojas.
- - Las hojas se crean al cambiar el contenido de alguna celda de la columna A (.getCellAddress.Column <> 0). Si quieres que sea la columna B entonces debes cambiar el 0 (cero) por un 1; si es la C por un 2 y así sucesivamente.
- - Si el nombre de la hoja se repite te avisa y no se crea ninguna hoja.
- Adjuntos
-
- FORO_CALC_Crear hojas a partir de una columna.ods
- LibreOffice Calc
- (11.2 KiB) Descargado 145 veces
Última edición por PepeOooSevilla el Mar Abr 17, 2018 9:18 am, editado 1 vez en total.
LibreOffice 6.4.6. Windows 10. Java 8 rev. 261 (64 bits)
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
- PepeOooSevilla
- Mensajes: 1480
- Registrado: Sab Abr 04, 2009 6:10 pm
- Ubicación: Sevilla (España)
Re: Crear hojas a partir de una columna
... Y si tienes curiosidad e interés en la programación de macros para OpenOffice/LibreOffice tienes que leer el libro Aprendiendo OOo Basic de nuestro compañero mauricio .
También en las páginas Manuales de Apache OpenOffice en español: Basic y, Basic OpenOffice: Apache OpenOffice Basic en español de nuestro compañero SLV-es, encontrarás muy buena información.
Saludos cordiales.
También en las páginas Manuales de Apache OpenOffice en español: Basic y, Basic OpenOffice: Apache OpenOffice Basic en español de nuestro compañero SLV-es, encontrarás muy buena información.
Saludos cordiales.
LibreOffice 6.4.6. Windows 10. Java 8 rev. 261 (64 bits)
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Si usas OpenOffice/LibreOffice trabaja y guarda en ODT, ODS, ODP, ... Y haz copias de seguridad.
Re: Crear hojas a partir de una columna
Muchíisimas gracias. Ahora mismo lo pruebo y comento que tal
OpenOffice 4.0 en Ubuntu 14.04
Re: Crear hojas a partir de una columna
Perfecto! Es justo lo que necesitaba!!! Y tengo otra duda:
Si quisiera que estas hojas que se me crean, se creasen con una plantilla que tengo hecha, sería posible? Todavía no voy a colocar el tema como resuelto, pero si creen que tengo que abrir otro tema con estas pregunta y marcar este tema como resuelto, así lo haré.
Muchas gracias
Si quisiera que estas hojas que se me crean, se creasen con una plantilla que tengo hecha, sería posible? Todavía no voy a colocar el tema como resuelto, pero si creen que tengo que abrir otro tema con estas pregunta y marcar este tema como resuelto, así lo haré.
Muchas gracias
OpenOffice 4.0 en Ubuntu 14.04
Re: Crear hojas a partir de una columna
Y otra pregunta sería si es posible que estas hojas que abre la macro tuviesen un color de pestaña determinado.
Gracias
Gracias
OpenOffice 4.0 en Ubuntu 14.04
Re: Crear hojas a partir de una columna
Efectivamente, son otras preguntas, recuerda, una pregunta por tema, una respuesta por tema.
Saludos
Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
[SOLUCIONADO] Crear hojas a partir de una columna
Ok, abro otro tema, y gracias
OpenOffice 4.0 en Ubuntu 14.04
Re: [SOLUCIONADO] Crear hojas a partir de una columna
Por favor, mira este tema: ¿Cómo marcar como RESUELTO un tema?, para conocer la forma correcta de marcar un tema como RESUELTO, ahora lo hago por ti, procura hacerlo tu en el futuro.
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro