ayuda con un codigo
Publicado por FERNANDO (1 intervención) el 26/10/2011 06:18:52
agradeceria me ayudaran, no se que problema tiene este archivo que no funciona como debe, al hacer click en la opcion de corte diario se supone que respalda cada archivo en cada hoja correspondiente; sin embargo la hoja de cargo interno no recibe la informacion,
y no encuentro el error en el codigo agradeceria su accesoria
son 4 hojas
1- ventas (se respalda las ventas que se van poniendo
2- credito (aqui quedan todas las ventas de credito "CRE"
3.- contado (aqui se respaldan las ventas totales de contado "CON"
4.- CARGOS INTERNOS ESTE ES EL QEU NO FUNCIONA, NO SE RESPALDAN LOS ARCHIVOS.
y no encuentro el error en el codigo agradeceria su accesoria
son 4 hojas
1- ventas (se respalda las ventas que se van poniendo
2- credito (aqui quedan todas las ventas de credito "CRE"
3.- contado (aqui se respaldan las ventas totales de contado "CON"
4.- CARGOS INTERNOS ESTE ES EL QEU NO FUNCIONA, NO SE RESPALDAN LOS ARCHIVOS.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub CorteDiario()
Dim Cod, Hojas, LR As Long, i As Byte, j As Long
If [j4] = "" Then
MsgBox "Tabla de ventas sin información.": End
End If
Application.ScreenUpdating = False
Cod = Array("CRE", "CON", "CI")
Hojas = Array("CREDITO", "CONTADO", "CARGO_INTERNO")
LR = [j3].End(xlDown).Row
[m3].Copy [aa1]
For i = 0 To UBound(Cod)
With Worksheets(Hojas(i))
j = 1 + .Cells(Rows.Count, "b").End(xlUp).Row
[aa2] = Cod(i)
[j3:q3].Resize(LR - 3).AdvancedFilter xlFilterCopy, [aa1:aa2], .Cells(j, "b"), False
.Cells(j, "b").Resize(, 8).Delete xlShiftUp
End With
Next i
[aa1:aa2].Delete xlShiftToLeft
Application.ScreenUpdating = True
MsgBox "Proceso terminado."End Sub
Valora esta pregunta
0
