ayuda para poner signo de pesos y decimales

nauta85 · #1 (**permalink**) 17/05/2010, 17:12

Hola que tal como estas un saludo parael foro ya que me han ayudado mucho.

tengo un problema y espero que me puedan ayudar,soy nuevo programando asi que no se mucho de los comandos y mucho menos de como se aplican y para que sirven, asi que me cuesta un poco. mi problema es el siguiente.

ya pude convertir unos textos a numeros con la ayuda de por aqui y que estoy mu agradecido, ahora lo que necesito es poner signo de pesos a esos numeros y ademas que cuando haga la multiplicacion reconosca fracciones,mas que nada que ponga un "." en lugar de "," para que se reconozca como numero.

ya aplique esta instruccion que es formatcurrency pero no hace lo que quiero, que mas puedo hacer.

por ahi buscando encontre que con esta seria de instrucciones puedo hacer lo que quiero pero no se como usarlo ni en que momento de toda la programacion lo tengo que poner, una persona me hizo el favor de describirme cada instruccion pero no encuentro como hacerlo funcionar.

el programa es este:
sobre todo no entiendo que significa mitexto o que funcion hace

dim iposicion as integer

dim ivalor as double
dim stexto as string

iposicion = instr(mitexto,".")
Según recuerdo, ahí tenemos la posición del valor del separador decimal.

stexto = mid$(mitexto,1,iposicion-1)
ivalor = val(stexto)

stexto = mid$(mitexto,iposicion+1,len(mitexto)-(iposicion+1))

ivalor = ivalor + (val(stexto)/100)

de antemano gracias por sus multiples ayuda a todos bye bye

Monimo · #2 (**permalink**) 18/05/2010, 08:02

mitexto es una variable, sería la variable donde guardes el valor del importe o el texto al que le quieres cambiar la "," por el "." Pon el codigo de como estas usando format currency.

nauta85 · #3 (**permalink**) 18/05/2010, 09:21

Cita:

Iniciado por Monimo

mitexto es una variable, sería la variable donde guardes el valor del importe o el texto al que le quieres cambiar la "," por el "." Pon el codigo de como estas usando format currency.

Hola que tal de nuevo muchas gracias por tu ayuda, has sido muy amable...

mira aqui te pongo todo lo que llevo y como estoy aplicando el formatcurrency
con lo que llevo ya pude convertir los textos en numeros.

Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
Range("A7").Select
Val (TextBox1.Text)
ActiveCell.FormulaR1C1 = TextBox1.Text
End Sub

Private Sub TextBox2_Change()
Range("B7").Select
cantidad = Val(TextBox1.Text)
PrecioU = Val(TextBox2.Text)
ActiveCell.FormulaR1C1 = TextBox2.Text
Rem aqui pongo la multiplicacion haber que pasa
importe = cantidad * PrecioU
TextBox3.Text = importe
End Sub

Private Sub TextBox3_Change()
Range("C7").Select
importe = FormatCurrency(importe, 2)
ActiveCell.FormulaR1C1 = TextBox3.Text
End Sub

Monimo · #4 (**permalink**) 18/05/2010, 09:25

Cita:

Iniciado por nauta85

Private Sub TextBox3_Change()
Range("C7").Select
importe = FormatCurrency(importe, 2)
ActiveCell.FormulaR1C1 = TextBox3.Text
End Sub

Pues no te funciona porque , estas convirtiendo el importe a una cantidad con signo de pesos, pero nunca escribes eso. Por el contrario despliegas lo que tiene Textbox3 que no es con el signo de pesos
importe = FormatCurrency(textbox3.text, 2)
activecell.formularqc1= importe

Asi debe ser .....

nauta85 · #5 (**permalink**) 18/05/2010, 09:37

Cita:

Iniciado por Monimo

Pues no te funciona porque , estas convirtiendo el importe a una cantidad con signo de pesos, pero nunca escribes eso. Por el contrario despliegas lo que tiene Textbox3 que no es con el signo de pesos
importe = FormatCurrency(textbox3.text, 2)
activecell.formularqc1= importe

Asi debe ser .....

hola d nuevo fijate que ya lo puse y me sale un error que dice "erroe en tiempo de ejecucion", y me señala con una franja amarilla lo que esta mal que es esto mira

