Macro eliminar columna
Estimado experto
Necesito una macro para eliminar determinadas columnas
Es decir con una consulta previa me pida cual columna quiero eliminar y seguidamente me elimine esa columna.
Ejemplo:
1) ¿En un cuadro de dialogo se consulte que columna desea eliminar?
2) Luego que elimine completa la columna indicada
Muchas gracias
Ricardo
Necesito una macro para eliminar determinadas columnas
Es decir con una consulta previa me pida cual columna quiero eliminar y seguidamente me elimine esa columna.
Ejemplo:
1) ¿En un cuadro de dialogo se consulte que columna desea eliminar?
2) Luego que elimine completa la columna indicada
Muchas gracias
Ricardo
2 Respuestas
Respuesta de Juan Carlos González Chavarría
1
Respuesta de Isaac Reyes
1
Tomé el grabador de macros (Herramientas>macro>Grabar nueva macro...) y al eliminar la columna C me arrojó este código:
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 31/08/2009
'
'
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
End Sub
Utilizando el resultado de la macro y haciendo unas modificaciones, se puede lograr el resultado que tu quieres, quedando de la siguiente forma.
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 31/08/2009
'
'
'Pedimos el nombre de la columna
col = InputBox("¿Qué columna desea eliminar?", "Nombre de la columna")
If col <> "" Then
Columns(col & ":" & col).Select
Selection.Delete Shift:=xlToLeft
End If
Range("A1"). Select 'damos el enfoque a la celda a1(se puede omitir)
End Sub
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 31/08/2009
'
'
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
End Sub
Utilizando el resultado de la macro y haciendo unas modificaciones, se puede lograr el resultado que tu quieres, quedando de la siguiente forma.
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 31/08/2009
'
'
'Pedimos el nombre de la columna
col = InputBox("¿Qué columna desea eliminar?", "Nombre de la columna")
If col <> "" Then
Columns(col & ":" & col).Select
Selection.Delete Shift:=xlToLeft
End If
Range("A1"). Select 'damos el enfoque a la celda a1(se puede omitir)
End Sub