Hola a todos.
Me gustaria que me ayudaséis a solucionar una forma de eliminar el contenido de rangos de celdas concretos.
Tengo en una columna con celdas con numeros y otras vacias, he subido un adjunto.
Las celdas que tienen datos estan formando grupos, es decir hay unas cuantas seguidas con datos y luego unas seguidas cuantas vacias luego otras seguidas con datos...etc
Necesito eliminar los grupos de celdas impares...es decir el primer grupo, tercero, etc (las he puesto en amarillo en el ejemplo adjunto)
Agradezco vuestras ideas
Un saludo
[RESUELTO]Eliminar grupo de celdas
[RESUELTO]Eliminar grupo de celdas
- Adjuntos
-
- Ejemplo.ods
- (8.52 KiB) Descargado 129 veces
Última edición por userpepe el Jue Abr 30, 2020 7:24 pm, editado 1 vez en total.
- PepeOooSevilla
- Mensajes: 1480
- Registrado: Sab Abr 04, 2009 6:10 pm
- Ubicación: Sevilla (España)
Re: Eliminar grupo de celdas
Hola.
Adjunto un ejemplo sin macros.
Hago uso de una columna AUXILIAR con la fórmula:
Después con la ayuda de un filtro automático selecciono las celdas de la columna auxiliar con valor VERDADERO y borro las celdas de la columna "C".
Saludos cordiales.
Adjunto un ejemplo sin macros.
Hago uso de una columna AUXILIAR con la fórmula:
Código: Seleccionar todo
Celda D6 =ESPAR(SUMA.PRODUCTO($C$6:C6=""))
Saludos cordiales.
- Adjuntos
-
- Ejemplo_userpepe_1.ods
- LibO Calc 6.3.5
- (14.42 KiB) Descargado 132 veces
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: Eliminar grupo de celdas
Muchas Gracias por la respuesta PepeOooSevilla.
Muy buena solución, necesitaba aplicarlo en una macro xq este paso es uno de muchos. Intentaré aplicar tu idea.
Un saludo
Muy buena solución, necesitaba aplicarlo en una macro xq este paso es uno de muchos. Intentaré aplicar tu idea.
Un saludo
- PepeOooSevilla
- Mensajes: 1480
- Registrado: Sab Abr 04, 2009 6:10 pm
- Ubicación: Sevilla (España)
Re: Eliminar grupo de celdas
Hola.
Una de las posibles soluciones con macros:
Saludos cordiales.
Una de las posibles soluciones con macros:
Código: Seleccionar todo
REM ***** BASIC *****
Option Explicit
Sub BorrarCeldasGruposImpares()
'Se borran valores, fechas, cadenas y fórmulas (código 23)
Dim DocCalc As Object
Dim HojaActiva As Object
Dim Fila As Long
Dim Columna As Long
Dim CuentaBlancos As Long
Dim Terminar As Boolean
DocCalc = ThisComponent
HojaActiva = DocCalc.CurrentController.ActiveSheet
'Fila = 5 y Columna = 2 es la celda C6
Fila = 5
Columna = 2
CuentaBlancos = 0
With HojaActiva
'Si .getType() = 0 entonces la celda está vacía
'La macro termina cuando dos celdas consecutivas están vacías
Terminar = (.getCellByPosition(Columna, Fila).getType() = 0) And _
(.getCellByPosition(Columna, Fila + 1).getType() = 0)
Do While Not Terminar
If .getCellByPosition(Columna, Fila).getType() = 0 Then
CuentaBlancos = CuentaBlancos + 1
End If
If (CuentaBlancos MOD 2) = 0 Then
.getCellByPosition(Columna, Fila).clearContents(23)
End If
Fila = Fila + 1
Terminar = (.getCellByPosition(Columna, Fila).getType() = 0) And _
(.getCellByPosition(Columna, Fila + 1).getType() = 0)
Loop
End With
MsgBox "Borrado grupos impares FINALIZADO", 64, "¡Atención!"
End Sub
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: [RESUELTO]Eliminar grupo de celdas
Genial. Muchas gracias por tu tiempo y dedicación
Un saludo
Un saludo