Extraer de una Celda Dos Valores
Tengo un problema para extraer un información de una celda he tratado pero no lo he conseguido. Quiero extraer de una celda, dos y tres valores que tienen un mismo factor común, pero con la función Hallar y Extraer solo logro extraer el primero valor.
Ejemplo:
En "A1" tengo el siguiente Texto: "Pedro Vendió $10.000.000, Juan Vendió $15.000.000 y Oscar vendió $12.000.000.
Como pueden ver el factor común es el signo "$", y quiero extraer los valores numéricos así:
B1 C1 D1
$10.000.000 $15.000.0000 $12.000.000
Pero como lo mencione anteriormente con las funciones que utilizo solo logro extraer el primero valor de $10.000.000
No es la mejor solución, eso lo tengo claro, ¿pero has probado hacerlo a través de "Texto en Columnas" en la pestaña DATOS?
Copias en B1 lo que tienes en A1, y estando en B1 vas a Datos y pulsas sobre texto en columnas. Seleccionas "Delimitados" y siguiente, ahora marcas las opciones "Coma" y "Espacios" y finalizar. Tendrás todo el texto separado por columnas y solamente tendrás que eliminar las columnas que no necesites dejando las tres que si te interesan.
Otra opción: yo he hecho el proceso un par de veces hasta familiarizarme un poco con el. Luego he arrancado la grabadora de macros y me ha salido este código, que hace lo mismo pero de forma automática:
Sub Macro1()
Range("A1").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Columns("B:B").EntireColumn.AutoFit
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
Columns("B:C").Select
Selection.Delete Shift:=xlToLeft
Columns("C:D").Select
Selection.Delete Shift:=xlToLeft
Columns("D:F").Select
Selection.Delete Shift:=xlToLeft
Range("A2").Select
End Sub
No puedo decirte nada del código excepto que si cambio por ejemplo, el rango A1 por A1:A25 y y el B1 por B1:B25 me funciona igual de bien.
