Eliminar Columnas de acuerdo a valor especifico

Hola Buen día

Quisiera eliminar Columnas con una macro de acuerdo a el valor en la Fila 1 donde tengo ceros y unos para los cuales las columnas con cero se eliminen!

           A   B   C   D

   1      1   0   0    1  

2

3

4

Agradezco su Amable ayuda

2 respuestas

Respuesta
1

Aplica la siguiente macro

Sub eliminar()
'Por.DAM
    For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
        If Cells(1, i) = 0 Then Columns(i).Delete
    Next
End Sub

Saludos.Dante Amor

No olvides valorar la respuesta.

No he recibido comentarios, podrías valorar la respuesta

Respuesta

Lo que debes hacer con tu macro es recorrer los registros primero y luego ir preguntando si es cero, elimina la columna, yo hice algo parecido en una macro pero debes adaptarla a tu caso, mira te voy a dejar un ejemplo solamente para que puedas ver la lógica, mi código lo que hace es eliminar una fila cuando los datos son iguales, si no entiendes bien me puedes decir y vemos como te ayudo, suerte

'primero identificar cantidad de registros

Sheets("D01M").Cells(2, 2).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
NumRows = Range("E1", Range("E1").End(xlDown)).Rows.Count - 1 
Range("E2").Select
For x = 1 To NumRows
valor = Range("E" & x).Value
If (x <> 1) Then
If (Range("A" & x) <> "") Then
If (Range("E" & x).Value = Range("E" & x - 1).Value And Range("F" & x).Value = Range("F" & x - 1).Value) Then
If (Range("A" & x).Value > Range("A" & x - 1).Value) Then
num1 = Range("J" & x).Value
num2 = Range("J" & x - 1).Value
suma = num1 + num2
Range("J" & x).Value = suma
Range("J" & x).Select
Selection.NumberFormat = "0.00"
Rows("" & x - 1).Select
Selection.Delete Shift:=xlUp
Else
num1 = Range("J" & x).Value
num2 = Range("J" & x - 1).Value
suma = num1 + num2
Range("J" & x - 1).Value = suma
Range("J" & x - 1).Select
Selection.NumberFormat = "0.00"
Rows("" & x).Select
Selection.Delete Shift:=xlUp
End If
End If
End If
End If
Next

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Activar / Desactivar Botón en Excel con condición

Estoy trabajando con un Botón dentro de la "Hoja1" que al oprimirse ejecuta una macro y que sólo deberá estar activado cuando el contenido de una celda concreta (B2:C2) no esté en blanco o con valor 0. ¿Cómo puedo hacerlo?
1 respuesta

Cómo eliminar valores extremos de un rango de datos, para efectos estadísticos

Tengo un rango de datos bastante extenso en excel. Una sola columna. Cuando gráfico los datos, veo que hay puntos que se alejan mucho de la media y eso afecta el análisis estadístico. Cómo puedo eliminar, por ejemplo, ¿El 10% de los valores más altos...
1 respuesta

Llenas una matriz usando otra sin repetir datos

Tengo un arreglo con valores 8|8|8|8|9|8|8|1|1 Por ejemplo Ahora lo que necesito es guardar los valores en otro arreglo pero sin repetirse Es decir que quede 8|9|1 El primer arreglo es dinámico por lo que el segundo también puede variar no se como...
1 respuesta

Resaltar filas duplicadas

He encontrado en el foro una macro (el experto no se halla disponible ahora si no hubiera contactado con él) para colorear los valores duplicados de una columna. Me gustaría modificar esa macro para que hiciera exactamente lo mismo pero en vez con...
2 respuestas

Comparar dos celdas de dos hojas distintas EXCEL

Tengo dos hojas en mi excel, y necesito buscar los valores de una columna de la primera hoja en la segunda. Si se encuentra en la segunda, tengo que copiar el valor de otra columna de dicha fila y pegarla en la primera hoja en la ultima columna. Ya...
1 respuesta

Eliminar filas con macro

Tengo una tabla con el número de alumnos de una escuela. En la 1º columna está el curso (1º Año, 2º Año, etc.), en la 2º columna, está la cantidad de varones, en 3º la cantidad de mujeres y en la 4º el total. Mi duda es si se puede hacer una macro...
2 respuestas

Macro borrar datos de hoja sin borrar formato

Tengo una macro con la que me ayudaron, trabaja muy bien la cual busca datos en un libro y los anota en una hoja llamada buscador, pero a esta hoja no puedo darle formato ya que se elimina al usarlo, es decir por ejemplo si le pongo un fondo a la...
1 respuesta