Buenos días colegas. Espero se encuentren con excelente salud.

Hace quizás un par de días consultaba sobre la eliminación de caracteres "extraños" en un archivo y los profesores JSD y Antoni me dieron soluciones maravillosas, pero necesito otra ayuda de  ustedes.

He tratado de convertir los números en texto a números y no he podido lograrlo. Lo hice con la función Sustituir por si hubiera algunos espacios de más, con el Texto en columna, lo multiplique x 1, le sumé +0, lo trate con un ciclo For Each, creando una variable Celda de tipo Range y un condicional If/End if y nada. Por favor, si fuera tan amables de sugerirme algo que no haya probado.

Agradecido como siempre y mis respetos a ustedes.

Pino

Sub Mayor Vacaciones.xlsmFetching info...

Como deberían quedar esos números, pon ejemplo según los datos subidos.

Buenas noches colegas.

Buenas noches profesor. Los números deben quedar con cualquier formato, pero puede ser #,##0.00 para los importes y con 3 decimales para los días.

Gracias de antemano.

Pino

 

Sub ConvertirTextoNúmero()
Dim Celda As Range
Application.ScreenUpdating = False
For Each Celda In ActiveSheet.UsedRange
   If IsNumeric(Celda) And Not Celda = "" Then Celda = CDbl(Celda.Value)
Next
End Sub

 

Buenos dias Colegas.

Buenos días profesor.

Excelente (como siempre) su solución.

Yo había probado con este código pero no me funcionó.

Sub ConvertiraNumeros()
Dim Celda As Range
For Each Celda In Selection
    If Not IsNumeric(Celda.Value) Then
        Celda.Value = WorksheetFunction.Trim(Celda.Value)
    ElseIf TypeName(Celda.Value) = "String" Then
        Celda.Value = Celda.Value + 1 - 1
    End If
Next Celda
End Sub

Un abrazo caluroso y mis respetos.

Saludos

Pino