UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 evento doble click listbox el 28/05/15, 10:19 pm

tan17


Buenas noches.
Expertos ustedes me puede ayudar que metodo puedo utilizar para obligar datos en un combobox desde el evento doble click.

muchas gracias




Private Sub Lista_fac_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim VALORDELABEL As Long
Dim VgUias As String
Dim numBultox As String

  

If Lista_fac.ListCount > 2 Then
    If Lista_fac.ListIndex > 0 Then
         If Not Lista_fac.List(Lista_fac.ListIndex, 0) = "" Then
             If Lista_fac.List(Lista_fac.ListIndex, 1) = "" Then
        '           MsgBox ("nO TIENE HORA DE ATENCION  ")
                   If MsgBox("El camion placa:" + Lista_fac.List(Lista_fac.ListIndex, 0) + " No tiene Guias de Despacho, desea ingresarlas y finalizar tiempo de atencion " + Lista_fac.List(Lista_fac.ListIndex, 0), vbYesNo, EMPRESA) = vbYes Then
                        VgUias = InputBox("Registre las Guias de Despacho", empresaHF)
                        If VgUias = "" Then
                            If MsgBox("Las guias para el camion:" + Lista_fac.List(Lista_fac.ListIndex, 0) & " estan en blanco, desea continuar", vbYesNo) = vbNo Then
                                  
                                      Exit Sub
                                    
                            Else
                                    Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 7) = "No fueron ingresadas guias"
                                    Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 19) = Format(Now, "hh:mm:ss")
                                    Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 20) = Format(Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 19) - Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 18), "hh:mm:ss")
                               '          Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 21) = cbruta.Text
                                    Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 21) = "FINALIZADO"
                                    CARGA_FACTURAS
                                    Lista_fac.RemoveItem (Lista_fac.ListIndex)
                                    VALORDELABEL = Val(lblactivos)
                                    VALORDELABEL = VALORDELABEL - 1
                                    lblactivos = VALORDELABEL
                            
                                    
                                                      
                            End If
                                    
                          Else
                                     
                                     numBultox = InputBox("Digite la suma total de bultos", empresaHF)
                                     
                                      Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 6) = numBultox
                                     Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 7) = VgUias
                                    Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 19) = Format(Now, "hh:mm:ss")
                                    Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 20) = Format(Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 19) - Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 18), "hh:mm:ss")
                                    Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 21) = "FINALIZADO"
                                    CARGA_FACTURAS
                                    Lista_fac.RemoveItem (Lista_fac.ListIndex)
                                    VALORDELABEL = Val(lblactivos)
                                    VALORDELABEL = VALORDELABEL - 1
                                    lblactivos = VALORDELABEL
                        End If
                        
                                   
                                                                             
                   End If
                
                Else
                   If MsgBox("Finaliza la atención para camión placa:  , " + Lista_fac.List(Lista_fac.ListIndex, 0), vbYesNo, "Hortifruti" + "    Hora de Inicio de Atención:" + Lista_fac.List(Lista_fac.ListIndex, 6)) = vbYes Then
                           
                            Lista_fac.List(Lista_fac.ListIndex, 6) = Format(Now, "hh:mm:ss")
                            Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 19) = Format(Now, "hh:mm:ss")
                            Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 20) = Format(Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 19) - Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 18), "hh:mm:ss")
                            Sheets("HOJA1").Cells(Lista_fac.List(Lista_fac.ListIndex, 7), 21) = "FINALIZADO"
                              CARGA_FACTURAS
                            Lista_fac.RemoveItem (Lista_fac.ListIndex)
                            VALORDELABEL = Val(lblactivos)
                            VALORDELABEL = VALORDELABEL - 1
                            lblactivos = VALORDELABEL
                            
                  End If
                          
                End If
                
            
            
            Else
                MsgBox ("Por favor revise debe selecionar un transportista activo"), vbCritical, "jj"
            End If
    
    End If
Else
    MsgBox ("No hay transportista activos ")

End If
ActiveWorkbook.Save




End Sub

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.