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
2

Ya te respondí en la otra pregunta.

Sal u dos

Dante Amor

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas