Eliminar celdas vacías de una columna

Algún código para eliminar las celdas vacías de una columna si en esa misma columna existe un código de hoja

1 Respuesta

Respuesta
1

Ya probaste algo así, adáptalo a tus necesidades

Range("b6").Select
fin = Range("b" & Rows.Count).End(xlUp).Row
Set ran = Range("b6:b" & fin).SpecialCells(xlCellTypeBlanks)
ran.EntireRow.Delete

Perdón se me paso, cambia esta parte

ran.Row.Delete

Adapta tu columna,

Sub Eliva()
Range("b1").Select
fin = Range("b" & Rows.Count).End(xlUp).Row
Set ran = Range("b1:b" & fin).SpecialCells(xlCellTypeBlanks)
ran.Delete shift:=xlUp
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas