renegando con facturas

Hola Santi

¿has probado con la solucion que te pase por correo, pero cambiando el
'+' por un '*' y en su defecto los texbox/factores?¿te has asegurado
de convertir en 'valor/numero' el contenido de los texbox?

si esto no te ha valido, comentas mas detalles?...como 'cuando' quieres
que se actualice la operacion, o por que no te funciona, pej

un saludo
Ivan

Ivan :
Te comento que eso lo probe pero lo que necesito es que los formatos se
carguen cdo se carga el formulario, pues sino tengo la necesidad de
(cdo se hace una consulta) pasar por el textbox para que marque el
formato.

hola Santi

me temo que ando un poco perdido . Por un lado supongo que el problema
del calculo ya lo has resuelto, pues no lo mencionas.

en cuanto a los formatos

¿donde y cuando quieres ponerlos/que se vean? ->

¿en la hoja?¿en los textbox?¿en cuales?¿cuando?

por otro lado -> ¿como 'aplicas' el porcentaje? ->

supongo que utilidades sera pej. algo asi -> 1,5 -> que seria igual
que => +50%

si comentas estos detalles, y alguno mas que creas pueda ser relevante,
creo que (al menos en mi caso) seria mas facil intentar echarte una
mano a resolver el problema.

un saludo y hasta pronto
ivan

PD ->para el caso de que lo que quieras sea que los formatos se vean en
un Combo ->¿has probado el uso de la columna 'intermediaria'
que te comente?¿le ves algun problema?

hola Santi

aqui tienes un ej. para que acomodes a tus necesidades para el supuesto
de que sea en los textbox donde quieras ver el formato

pon en una hoja (Hoja3 en este caso) una lista con los siguientes
campos ( los titulos en la fila 1), pon al menos 2 filas con datos (si
no, creo que ya sabes como evitar el error)

columna A ->Ref -> referencia, a ser posible unica de un articulo
columna B -> precio costo
columna C -> porcentaje en formato entero, es decir-> 10%, 20 %, etc
columna D -> PVP

en un userform pones 3 text box y un combo y en su hoja de codigo pega
esto (ten cuidado con el nombre de la hoja, pon el que
quieras/corresponda)

ejecuta el userform y prueba a elegir una entrada del combo.

Private Sub ComboBox1_Change()
Dim Fila As Long
Fila = ComboBox1.ListIndex + 2
With Hoja3
TextBox1.Value = Format(.Range("b" & Fila).Value, "##,##0.00 €")
TextBox2.Value = Format((.Range("c" & Fila).Value) / 100, "##0 %")
TextBox3.Value = Format((.Range("b" & Fila).Value) * _
(1 + (.Range("c" & Fila).Value) / 100), "$ ##,##0.00")
End With
End Sub

Private Sub UserForm_Activate()
ComboBox1.List = Hoja3.Range("a2:a" & Hoja3. _
[a65536].End(xlUp).Row).Value
End Sub

adaptalo a tus necesidades y ¿comentas como te ha ido?

un saludo
Ivan