Private Sub TextBox3_Change()
Range("C7").Select
importe = FormatCurrency(TextBox3.Text, 2)
ActiveCell.formularqc1 = importe segun esto esta mal o no se
End Sub

Monimo · #6 (**permalink**) 18/05/2010, 09:43

pues si esta mal escrito ¬¬ no era para q lo copiaras tal cual, si no q captaras la idea. si no como vas a entender lo que estas haciendo?

ActiveCell.FormulaR1C1=importe

nauta85 · #7 (**permalink**) 18/05/2010, 10:43

Cita:

Iniciado por Monimo

pues si esta mal escrito ¬¬ no era para q lo copiaras tal cual, si no q captaras la idea. si no como vas a entender lo que estas haciendo?

ActiveCell.FormulaR1C1=importe

Ups perdon es que ya me estoy frustando jejej pero bueno mira de todas maneras ya lo puse pero no me quedo.

Private Sub TextBox3_Change()
Range("C7").Select
importe = FormatCurrency(TextBox3.Text, 2) esto lo marca como error
ActiveCell.FormulaR1C1 = importe
End Sub

por que sera

Monimo · #8 (**permalink**) 18/05/2010, 11:08

Cita:

Iniciado por nauta85

Ups perdon es que ya me estoy frustando jejej pero bueno mira de todas maneras ya lo puse pero no me quedo.

Private Sub TextBox3_Change()
Range("C7").Select
importe = FormatCurrency(TextBox3.Text, 2) esto lo marca como error
ActiveCell.FormulaR1C1 = importe
End Sub

por que sera

A ver mejor asi:

Private Sub TextBox3_Change()
Range("C7").Select
ActiveCell.FormulaR1C1 = FormatCurrency(TextBox3.Text, 2)
End Sub

Tu pruebale jaja tiene que quedar.... si no así tmb=

Private Sub TextBox3_Change()
Range("C7").Select
importe=textbox3.text
ActiveCell.FormulaR1C1 = FormatCurrency(importe, 2)
End Sub

nauta85 · #9 (**permalink**) 18/05/2010, 11:51

Cita:

Iniciado por Monimo

A ver mejor asi:

Private Sub TextBox3_Change()
Range("C7").Select
ActiveCell.FormulaR1C1 = FormatCurrency(TextBox3.Text, 2)
End Sub

Tu pruebale jaja tiene que quedar.... si no así tmb=

Private Sub TextBox3_Change()
Range("C7").Select
importe=textbox3.text
ActiveCell.FormulaR1C1 = FormatCurrency(importe, 2)
End Sub

hola ya lo intente de las dos formas y otras posibles pero nada me sigue con ese error, sabes ademas una cosa si me aparece el signo pero es de euro y yo quiero este signo mira "$" este es el que quiero que aparezca y que salga del lado izquiero por ejemplo.

$ 1254.156 asi quiero que salgo y ademas que deje de salir la coma
siempre sale asi mira

1,1254 quiero quitar ese coma en y que se ponga el punto.

gracias por toda tus atenciones y paciencia saludos

Monimo · #10 (**permalink**) 18/05/2010, 11:56

Cita:

Iniciado por nauta85

hola ya lo intente de las dos formas y otras posibles pero nada me sigue con ese error, sabes ademas una cosa si me aparece el signo pero es de euro y yo quiero este signo mira "$" este es el que quiero que aparezca y que salga del lado izquiero por ejemplo.

$ 1254.156 asi quiero que salgo y ademas que deje de salir la coma
siempre sale asi mira

1,1254 quiero quitar ese coma en y que se ponga el punto.

gracias por toda tus atenciones y paciencia saludos

Ah esque tu excel esta configurado en europeo, si lo pruebas en otro excel saldrá el de $ o cambiale la configuracion al tuyo y ya saldrá en pesos y con punto no tiene ke ver con la macro

Monimo · #11 (**permalink**) 18/05/2010, 12:15

Private Sub TextBox3_Change()
Range("C7").Select
importe=cdbl(textbox3.text)
ActiveCell.FormulaR1C1 = FormatCurrency(importe, 2)
End Sub

