Como cambiar parte del contenido de una celda en VBA?

Tengo que cambiar el contenido de varias celdas, de momento pondré el ejemplo de la celda A300 que contiene lo siguiente 0000039954731501000050+00000000000000.15 Todas las celdas que debo arreglar tienen una estructura similar, lo que debo cambiar es el ".15" por un ".30" o ".31" según una lista.

Ese procedimiento lo hice con el siguiente código

Selection.Replace What:=".15", Replacement:=x, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

La x es una variable que representa el ".30" o ".31" que se requiera. El problema es que no todas las celdas que hay que arreglar tienen el numero 15 después del punto, si no que tienen otros números.

¿Entonces cómo especifico que después de ese punto se remplace lo demás por la variable que ya tengo?

1 Respuesta

Respuesta
1

H o l a:

Si solamente tienes un punto y después del punto van 2 dígitos, entonces así:

Sub Reemplazar()
    x = ".30"
    Selection.Replace What:=".??", Replacement:=x, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

':)
':)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas