Ingresar códigos de barra con motivo
Podrías ayudarme con lo que necesito, solo me faltan detalles para trabajar bien en mi programa de correo.
El asunto es que necesito ingresar unos documentos a una hoja excel de un libro, te acuerdas de las hojas, rendi_doc, carga_doc, bueno acá solo necesito que al ingresar los códigos de barra de los documentos de rendición, sea que vengan entregados o con motivo de devolución (entregado, dirección no ubicada, incompleta, etc.) pero que en el formulario yo pueda seleccionar el motivo con una lista desplegable, cuadro combinado o algo similar, yo en el anterior te mande un código en el cual tu me lo enviaste modificado para ingresar con lector láser, necesito que en es mismo form, tenga una forma de modificarlo y agregar donde poder seleccionar los motivos o estado del documento que es este:
Private Sub CommandButton1_Click()
'Act.Por Dante Amor
If Len(TextBox1) > 1 And TextBox1 <> "" Then
TextBox1 = "" & TextBox1
Set h = Sheets("rendicion")
u = h.Range("B" & Rows.Count).End(xlUp).Row + 1
h.Cells(u, "B") = TextBox1
TextBox1 = ""
TextBox1.SetFocus
End If
End Sub
________________________________
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Act.Por Dante Amor
CommandButton1_Click
Cancel = True
End Sub
_________________________________
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 45 And KeyAscii <= 75 Then KeyAscii = 0
End Sub
___________________________
Que ese formulario tenga un cuadro donde seleccione el motivo de documento, por ejemplo, tengo 10 cartas, de esas 10, 5 están entregadas en donde yo seleccione "ENTREGADO" e ingreso de una los 5 documentos, después selecciono "Nº NO UBICADO" marco las cartas con ese motivo y así para adelante y que estos queden justo al lado del código de barras en la columna C.
Los motivos son:
Dirección Incompleta - Deshabitado - Rehusado - Desconocido - No hay quien reciba - nº no ubicado - Se Cambió - No trabaja acá - Fallecido - Lugar Inaccesible - No corresponde a ciudad - Lugar destruido.
1 respuesta
No entendí.
¿En qué formulario hay quieres que te ayude?
Qué quieres hacer:
¿Capturar un código y un motivo y que ambos se guarden en la hoja?
O después de capturar un código quieres, ¿posteriormente seleccionar ese código y ponerle un motivo?
Esto que pusiste no lo entiendo:
" Tengo 10 cartas, de esas 10, 5 están entregadas en donde yo seleccione "ENTREGADO" e ingreso de una los 5 documentos, después selecciono "Nº NO UBICADO" marco las cartas con ese motivo y así para adelante"
Tu archivo no viene con datos, sin ejemplos es difícil entender lo que necesitas.
Te anexo la macro para los códigos
Private Sub CommandButton1_Click()
'Act.Por Dante Amor
If Len(TextBox1) > 1 And TextBox1 <> "" Then
TextBox1 = "" & TextBox1
Set h = Sheets("rendicion")
u = h.Range("B" & Rows.Count).End(xlUp).Row + 1
h.Cells(u, "C") = ComboBox1
h.Cells(u, "B") = TextBox1
TextBox1 = ""
ComboBox1 = ""
TextBox1.SetFocus
End If
End Sub
'
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 45 And KeyAscii <= 75 Then KeyAscii = 0
End Sub
'
Private Sub UserForm_Activate()
'Por.Dante Amor
Set h3 = Sheets("Motivos")
For i = 2 To h3.Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem h3.Cells(i, "A")
Next
End Sub
¡Gracias! por tu ayuda quedó excelente, agradezco tu tiempo y dedicación a solucionar pequeños problemas a los que no sabemos mucho de programación pro aún así queremos agilizar nuestros tiempos, saludos amigo ;)
