Copio pego desde internet

[rodarias]

saludos, mi problema es con que copio de una planilla de internet (banco) y pego especial solo valores en excel, con el fin de operar datos numericos que tiene. pasa entonces que quedan con un...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola, pudes crear una macro y luego quitarla. La siguiente macro necesita que previamente se seleccione el rango, por ejemplo, siguiendo tu caso A1:F41, y ejecutas la siguiente macro.

Sub...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[rodarias]

LA PROBARí‰ Y TE CUENTO!...

MUCHISIMAS GRACIAS DE TODAS FORMAS Y TODO ES AYUDA!!

RAC

 

[rodarias]

Ahora si...el veredicto...si bien me permite operar los numeros posteterior al tratamiento de la macro, los numeros mayores a mil como "23.500" (veintitres mil quinientos) me queda "23,5"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jbf99]

Antes de ejecutar la macro de Adrian , selecciona el rango de datos y pulsa Control + L (reemplazar) en "Buscar" pon un punto y en "Reemplazar" nada dale a "Reemplazar todos" y despues ejecuta la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jbf99]

Aunque ya q vas a usar la macro de Adrian pon esta linea debajo del Dim

Selection.Replace What:=".", Replacement:=""

Un saludo

 

[rodarias]

excelente el ultimo aporte, cumple a la perfección, muy agradecido y nos leemos pronto!!

saludos a todos....

RAC

 

[Adrian]

Hola!
Una Variante.
Sub DarValorNro()
Dim Celda As Range
For Each Celda In Selection
If IsNumeric(Celda.Value) Then
Celda.Value = Replace(Celda.Value, ".", "")
Celda.Value = Val(Celda.Value)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí