Extraer texto concreto de una celda y ponerlo en columnas
Necesito sacar de una importación de datos en PDF tal como indico en estos dos renglones:
15/06/2018 AGUA MINERAL CORRIENTE 51;12
16/06/2018 DIETÉTICOS DEL SURESTE DE LA PENÍNSULA 113;54
De estos textos, cuando se haga la importación, necesito la fecha en una columna, el texto en otra columna y los importes en otra columna.
Por favor, alguien me puede echar una mano
2 respuestas
Con ese tipo de textos no es posible utilizar la opción Texto en columnas.
La siguiente macro busca el espacio entre fecha y texto (aunque podría asumir que la fecha siempre tendrá 10 caracteres si tuviese seguridad de que siempre vendrán en ese formato). Y luego busca el espacio antes del importe.
Sub texto_columnas()
'x Elsamatilde
'recorre col A desde fila 2 .... ajustar
[A2].Select
While ActiveCell <> ""
'fecha hasta el primer espacio. en col C
espa = InStr(1, ActiveCell.Text, " ")
fecha = Mid(ActiveCell.Text, 1, espa - 1)
Range("C" & ActiveCell.Row) = fecha
'importe en col E. hasta el espacio final
For x = Len(ActiveCell.Text) To 1 Step -1
If Mid(ActiveCell.Text, x, 1) = " " Then Exit For
Next x
impor = Right(ActiveCell.Text, Len(ActiveCell.Text) - x)
Range("E" & ActiveCell.Row) = impor
'prod va desde espa hasta x
prod = Mid(ActiveCell.Text, 12, x - 12)
Range("D" & ActiveCell.Row) = prod
'se pasa a fila sgte
ActiveCell.Offset(1, 0).Select
Wend
End SubEstoy asumiendo que los textos se encuentran en col A a partir de fila 2.... ajusta estas referencias a tu modelo. Lo mismo el destino de los resultados que imaginé en col C:E.
Luego seguramente tendrás que agregar la conversión de monedas... pero eso en nueva consulta y aclarando el formato de tus importes (¿punto y coma como separador? )
Esto te puede guiar
Visita https://programarexcel.com desde acá obtienes más ejemplos de macros