faltaba convertirlo a numero y asegurate de que textbox3.text no este vacio asi:
msgbox(textbox3.text) a ver q te enseña

nauta85 · #12 (**permalink**) 19/05/2010, 08:19

Cita:

Iniciado por Monimo

Private Sub TextBox3_Change()
Range("C7").Select
importe=cdbl(textbox3.text)
ActiveCell.FormulaR1C1 = FormatCurrency(importe, 2)
End Sub

faltaba convertirlo a numero y asegurate de que textbox3.text no este vacio asi:
msgbox(textbox3.text) a ver q te enseña

hola buenos dias como estas ya intente lo que me pusiste muestra un mensaje, con el contenido del text box3 pero aun asi sale el error.

Private Sub TextBox2_Change()
Range("B7").Select
cantidad = Val(TextBox1.Text)
PrecioU = Val(TextBox2.Text)
ActiveCell.FormulaR1C1 = TextBox2.Text
Rem aqui pongo la multiplicacion haber que pasa
importe = cantidad * PrecioU
TextBox3.Text = Val(importe) mira aqui hice esto, con esto resolvi que ya no me aparezca la coma, ahora si ya me aparece el punto
End Sub

Private Sub TextBox3_Change()
Range("C7").Select
ActiveCell.FormulaR1C1 = TextBox3.Text
End Sub

pero sigo con el problema del signo, se me presento otro ahora que ya puede quitar la coma estaba facil, es que no me aparecen los decimales que quiero por ejemplo.

pongo 1.15 x 1.15 y da como re sultado 1 nada mas no pone los decimales por lo menos que ponga dos pero no queda

Monimo · #13 (**permalink**) 19/05/2010, 10:41

el signo de pesos solo se puede poner con esa funcion, al igual q la cantidad de decimales: FORMATCURRENCY... fijate q numero de error te sale y la descripcion, para poder ayudarte.

pero convirtiendolo a decimal

importe_nuevo=CDbl(Textbox3.text)

y luego dandole formato:

activecell.value=formatcurrency(importe_nuevo,2)

ya debería salir....

nauta85 · #14 (**permalink**) 20/05/2010, 16:02

Cita:

Iniciado por Monimo

el signo de pesos solo se puede poner con esa funcion, al igual q la cantidad de decimales: FORMATCURRENCY... fijate q numero de error te sale y la descripcion, para poder ayudarte.

pero convirtiendolo a decimal

importe_nuevo=CDbl(Textbox3.text)

y luego dandole formato:

activecell.value=formatcurrency(importe_nuevo,2)

ya debería salir....

HOLA DE NUEVO COMO ESTAS ESPERO QUE BIEN OYE YA ESTUBE INTENTATO CON TODO LO QUE ME DIJISTE PERO NO FUNCIONA MIRA DICE ASI EN LOS ERROES QUE ME APARECE

EL PRIMER ERROE ME DICE ASI
NO CONCIDEN LOS TIPOS
importe_nuevo=CDbl(Textbox3.text)
activecell.value=formatcurrency(importe_nuevo,2)

EL OTRO ERRO ES EL DE
ARGUMENTO O LLAMADA A PROCEDIMIENTO NO VALIDA
NO ME QUEDA JEJEJ DE MUCHAS FORMAS TODO LO QUE HICE

BUENO NOS VEMOS MIL GRACIAS POR TU AYUDA

HASTA LUEGO

Monimo · #15 (**permalink**) 21/05/2010, 08:56

Hice tu macro y con esto me corre perfectamente:

Private Sub TextBox2_Change()
Range("B7").Select
cantidad = Val(TextBox1.Text)
PrecioU = Val(TextBox2.Text)
ActiveCell.FormulaR1C1 = TextBox2.Text
Rem aqui pongo la multiplicacion haber que pasa
importe = cantidad * PrecioU
TextBox3.Text = importe
Range ("C7")
importe = FormatCurrency(importe, 2)
ActiveCell.FormulaR1C1 = importe
End Sub

quita todo el método del Private Sub TextBox3_Change() ese borralo

quedaría así:

Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
Range("A7").Select
Val (TextBox1.Text)
ActiveCell.FormulaR1C1 = TextBox1.Text
End Sub

