Solo disponible en BuenasTareas
• Páginas : 2 (478 palabras )
• Descarga(s) : 0
• Publicado : 13 de enero de 2011

Vista previa del texto
For k = 16 To 20
For k1 = 1 To 8
If Cells(k, 2) = Sheets("productos").Cells(k1, 1) Then
If Cells(k, 4) > Sheets("productos").Cells(k1, 3) Then
Exit Sub
End If
End If
Next k1
Next k

For k = 16 To 20
For k1 = 1 To 8
If Cells(k, 2) = Sheets("productos").Cells(k1, 1) Then
Sheets("productos").Cells(k1, 3) =Sheets("productos").Cells(k1, 3) - Cells(k, 4)
End If
Next k1
Next k

For k = 1 To 500
If Sheets("ventas").Cells(k, 1) = "" Then Exit For
Next kSheets("ventas").Cells(k, 1) = Cells(8, 5)
Sheets("ventas").Cells(k, 2) = Date
Sheets("ventas").Cells(k, 3) = Cells(22, 5)
Sheets("ventas").Cells(k, 4) = Cells(23, 5)
Sheets("ventas").Cells(k, 5) =Cells(24, 5)

Cells(16, 2) = ""
Cells(17, 2) = ""
Cells(18, 2) = ""
Cells(19, 2) = ""
Cells(20, 2) = ""
Cells(16, 4) = ""
Cells(17, 4) = ""
Cells(18, 4) = ""
Cells(19, 4) = ""
Cells(20, 4) = ""Cells(8, 5) = Cells(8, 5) + 1
End Sub
Function PesosMN(tyCantidad As Currency) As String
Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte,lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero
Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como OptionExplicit