Macro para eliminar columnas
Tengo un archivo con muchas columnas, quisiera hacer una macro que me permita eligir las columnas a eliminar, por ahora solo tengo esta macro, que solo me deja eliminar una columna a la vez.
Sub eliminarcolumna() Dim operacion As String Dim fila As String operacion = InputBox("Ingrese la columna que desea borrar") Range(operacion + "1").Select Columns(operacion).Select Selection.Delete Range("A1").Select End Sub
Quisiera saber si existe la posibilidad de cargar en un combobox las columnas y desde ahi ir eliminando las que no quiera ya que de 100 columnas que tiene el archivo necesito eliminar 30, o igual también con un listbox y de ahi seleccionar múltiples columnas.
Porque con el código que tengo solo me deja eliminar una y listo, o también poder poner varias columnas ahi, y eliminarlas de un jalón todas.
1 respuesta
Respuesta de Elsa Matilde
1