Extraer contenido de celda a dos textbox

Hola

Necesito pasar un descuento, que está en una celda, a dos textbox. El
problema es que el descuento es del tipo 20%+5% y quiero pasar el primer
descuento al primer textbox y el segundo (si existe que no siempre es así)
al segundo textbox.

He estado probando con extraer pero no me funciona bien; los descuentos
pueden tener uno o dos digitos, y el segundo descuento puede aparecer o
no, en cuyo caso tampoco aparece el símbolo +.

Como siempre gracis por vuestra ayuda.

Javi

Hola Javi,

Prueba esto:

Sub test2()
'Por si es formula eliminamos "="
texto = Replace(ActiveSheet.Range("A1").Formula, "=", "")
If InStr(texto, "+") Then
txt1 = Left(texto, InStr(texto, "+") - 1)
txt2 = Mid(texto, InStr(texto, "+") + 1, Len(texto))
Else
txt1 = texto
txt2 = ""
End If
If InStr(texto, "%") Then
MsgBox txt1
MsgBox txt2
Else
MsgBox Format(txt1, "0.0%")
MsgBox Format(txt2, "0.0%")
End If
End Sub


Saludos,
KL


"javi" wrote in message
news:%

Hola

Necesito pasar un descuento, que está en una celda, a dos textbox. El
problema es que el descuento es del tipo 20%+5% y quiero pasar el primer
descuento al primer textbox y el segundo (si existe que no siempre es así)
al segundo textbox.

He estado probando con extraer pero no me funciona bien; los descuentos
pueden tener uno o dos digitos, y el segundo descuento puede aparecer o
no, en cuyo caso tampoco aparece el símbolo +.

Como siempre gracis por vuestra ayuda.

Javi