Eliminar carácter de una celda con macro
Hola experto
Ojala me puedas ayudar en lo siguiente:
Tengo una columna con valores con decimales(ej. 100.60), ¿Como podría borrarle el punto que separa el decimal, para que quede de la siguiente manera(ej. 10060), mediante una macro?
Gracias de antemanos
Saludos desde chile
Ojala me puedas ayudar en lo siguiente:
Tengo una columna con valores con decimales(ej. 100.60), ¿Como podría borrarle el punto que separa el decimal, para que quede de la siguiente manera(ej. 10060), mediante una macro?
Gracias de antemanos
Saludos desde chile
1 Respuesta
Respuesta
1
Esta Macro te convierte la cantidad de la A1 de 100.65 a 10065
Cópiala y pégala en un modulo, regresa a Excel, crea un botón y agregale la macro
Sub MyMacro()
Range("AA1").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-26],1,3)"
Range("AB1").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-27],5,2)"
Range("AC1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
Range("AC1").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("AA1:AC1").Select
Selection.ClearContents
Range("A1").Select
End Sub
Cópiala y pégala en un modulo, regresa a Excel, crea un botón y agregale la macro
Sub MyMacro()
Range("AA1").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-26],1,3)"
Range("AB1").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-27],5,2)"
Range("AC1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
Range("AC1").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("AA1:AC1").Select
Selection.ClearContents
Range("A1").Select
End Sub