Macro eliminar columnas
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.
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.
Ricardo
1 Respuesta
Respuesta de Orlando Collarte
1
Esta macro es para borrar filas según si la celda dice "Completa"
Sub borrar()
Dim operacion As Long
Dim fila As String
Range("K6").Select
While ActiveCell.Value <> Empty
If ActiveCell.Value = "Completa" Then
valor = ActiveCell.Address
fila = ActiveCell.Row
Rows(fila).Select
Selection.Delete
Range(valor).Select
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
En el caso tuyo dime según que concepto se van a eliminar las columnas, para hacer la macro o trata de adaptar esta misma
Sub borrar()
Dim operacion As Long
Dim fila As String
Range("K6").Select
While ActiveCell.Value <> Empty
If ActiveCell.Value = "Completa" Then
valor = ActiveCell.Address
fila = ActiveCell.Row
Rows(fila).Select
Selection.Delete
Range(valor).Select
ActiveCell.Offset(-1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
En el caso tuyo dime según que concepto se van a eliminar las columnas, para hacer la macro o trata de adaptar esta misma
No me entendiste la pregunta
De una hoja excel quiero eliminar cualquier columna completa
Por ejemplo:
1)¿Un cuadro de dialogo me pregunte que columna quiero eliminar?
2)Luego si yo escribo columna Z
3)Me elimine la columna Z
Nada más
De una hoja excel quiero eliminar cualquier columna completa
Por ejemplo:
1)¿Un cuadro de dialogo me pregunte que columna quiero eliminar?
2)Luego si yo escribo columna Z
3)Me elimine la columna Z
Nada más
Debería ser al así:
Sub borrar()
Dim operacion As String
Dim fila As String
Worksheets("Datos1").Activate
Range("A1").Select
operacion = InputBox("Ingrese la Columna a BORRAR")
Range(operacion + "1").Select
Columns(operacion).Select
Selection.Delete
Range("A1").Select
End Sub
Prueba el código y me comentas
Sub borrar()
Dim operacion As String
Dim fila As String
Worksheets("Datos1").Activate
Range("A1").Select
operacion = InputBox("Ingrese la Columna a BORRAR")
Range(operacion + "1").Select
Columns(operacion).Select
Selection.Delete
Range("A1").Select
End Sub
Prueba el código y me comentas
