Formulario

Hola Fernando!
Estoy tratando de hacer una captura de datos y lo he conseguido parcialmente, lo he realizado con ImputBox, pero deseo hacerlo con un formulario, he escrito el siguiente código :
Sub Captura()
Dim batido As Integer
Dim mayor As Integer
Dim menor As Integer
Dim Turno As Integer
Sheets("menor").Select
batido = InputBox("Numero de batidos")
Range("e2").Value = batido
mayor = InputBox("Introduce folio de Mayor")
Range("f2").Value = mayor
menor = InputBox("Introduce folio de Menor")
Range("g2").Value = menor
Turno = InputBox("Introduce folio de Turno")
Range("h2").Value = Turno
Range("A9").Select
CopiarDatos 'llama la macro CopiarDatos'
End Sub
También he realizado el siguiente código para el formulario siguiente, pero no me funciona bien.
Private Sub CommandButton1_Click()
End Sub
Private Sub TextBox1_Change()
Range("E2").Value = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("F2").Value = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("G2").Value = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("H2").Value = TextBox4
End Sub
Private Sub Userform1()
Load UserForm
UserForm Show
Como ves son mis primeras incursiones en esto de la programación en VBA, por favor quisiera me indicaras como realizarlo, porque le he buscado y la verdad no me funciona por la atención que prestes a la presente gracias.
P.D.
Acerca del archivo de las conciliaciones, ya lo he puesto en practica y es increíble como funciona. Realice 4 conciliaciones en una mañana, tiempo que anteriormente solo dedicaba solo a una.
Mil Gracias
Jose Medina

1 Respuesta

Respuesta
1
Tu segundo macro está muy cerca de ser la solución que buscas.
Cuando usas un Userform, el criterio de programación consiste en cargar los datos en los textbox y debes tener un botón de comando para que los vuelque una vez que los hayas verificado.
De hecho, suele usarse el evento TextBoxX_Exit para hacerle los controles de consistencia.
Por lo tanto, tu macro para volcar los datos debería ser:
Private Sub CommandButton1_Click()
Range("E2").Value = TextBox1.Value
Range("F2").Value = TextBox2.Value
Range("G2").Value = TextBox3.Value
Range("H2").Value = TextBox4.Value
Unload Userform1 'quita el formulario de pantalla
End Sub
Con esto deberías resolver tu problema. Caso contrario, pregúntame nuevamente.
Un abrazo!
Fernando
Pd: Me alegro de que aquel archivo de conciliaciones sea realmente útil.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como pegar solamente valores de una celda a otra hoja

Sub CopiarImprimir() ' ' CopiarImprimir Macro ' Application.ScreenUpdating = False Sheets("Imprimir").Select Worksheets("Imprimir"). Range("A4:C50"). Clear Range("E4:J49"). Clear Sheets("Planillas").Select Sheets("Planillas"). Range("G4").Copy...
2 respuestas

Redondear decimales en números arábigos

Sres. T.E. La consulta es la siguiente, necesito una fórmula en excel para llevar los decimales a .00 y .50, ejemplo en una celda tengo el valor 45.12 levarlo a 45.00 en otra tengo 45.42 levarlo a 45.00.
2 respuestas

Mantener el color de un botón al salir de un módulo

Quisiera por favor me ayuden, estoy haciendo una aplicación en vba para un restaurante y necesito lo siguiente: tengo 20 mesas que al momento de abrir el modulo de venta selecciono la mesa y cambia de color y su estado pasa a ocupada la idea es...
2 respuestas

Sumar dos filas distintas mayor a 0

Quiero sumar dos filas separadas por ejemplo fila 5 de A4 a J4 y fila 10 de A4 a J4, cada fila tiene resultados positivos o negativos, quiero que me sume en la celda B3 por ejemplo los datos positivos y en la celda C3 los datos negativos. Solo se...
2 respuestas

Filtrar ultima fecha según el criterio de una celda

Tengo una tabla de excel con la siguiente información Columna A el código del equipo. (Código único para cada equipo) Columna B la fecha en que se realizo la ultima revisión. Columna C el nombre del equipo. Columna D El tipo de revisión (preventivo,...
2 respuestas

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas

Suma en un formulario de Excel

Estoy realizando un formulario, el cual al salir del ultimo texbox me sume los anteriores, he usado el siguiente código Private Sub base0_Change() On Error Resume Next Me.totalfactura = Round((Me.base0 + Me.base10 + Me.base21 + Me.base4 + Me.base5) +...
2 respuestas

Copiar dato de una celda para filtrar una tabla en otra hoja

En la primera hoja tengo una tabla con datos que alimenta otra tabla que se encuentra en una segunda hoja. Quisiera una macro que copie el contenido de la celda que tenga seleccionada, después ir la segunda hoja y filtrar ese dato en la tabla que ahí...
2 respuestas

Pasar de hoja resumen a plantilla de factura

Tengo un Excel, con un hoja resumen de datos, y lo que quisiera hacer, es que me pasara los datos que tengo en cada línea de la hoja resumen de forma de forma automática, a diferentes hojas de excel del mismo libro, en unas celdas concretas,...
3 respuestas

Buscar la ultima fecha de mantenimiento

Tengo una tabla de excel hoja2 que cuando escribo el numero de activo del equipo en la columna A me busca los datos como el nombre del equipo, marca, serie y modelo. Estos datos provienen de la hoja 1. Lo que quiero hacer es que al digital el activo...
2 respuestas