Macro en excel 2010 para eliminar columnas y dar formato de fecha
Hola,
necesito ayuda para crear una Macro que:
- elimine las columnas A y B
- replace "11" por "Abono" y "1' por "Factura" en la columna C
- elimine las columnas desde D a J
- de formato de fecha "dd/mm/yyyy" en columna K y L
- elimine las columnas M, N y P
Gracias de antemano.
Un saludo
David
1 respuesta
Aquí tienes el código de la macro. Pruébalo y me dices:
Sub Macro1()
'
' Macro1 Macro
'
'
Columns("C:C").Select
Selection.Replace What:="11", Replacement:="Abono", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("K:L").Select
Selection.NumberFormat = "m/d/yyyy"
Range("A:B,D:J,M:N,P:P").Select
Range("P1").Activate
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub
al final la he modificado a lo siguiente, pero muchas gracias. me has sido de gran ayuda.
Sub layout()
'
' Macro1 Macro
'
'
Columns("C:C").Select
Selection.Replace What:="11", Replacement:="Abono"
Selection.Replace What:="1", Replacement:="Factura"
Columns("K:L").Select
Selection.NumberFormat = "dd/mm/yyyy"
Range("A:B,E:J,M:N,P:P").Select
Range("P1").Activate
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub
