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
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 de Elsa Matilde
1