Macro para ingresar datos de toma de inventario
Hola, necesito crear un formulario que me permita ingresar el código de bien y me despliegue la información del mismo y se ingrese manualmente el valor constatado.
1 Respuesta
H o l a:
Envíame tu archivo, si ya tienes un formulario, envíame el archivo con el formulario.
Explícame en cuál columna está el "código de bien" y en cuál columna se va a ingresar el "valor constatado"
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Stalin Barahona” y el título de esta pregunta.
Te anexo el código para el formulario:
Private Sub ComboBox1_Change()
'Por.Dante Amor
Set h1 = Sheets("BODEGA_GENERAL")
If ComboBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = -1 Then Exit Sub
Set b = h1.Columns("A").Find(ComboBox1, lookat:=xlWhole)
If Not b Is Nothing Then
Label1 = h1.Cells(b.Row, 12)
Label2 = h1.Cells(b.Row, 13)
Label3 = Date
Label4 = h1.Cells(b.Row, 2)
Label5 = h1.Cells(b.Row, 4)
Label6 = h1.Cells(b.Row, 6)
Label7 = h1.Cells(b.Row, 8)
Label8 = h1.Cells(b.Row, 9)
Label9 = h1.Cells(b.Row, 10)
Label10 = CDbl(Label8) * CDbl(Label9)
Label11 = ""
End If
End Sub
'
Private Sub UserForm_Activate()
'Por.Dante Amor
Set h1 = Sheets("BODEGA_GENERAL")
u = h1.Range("A" & Rows.Count).End(xlUp).Row
hoja = h1.Name
ComboBox1.RowSource = h1.Name & "!A3:A" & u
End Sub
¡Gracias!
Es muy buena la solución a mi problema, te agradezco por tu tiempo invertido en la ayuda a mi persona y a la comunidad
Gracias por tu ayuda.
El formulario es la solución que estaba buscando ahora me quedaría pendiente la validación de los datos y generar la tercera hoja, disculpa mi insistencia, lo que ocurre es que debo iniciar el inventario el próximo lunes, y mi deseo es poder utilizar esta solución que muy amablemente me estas ayudando
H o l a:
Con gusto te sigo ayudando, crea una nueva pregunta en el tema de microsoft excel por cada petición, escribe en el texto de la pregunta "para Dante Amor".
