VBA para eliminar todo una columna si todos los valores de un rango de celda es igual a "0" u otro valor asignado

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
martin.medrlo
Miembro Nuevo
Miembro Nuevo
Mensajes: 1
Registrado: 11 Oct 2019 14:00

VBA para eliminar todo una columna si todos los valores de un rango de celda es igual a "0" u otro valor asignado

Mensaje por martin.medrlo » 11 Oct 2019 14:08

Hola,
¿Como podría hacer un macro en VBA que elimine toda una columna si todos los valores de un rango de celda es igual a "0" u otro valor asignado?



Just an amateur
Miembro Nuevo
Miembro Nuevo
Mensajes: 2
Registrado: 12 Oct 2019 13:21

Re: VBA para eliminar todo una columna si todos los valores de un rango de celda es igual a "0" u otro valor asignado

Mensaje por Just an amateur » 12 Oct 2019 14:07

registro = "Valor asignado"

contarregistro = Application.WorksheetFunction.CountIf(Sheets("EDUCATIVA").Columns(Columna deseada), registro)

If contarregistro > 0 Then

Columns(Columna deseada) = ""



Just an amateur
Miembro Nuevo
Miembro Nuevo
Mensajes: 2
Registrado: 12 Oct 2019 13:21

Re: VBA para eliminar todo una columna si todos los valores de un rango de celda es igual a "0" u otro valor asignado

Mensaje por Just an amateur » 12 Oct 2019 14:13

Just an amateur escribió:
12 Oct 2019 14:07
registro = "Valor asignado"

contarregistro = Application.WorksheetFunction.CountIf(Sheets("TU HOJA DE CALCULO").Columns(Columna deseada), registro)

If contarregistro > 0 Then

Columns(Columna deseada) = ""



Responder