Dudas sobte excel

[anaanaya]

Hola a todos y de antemano muchas gracias por su ayuda, quisiera ve r si me pudieran ayudar a generar un progama a travez de excel para captura de datos.

Saludos

[JavierB]

Hola anaanaya . Bienvenida al foro.

El foro de Bienvenida a Foros del Web es para presentarse y, si quieres, contarnos algo sobre tí. Para preguntas concretas utiliza el foro que mejor se adapte a tu duda.

Muevo tu mensaje al foro de Ofimática desde Bienvenida a Foros del Web.

Saludos,

[abrahamvj]

Mira este ejemplo:

http://es.geocities.com/eavj666peru/Formulario.xls

Abraham

[ideasking]

abrahamvj intente usar su ejemplo pero me genera error de compilacion en este segmento del codigo:

fila = ActiveCell.Row
ActiveCell = Val(TextBox5)
Range("b" + fila) = TextBox1
Range("c" + fila) = TextBox2
Range("d" + fila) = TextBox3
Range("e" + fila) = ComboBox1
Range("f" + fila) = Val(Round(TextBox4, 0))
Unload UserForm1
Worksheets("hoja1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("hoja2").Activate


Lo que te resalte en azul, me dice que no se ha definido Sub o Funcion.
Que puede ser?

[abrahamvj]

que version de excel tienes????

Abraham

[ideasking]

Offices 97. me ayudas como lo puedo solucionar? gRACIAS

[abrahamvj]

Borrale todos los ROUND que veas, aparentemente, la version de VBA del excel 97 no lo reconoce. No te variara los resultados.

Abraham

[ideasking]

Pero le borreo dos Round que encontre pero me genera error de sintaxis pues quedaria asi:

fila = ActiveCell.Row
ActiveCell = Val(TextBox5)
Range("b" + fila) = TextBox1
Range("c" + fila) = TextBox2
Range("d" + fila) = TextBox3
Range("e" + fila) = ComboBox1
Range("f" + fila) = Val((TextBox4, 0))
Unload UserForm1

Me puedes arreglar ese segmento de codigo para pegarselo al resto. Gracias

[3pies]

Para el tema de ROUND y excel 97, puedes crearte una función personalizada, para redondear. Aquí la tienes: http://www.vbfrance.com/codes/VBA-EX...-97_32811.aspx

[ideasking]

okis amigo, ya lo cuadre y me funciono bien Gracias