Columna que de 0 eliminar con macro
Tengo esta macro para eliminar columnas que en la ultima fila den 0 pero la ejecuta de manera correcta
1 Respuesta
Respuesta de Dante Amor
2
Va la macro
Sub borrarcolumnas()
Dim uf As Long, j As Long
Application.ScreenUpdating = False
uf = Range("K" & Rows.Count).End(3).Row
For j = Cells(uf, Columns.Count).End(1).Column To Columns("K").Column Step -1
If Cells(uf, j) = 0 Then Columns(j).Delete
Next
Application.ScreenUpdating = False
End Sub
