Como generar una ventana de dialogo y descargar datos en las columnas indicadas
Buen dia, nuevamente solicitando tu ayuda para poder facilitar el trabajo. Necesito hacer una ventana de dialogo que la pueda activar cuando oprimo un botón y de ser posible que funcione en todas las hojas del libro, esta ventana debe de solicitar la clave del producto con el que se desea actualizar la información. Todas las claves de los se encuentran en la columna "M" (por supuesto como son varios productos se encuentran en diferentes renglones). Una vez que se dio la clave del producto en la ventana de dialogo, debe solicitar el estatus del producto que pueden ser 3 diferentes estados ( "ACEPTADO", "ESPERA" y "RECHAZADO"), los cuales yo debo escribir esta información (el estado del producto). Si el estado es "ACEPTADO" debe de mover esa celda y las celdas de ese mismo renglón de las columnas N, O, P, Q, R a las columnas G, H, I, J, K, L respectivamente. Si el estado es "ESPERA" , se habilita otro campo en la ventana de dialogo para que se indique si esta "RETRASADO" o "A TIEMPO" y este dato se pone en la columna T. Si el estado es "RECHAZADO" ese dato se pone en la columna L, eliminando la información que haya en esa celda. Ojala haya explicado las cosas correctamente para que me puedas ayudar. De antemano mil gracias por tu atención y ayuda. Saludos
1 respuesta
Dim salir As Boolean
Private Sub ComboBox1_Change()
'por.DAM
Select Case ComboBox1
Case "ACEPTADO"
ComboBox2.Visible = False
Label3.Visible = False
Case "ESPERA"
ComboBox2.Visible = True
Label3.Visible = True
ComboBox2.SetFocus
Case "RECHAZADO"
ComboBox2.Visible = False
Label3.Visible = False
End Select
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'por.DAM
If ComboBox1 = "" And salir = False Then
MsgBox "Selecciona un estado", vbExclamation, "CLAVES"
ComboBox1.SetFocus
Cancel = True
End If
End Sub
Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'por.DAM
If ComboBox2 = "" And salir = False Then
MsgBox "Selecciona un valor", vbExclamation, "CLAVES"
ComboBox2.SetFocus
Cancel = True
End If
End Sub
Private Sub CommandButton1_Click()
'por.DAM
If ComboBox1 = "" Then
MsgBox "Selecciona un estado", vbExclamation, "CLAVES"
ComboBox1.SetFocus
Exit Sub
End If
If ComboBox1 = "ESPERA" And ComboBox2 = "" Then
MsgBox "Selecciona un valor", vbExclamation, "CLAVES"
ComboBox2.SetFocus
Exit Sub
End If
MsgBox "Proceso en construcción hasta recibir respuesta del usuario", vbInformation, "CLAVES"
Unload Me
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'por.dam
If TextBox1 = "" And salir = False Then
MsgBox "Captura una clave", vbExclamation, "CLAVES"
TextBox1.SetFocus
Cancel = True
End If
End Sub
Private Sub UserForm_activate()
'por.DAM
salir = False
ComboBox2.Visible = False
Label3.Visible = False
ComboBox1. AddItem "ACEPTADO"
ComboBox1. AddItem "ESPERA"
ComboBox1. AddItem "RECHAZADO"
ComboBox2. AddItem "RETRASADO"
ComboBox2. AddItem "A TIEMPO"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'por.DAM
If CloseMode = 0 Then
salir = True
Unload Me
'Cancel = 1
End If
End Sub
