Extraer Un Valor Númerico desde una Cadena de Texto

Facil y rapido

Haz tu trabajo con mucha rapidez y de manera más sencilla.

Ponte en contacto.

Soporte

Resuelve todas tus dudas y recibe la mejor asesoría en en los proyectos que desarrolles.

¡Contáctanos!

Reportes

Desempéñate mejor en tus tareas con nuestros reportes en Excel.

¡Te decimos como lograrlo!

Hace algunos días se me presentó un caso interesante, en el cual el trabajo consistía en extraer el precio de un producto desde una cadena de texto que genera un sistema ERP.

Últimamente me he topado con situaciones muy comunes con reportes de sistemas ERP, en los que se exportan informes a Excel y los datos de salida son un asco, complicados de manipular.

Este es un pequeño ejemplo de la situación que comento.

Otras utilidades que le pueden dar a la fórmula UDF es para extraer importes de información importada desde la Web, que en muchas ocasiones los importes vienen acompañados de espacios en blanco o carácteres no númericos.

Les comparto previa autorización por parte de mi cliente, la fórmula que desarrolle y que les puede ahorrar varios dolores de cabeza.
Únicamente tienen que copiar el código y pegarlo en un módulo estandard de su Editor de VBA.

Descargar .xls

Option Explicit

Function ExtraeMonto(Celda As Range) As String
Dim objRegex As Object
Set objRegex = CreateObject("Vbscript.regexp")
With objRegex
    .Global = False
    .Pattern = "[0-9]+\.[0-9]+"
    ExtraeMonto = .Execute(Celda.Text)(0)
End With
End Function