¡Descarga como agregar clientes y más Apuntes en PDF de Historia del Mundo Contemporáneo solo en Docsity!
TEXTO= CLINOMBRE
LISTBOX= LISTA
FOMULARIO=FORMULARIOCLI
50pt;90 pt;50 pt;50 pt;50 pt;50 pt;50 pt 49,95 pt;90 pt;49,95 pt;49,95 pt;49,95 pt;49,95 pt;49,95 pt PARA LLAMAR A MI FORMULARIO ESTE CODIGO LO VAMOS A PEGAR EN UN MODULO Sub buscarclientes_1() FORMULARIOCLI.Show End Sub
Private Sub CLINOMBRE_Change() Application.ScreenUpdating = False Sheets("Clientes").Select Range("C9").Select LISTA.Clear While ActiveCell.Value <> "" M = InStr(1, UCase(ActiveCell.Value), UCase(CLINOMBRE.Text)) If M > 0 Then LISTA.ColumnCount = 7 LISTA.AddItem ActiveCell.Offset(0, -1).Select LISTA.List(LISTA.ListCount - 1, 0) = ActiveCell.Value ActiveCell.Offset(0, 1).Select LISTA.List(LISTA.ListCount - 1, 1) = ActiveCell.Value
ActiveCell.Offset(0, 1).Select LISTA.List(LISTA.ListCount - 1, 2) = ActiveCell.Value ActiveCell.Offset(0, 1).Select LISTA.List(LISTA.ListCount - 1, 3) = ActiveCell.Value ActiveCell.Offset(0, 1).Select LISTA.List(LISTA.ListCount - 1, 4) = ActiveCell.Value ActiveCell.Offset(0, 1).Select LISTA.List(LISTA.ListCount - 1, 5) = ActiveCell.Value ActiveCell.Offset(0, 1).Select LISTA.List(LISTA.ListCount - 1, 6) = ActiveCell.Value ActiveCell.Offset(0, -5).Select End If ActiveCell.Offset(1, 0).Select Wend Sheets("Facturacion").Select Range("A1").Select Application.ScreenUpdating = True End Sub
LISTA.List(LISTA.ListCount - 1, 4) = ActiveCell.Value ActiveCell.Offset(0, 1).Select LISTA.List(LISTA.ListCount - 1, 5) = ActiveCell.Value ActiveCell.Offset(0, 1).Select LISTA.List(LISTA.ListCount - 1, 6) = ActiveCell.Value ActiveCell.Offset(1, -6).Select Else ActiveCell.Offset(1, -50).Select End If Wend Sheets("Facturacion").Select Range("A1").Select Application.ScreenUpdating = True End Sub Private Sub LISTA_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Application.ScreenUpdating = False On Error GoTo ERR: L = LISTA.List(LISTA.ListIndex, 0) Sheets("Clientes").Select Range("B9").Select While ActiveCell.Value <> "" And ActiveCell.Value <> L And ActiveCell.Value <> Val(L) ActiveCell.Offset(1, 0).Select Wend
If ActiveCell.Value = "" Then Unload Me FORMULARIOCLI.Show Else mensaje = LISTA.List(LISTA.ListIndex, 6) If mensaje > 0 Then COD1 = ActiveCell.Value ActiveCell.Offset(0, 0).Select NOMB1 = ActiveCell.Value Sheets("Facturacion").Select Range("F3").Select ActiveCell.Value = NOMB Unload Me Else Dim movi As String Sheets("Facturacion").Select movi = Range("D10").Value If movi <> "Ventas" Then Sheets("Clientes").Select
