Extraer contenido de celda a dos textbox

20/05/2005 - 10:03 por javi | Informe spam
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

Preguntas similare

Leer las respuestas

#1 KL
20/05/2005 - 10:23 | Informe spam
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
Respuesta Responder a este mensaje
#2 Javi
20/05/2005 - 22:23 | Informe spam
Hola KL

Muchas gracias, como siempre, por tu ayuda

Un saludo

Javi

KL escribió:
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





email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida