[RESUELTO]Eliminar grupo de celdas

Discute sobre la aplicación de hojas de cálculo
Responder
userpepe
Mensajes: 15
Registrado: Jue Jul 19, 2018 6:44 pm

[RESUELTO]Eliminar grupo de celdas

Mensaje por userpepe »

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
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.
Avatar de Usuario
PepeOooSevilla
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Eliminar grupo de celdas

Mensaje por PepeOooSevilla »

Hola.
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=""))
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.
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.
userpepe
Mensajes: 15
Registrado: Jue Jul 19, 2018 6:44 pm

Re: Eliminar grupo de celdas

Mensaje por userpepe »

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
Avatar de Usuario
PepeOooSevilla
Mensajes: 1480
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Eliminar grupo de celdas

Mensaje por PepeOooSevilla »

Hola.
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
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.
userpepe
Mensajes: 15
Registrado: Jue Jul 19, 2018 6:44 pm

Re: [RESUELTO]Eliminar grupo de celdas

Mensaje por userpepe »

Genial. Muchas gracias por tu tiempo y dedicación

Un saludo
Responder