Private Sub TextBox2_Change()
Range("B7").Select
cantidad = Val(TextBox1.Text)
PrecioU = Val(TextBox2.Text)
ActiveCell.FormulaR1C1 = TextBox2.Text
Rem aqui pongo la multiplicacion haber que pasa
importe = cantidad * PrecioU
TextBox3.Text = importe
Range("C7").Select
importe = FormatCurrency(importe, 2)
ActiveCell.FormulaR1C1 = importe
End Sub

nauta85 · #16 (**permalink**) 21/05/2010, 10:39

Cita:

Iniciado por Monimo

Hice tu macro y con esto me corre perfectamente:

Private Sub TextBox2_Change()
Range("B7").Select
cantidad = Val(TextBox1.Text)
PrecioU = Val(TextBox2.Text)
ActiveCell.FormulaR1C1 = TextBox2.Text
Rem aqui pongo la multiplicacion haber que pasa
importe = cantidad * PrecioU
TextBox3.Text = importe
Range ("C7")
importe = FormatCurrency(importe, 2)
ActiveCell.FormulaR1C1 = importe
End Sub

HOLA MUCHAS GRACIAS SI ES CIERTO SI CORRE BIEN GRACIAS POR TU AYUDA, UNA COSA MAS, YO HICE ESTO ASI COMO CUANDO UNO SE TAPA LOS OJOS Y CAMINA COMO SE DICE ATIENTAS, Y CON TU AYUDA Y LA DEL OFFICE, PERO ME GUSTARIA SABER MAS DE LA PROGRAMACION CONOCER MAS A FONDO LO COMANDOS Y ENTENDERLOS SOBRE TODO, QUERIA LO MEJOR, ME PUEDES RECOMENDAR ALGUN LIBRO DONDE SE EXPLIQUE SENCILLO, POR QUE LOS QUE HE VISTO DAN MUCHAS VUELTAS Y NO HACEN ANDA CONCRETO, GRACIAS POR TODO, Y POR AQUI ESTARE MOLESTANDO JEJEJE QUIERO HACER MAS COSAS.

VOY AEMPEZAR HACER UNA BASE DE DATOS PARA DESPUES LLAMAR CADA CONCEPTOY PODER HACER UNA FICHA UNITARIA Y HACER UN PRESUPUESTO ESPERO PODER.

NOS VEMOS

quita todo el método del Private Sub TextBox3_Change() ese borralo

quedaría así:

Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
Range("A7").Select
Val (TextBox1.Text)
ActiveCell.FormulaR1C1 = TextBox1.Text
End Sub

Private Sub TextBox2_Change()
Range("B7").Select
cantidad = Val(TextBox1.Text)
PrecioU = Val(TextBox2.Text)
ActiveCell.FormulaR1C1 = TextBox2.Text
Rem aqui pongo la multiplicacion haber que pasa
importe = cantidad * PrecioU
TextBox3.Text = importe
Range("C7").Select
importe = FormatCurrency(importe, 2)
ActiveCell.FormulaR1C1 = importe
End Sub

Monimo · #17 (**permalink**) 21/05/2010, 10:58

Híjole, pues libros no.. yo nunca he usado uno jeje .. bueno solo esta vez cuando fue el cambio de 2003 a 2007 de excel : Microsoft office excel 2007 power programming with VBA John Walkenbach. Wiley.

nauta85 · #18 (**permalink**) 21/05/2010, 11:04

Cita:

Iniciado por monimo

híjole, pues libros no.. Yo nunca he usado uno jeje .. Bueno solo esta vez cuando fue el cambio de 2003 a 2007 de excel : microsoft office excel 2007 power programming with vba john walkenbach. wiley.

ha orale gracias bueno sip me iamgine que no habia algo asi pero bueno.

Total no es muy dificil jejeje

nos vemos por cierto otra pregunta tu sabes como hacer que en el cuadro que hice el use form al momento de iniciarlo me ponga en el excel lo que puse en las etiquetas

las etiquetas tiene los siguientes datos

fecha clave partida concepto unidad cantidad precio u importe

quiero que ponga esto en cada celda pero solo una ves al inicio de un nuevo presupuesto nada mas.

En las celdas a6, b6, c6, y asi hasta donde ter,mine se puede hacer eso.