Error al seleccionar con macro las columnas

Grabo una macro donde selecciono las columnas que están vacías y las borro, al ejecutar la macro me borra toda la información, el código es este
Sub Ordena()
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
Columns("L:L").Select
Range("L2").Activate
Selection.Delete Shift:=xlToLeft
Columns("M:M").Select
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
Selection.ColumnWidth = 0.5
Columns("M:M").Select
Selection.Delete Shift:=xlToLeft
Probé solo el código de
Columns("D:D"). Select y vi que me selecciona todas las columnas

1 Respuesta

Respuesta
1
Parece que no terminaste de escribir la consulta...
Te comento algunos detalles: que si eliminas primero la col DE, lo que antes estaba en la col L ahora pasará a la col K... observá bien cuáles necesitas eliminar.
Para hacerlo en 1 sola instrucción con las col que ahora necesitas, utilizá esta línea:
Range("D:D, L:L, M:M").Select
Selection.Delete Shift:=xlToLeft
Y si se te seleccionan todas es porque tenés alguna fila combinada, quizás un titulo...
Previamente tenés que quitarle la combinacióN
Sdos
Elsa
http://aplicaexcel.galeon.com/manuales.htm

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas