¡Descarga codigos para agregar productos y más Apuntes en PDF de Historia del Mundo Contemporáneo solo en Docsity!
TEXTO= PRONOMBRE
LISTBOX= LISTA
FOMULARIOFA
49,95 pt;90 pt;49,95 pt;49,95 pt;49,95 pt;49,95 pt;49,95 pt 50pt;90 pt;50 pt;50 pt;50 pt;50 pt;50 pt;50 pt PARA LLAMAR A MI FORMULARIO ESTE CODIGO LO VAMOS A PEGAR EN UN MODULO Sub buscarproductos_1() FOMULARIOFA .Show End Sub Private Sub PRONOMBRE_Change() Application.ScreenUpdating = False Sheets("PRODUCTOS").Select Range("C11").Select LISTA.Clear While ActiveCell.Value <> "" M = InStr(1, UCase(ActiveCell.Value), UCase(PRONOMBRE.Text)) If M > 0 Then LISTA.ColumnCount = 8 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, 1).Select LISTA.List(LISTA.ListCount - 1, 7) = ActiveCell.Value ActiveCell.Offset(0, -6).Select End If ActiveCell.Offset(1, 0).Select Wend Sheets("Facturacion").Select Range("A1").Select Application.ScreenUpdating = True End Sub
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, 1).Select LISTA.List(LISTA.ListCount - 1, 7) = ActiveCell.Value ActiveCell.Offset(1, -7).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("PRODUCTOS").Select Range("B11").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 FORMULARIO.Show Else mensaje = LISTA.List(LISTA.ListIndex, 7) If mensaje > 0 Then COD1 = ActiveCell.Value ActiveCell.Offset(0, 0).Select NOMB1 = ActiveCell.Value Sheets("Facturacion").Select Rows("10:10").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows("10:10").Interior.Color = RGB(255, 255, 255) Rows("10:10").Font.ColorIndex = RGB(0, 0, 0) Range("E10").Select
