Reemplazar . Por / en fechas por columnas no por celdas
Tengo el siguiente código para reemplazar el . Por la / en fechas.
Range("E:E,G:G").select
Range (selection, selection.end(x1domn)).select
Selection.numberformat="@"
For each celda in selection: celda.value= replace (celda.value,".","/"): next
Lo hace por celda y como son 20 columnas a cambiar con 1000 filas se tarda mucho y al final no lo hace
2 respuestas
Respuesta de fejoal
05/10/16
Buenos días, Rosy
Hay una instrucción más eficiente para hacer ese reemplazo.
Verás que sólo es necesario, en ella, indicar una celda que esté dentro del rango donde hacer las sustituciones.
Prueba con este código, reemplazando las variables que difieran de lo que tienes en tu planilla.
Sub CambiaSign() '---- Variables modificables: '=== ROSY, modifica estos datos de acuerdo a tu proyecto: CeldaIN = "E14" Buscar = "." CambiarPor = "/" '---- fin Variables ' '---- inicio de rutina: ' Range(CeldaIN).CurrentRegion.NumberFormat = "@" Range(CeldaIN).CurrentRegion.Replace What:=Buscar, Replacement:=CambiarPor, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub
.
Donde hay :
.
Parece que no llegó completo tu mensaje...