Macros

Solo disponible en BuenasTareas
  • Páginas : 50 (12443 palabras )
  • Descarga(s) : 10
  • Publicado : 17 de agosto de 2010
Leer documento completo
Vista previa del texto
FACTURAS
Dim strrango$, CantArt
Dim lngnuevovalor, lngnumero As Double
Sub RegFactura()
Dim strdescrip$, strmed$, strtipo$
Dim lngnuevovalor, lngnumero, CantArt
Dim dathoy As Date
CantArt = [B80]
If [C6] = "" Or [E6] = "" Or [E10] = "" Then
Sheets("Ventas").Unprotect
If [C6] = "" Then
With Sheets("Ventas").Range("C6").Interior
.ColorIndex = 6
.Pattern = xlSolidEnd With
End If
If [E6] = "" Then
With Sheets("Ventas").Range("E6").Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
If [E10] = "" Then
With Sheets("Ventas").Range("E10").Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
MsgBox "Faltan algunos datos por Introducir" & vbCrLf & vbCrLf & "Revise los conceptosque en " & vbCrLf & "este momento se muestran a Color :" & vbCrLf & "Cliente, Fecha u Orden de Compra", vbCritical + vbOKOnly, "FALTA INFORMACION"
If [C6] = "" Then
With Sheets("Ventas").Range("C6").Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
End If
If [E6] = "" Then
With Sheets("Ventas").Range("E6").Interior
.ColorIndex = 0.Pattern = xlSolid
End With
End If
If [E10] = "" Then
With Sheets("Ventas").Range("E10").Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
End If
Sheets("Ventas").Protect
Exit Sub
End If
If [O13] > 1 Then
MsgBox "Esta Repitiendo un producto", vbCritical + vbOKOnly, "PRODUCTO REPETIDO"
Exit Sub
End If
If [S13] >= 1 Then
MsgBox "Una Cantidad enProductos tiene mas que en INVENTARIO", vbCritical + vbOKOnly, "CANTIDAD DE PRODUCTOS"
Exit Sub
End If
If Sheets("Ventas").[F9] <= Sheets("Registro de Ventas").[L1] Then
Load REPETICION
REPETICION.Show
Exit Sub
End If
uf = Sheets("Registro de Ventas").Range("C65536").End(xlUp).Row + 1
If [B80] = 0 Then
MsgBox "No Hay Codigo ni Cantidad de Productos a Registrar", vbCritical +vbOKOnly, "CANTIDAD DE PRODUCTOS"
Exit Sub
End If
If [b86] < [B80] Then
MsgBox "Falta Alguna Cantidad de Productos", vbCritical + vbOKOnly, "CANTIDAD DE PRODUCTOS"
Exit Sub
End If
If uf > 1000 Then
MsgBox "Atención, Existe una cantidad considerable de Registros,es recomendable guardar un copia de seguridad", vbInformation + vbOKOnly, "EXCESO DE REGISTROS"
Exit Sub
End IfSheets("Registro de Ventas").Range("A" & uf) = Range("F9") ' Factura
Sheets("Registro de Ventas").Range("B" & uf) = Range("E6") ' Fecha
Sheets("Registro de Ventas").Range("C" & uf) = Range("C6") ' Nombre
Sheets("Registro de Ventas").Range("C" & uf + Range("B80")) = " "
Sheets("Registro de Ventas").Range("K" & uf) = Range("E10") ' Orden
Sheets("Registro deVentas").Range("D" & uf) = Range("B80") ' Articulos
Sheets("Registro de Ventas").Range("E" & uf) = Range("F9")
Set First = Sheets("Registro de Ventas").[F2]
If Sheets("Registro de Ventas").[F2].Value <> Empty Then _
Set First = Sheets("Registro de Ventas").[F65000].End(xlUp).Offset(2)
With Sheets("Ventas").[B14:F38]
First.Resize(.Rows.Count, .Columns.Count) = .Value
End With
Set First =Nothing
Range("F9").Select
MsgBox "Factura de Venta Num " & Sheets("Ventas").[F9] & vbCrLf & "Anotada en el Registro De Ventas" & vbCrLf & "Presione OK para " & vbCrLf & "Actualizar Inventarios", vbInformaion + vbOKOnly, "FACTURA REGISTRADA"
strcod1 = [B14]: lngcant1 = [E14]: CantArt = [B80]
strcod2 = [B15]: lngcant2 = [E15]:
strcod3 = [B16]: lngcant3 = [E16]:strcod4 = [B17]: lngcant4 = [E17]:
strcod5 = [B18]: lngcant5 = [E18]:
strcod6 = [B19]: lngcant6 = [E19]:
strcod7 = [B20]: lngcant7 = [E20]:
strcod8 = [B21]: lngcant8 = [E21]:
strcod9 = [B22]: lngcant9 = [E22]:
strcod10 = [B23]: lngcant10 = [E23]:
strcod11 = [B24]: lngcant11 = [E24]:
strcod12 = [B25]: lngcant12 = [E25]:
strcod13 = [B26]: lngcant13 = [E26]:
strcod14 = [B27]:...
tracking img