Venta

Private Sub B_1_Click()
'Dim I As Integer
'ESTAVENTA_BOL.RowSource = ""'

' ESTAVENTA_BOL.Clear
'
' For I = 1 To 11
' If FILTRO_BOL.Selected(I) = True Then
'
'Range("AA" & (I + 1)).Value = FILTRO_BOL.List(I)
'
' ESTAVENTA_BOL.AddItem FILTRO_BOL.List(I)
'
' End If
' Next I






End Sub

Private Sub Bebidas_Click()Worksheets("V_boleta").Select
Range("ba:bj").ClearContents

Range("PR_Filtra_Producto").Copy
Range("ba1").Select
ActiveSheet.Paste

Range("ba:ba").Copy
Range("be1").Select
ActiveSheet.Paste

On ErrorGoTo CONTROL_ERRORES

'Range("ba:bd").ClearContents
'Range("ListadobuscaP").Value = CajaBusca.Value
'Range("Listadobuscav").Value = "=IF(ISERROR(SEARCH(RC[-1],RC[-2])),0,1)"
'Range("bl1").Value ="=COUNTA(ListadobuscaP)+1"
X = 1
LineaP = 1
LineaV = 1
LineaF = 1


While X < Range("az1").Value

If Range("bb" & X).Value >= 100000000 And Range("bb" & X).Value = 700000000 And Range("bb" &X).Value = 200000000 And Range("bb" & X).Value
Worksheets("V_BOLETA").Range("M" & LINEA) = Worksheets("V_BOLETA").Range("Z" & (N)).Value
Worksheets("V_BOLETA").Range("N" & LINEA) =Worksheets("V_BOLETA").Range("AA" & (N)).Value
'Worksheets("V_BOLETA").Range("O" & Linea) = Worksheets("V_BOLETA").Range("AB" & (N)).Value
Worksheets("V_BOLETA").Range("P" & LINEA) =Worksheets("V_BOLETA").Range("AB" & (N)).Value
Worksheets("V_BOLETA").Range("Q" & LINEA) = Worksheets("V_BOLETA").Range("AK" & (N)).Value
Worksheets("V_BOLETA").Range("R" & LINEA) = vendedor.Value'============================================
'REBAJANDO STOCK INICIO DE RUTINA
'============================================


STK_CODIGO = Worksheets("V_BOLETA").Range("C" & LINEA)STK_VENDIDO = Worksheets("V_BOLETA").Range("G" & LINEA)
STK_FINEX = STK_COMEX - STK_VENDIDO
STK = Range("countMax").Value
For I = 1 To STK
BUSCA_CODIGO = Worksheets("PRODUCTOS").Range("A" & I).Value...