macro tipo polizas ch

T

titino

New Member
Joined
Apr 4, 2010
Messages
21
Un gran saludo y reconocimiento para esta pagina excel- ente, dedicada al excel.

es para mi un honor poder postear el siguiente requerimiento.

tengo un libro que hace un vaciado de una hoja a otra rellenando una poliza de cheque, y cuando quiero hacer otra poliza tengo que borrar todo y volver a cargar datos, ahora bien he diseñado otra extructura que me va a servir conservar la bd, y que no se borre, solo que necesito que de la hoja dos, que es mi reporteador descrimine por tipo de cuenta y nombre haga una suma por tipo de gasto y asi mismo lo resuma en su respectiva hoja de poliza de cheque, claro yo identifico los cargos en la hoja dos por "D" los cargos y por "H" los abonos, espero puedan ayudarme con este codigo, saludos.

pongo el archivo que me hace lo que necesito, pero no me conservan los datos de factura

http://www.megaupload.com/?d=OGE389XH

y pongo este otro que es donde quiero que me ayuden, el vaciado lo tendria que hacer parecido al primero que posteo

http://www.megaupload.com/?d=QC6GUD5A

Saludos!!!
 
Sort by date Sort by votes
asi quedaria
<html><head><title>Excel Jeanie HTML</title></head><body>
Excel Workbook
ABCDEFG
1POLIZA DE CHEQUEEg
2Nombre
3RFC
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22Cuenta / SubctaNombrePARCIALDEBEHABER
23
246000-0002-000FLETES Y ACARREOSD$ 198.28
251190-0001-000IVA ACREDITABLED$ 31.72
26
271120-0010-000BANCOMERH$ 230.00
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54Sumas Totales$ 230.00$ 230.00
55
56Hecho por:RevisadoAutorizadoAuxiliaresFechaPoliza Cheque No.
57
58
Poliza Cheque

</body></html>
 
Upvote 0

Excel Facts

Which came first: VisiCalc or Lotus 1-2-3?
Dan Bricklin and Bob Frankston debuted VisiCalc in 1979 as a Visible Calculator. Lotus 1-2-3 debuted in the early 1980's, from Mitch Kapor.
Titino,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
No me queda claro qué es el proceso y la meta. Favor confirmar que comprendo bien – una llena la hoja que dice “Póliza de Cheque” manualmente y la meta es cliquear un botón para trasladar los datos a la hoja que dice “sistema centralizador…” antes de limpiar la hoja Póliza.<o:p></o:p>

¿O es la meta empezar con la hoja “Póliza de Cheque” limpia y llenarla basado en los datos visibles en la hoja “sistema centralizador…”?<o:p></o:p>

Atte,
 
Upvote 0
Greg Truby said:
Titino,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
No me queda claro qué es el proceso y la meta. Favor confirmar que comprendo bien – una llena la hoja que dice “Póliza de Cheque” manualmente y la meta es cliquear un botón para trasladar los datos a la hoja que dice “sistema centralizador…” antes de limpiar la hoja Póliza.<o:p></o:p>

¿O es la meta empezar con la hoja “Póliza de Cheque” limpia y llenarla basado en los datos visibles en la hoja “sistema centralizador…”?<o:p></o:p>

Atte,
Click to expand...

En principio, creo que no es asi, sistema centralizador es la hoja dos, y ahi ya tengo un comandbutton, para extraer inf, dependiendo que ponga en valor a localizar, en este caso pongo el numero de cheque, y me trae de la hoja1, los datos de las facturas que se asocian a dicho cheque, ahora bien, lo que pretendo con esa info es contabilizarla al formato poliza de cheque via vba, claro tomando en cta las ctas contables, yo puse "d" para los cargo y "h", para los abonos, claro, tiene que estra resumido todo los subtotales de cada cta.

Espero haberme dado a entender, saludos!!!!
 
Upvote 0
Greg Truby said:
¿Puede aclarar qué es lo significa
?
No comprendo qué significa "contabilizarla".
Click to expand...

en su forma fas simple, contabilizar, es contar, en este caso sumar, las partidas de gastos y sacar un total, y ese total asentarlo en su respectivo lugar, ya sea un cargo u abono (debito / credito)o (D/H).


discriminando por tipo de cuenta, es decir por partida de gasto en este caso, y arrojando en el debe o haber, dependiendo de su letra d o h.

Saludos!!!
 
Upvote 0
Pero usted ya tiene fórmulas en las celdas E54:F54 que brindarán las sumas de debes y haberes asi que no comprendo qué es lo que le hace falta.
 
Last edited:
Upvote 0
Greg Truby said:
Pero usted ya tiene fórmulas en las celdas E54:F54 que brindarán las sumas de debes y haberes asi que no comprendo qué es lo que le hace falta.
Click to expand...

Esas sumas siempre van a estar ahi, ya que lo que se contabilizara seran las ctas y los importes de las ctas, es decir que se arroje en automatico a la poliza.

en mi primer post, ahi habia puesto un archivo en megauload, para mayor detalle, solo que por cuestiones de virus, no quisieron hacerlo.




Code: 
' ESTE CODIGO REALIZA LOS CARGOS
If Range("b1") = "" And Range("b2") = "" Then
MsgBox "¡¡¡No se puede realizar la póliza no hay datos!!!"
End
End If
If Range("B54") = 1 Then
MsgBox "¡¡¡no tiene permiso"
End
End If
Application.ScreenUpdating = False
Sheets("varios").Select
Range("B50").Select
Do Until ActiveCell = ""
        
        Do Until ActiveCell <> 0 Or ActiveCell = ""
            If ActiveCell = 0 Then
                ActiveCell.Offset(0, 1).Range("A1").Select
            End If
        Loop
        
        Selection.Copy
        
        Sheets("Poliza Cheque").Select
        Range("e23").Select
        Do Until ActiveCell = ""
           If ActiveCell <> "" Then
              ActiveCell.Offset(1, 0).Range("A1").Select
           End If
        Loop
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            
        Sheets("varios").Select
        ActiveCell.Offset(-49, 0).Range("A1").Select
        Application.CutCopyMode = False
        Selection.Copy
        
        Sheets("Poliza Cheque").Select
        ActiveCell.Offset(0, -4).Range("A1").Select
        ActiveSheet.Paste
        
        Sheets("varios").Select
        ActiveCell.Offset(49, 1).Range("A1").Select
        Application.CutCopyMode = False
Loop
    
    Sheets("Poliza Cheque").Select
    ActiveCell.Offset(2, 5).Range("A1").Select
' ESTE CODIGO REALIZA LOS ABONOS
Sheets("varios").Select
Range("X50").Select
Do Until ActiveCell = ""
    Do Until ActiveCell <> 0 Or ActiveCell = ""
        If ActiveCell = 0 Then
            ActiveCell.Offset(0, 1).Range("A1").Select
        End If
    Loop
    
    Selection.Copy
    Sheets("Poliza Cheque").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("varios").Select
    ActiveCell.Offset(-49, 0).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Poliza Cheque").Select
    ActiveCell.Offset(0, -5).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 5).Range("A1").Select
    
    Sheets("varios").Select
    ActiveCell.Offset(49, 1).Range("A1").Select
    Application.CutCopyMode = False
Loop
'Copia Suma Cargos de las cuentas
    Sheets("Poliza Cheque").Select
    ActiveCell.Offset(0, -1).Range("A1").Select
Sheets("varios").Select
    Range("U52").Select
    Selection.Copy
    Sheets("Poliza Cheque").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Copia Suma Abonos de las cuentas
    Sheets("Poliza Cheque").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("varios").Select
    Range("AC52").Select
    Selection.Copy
    Sheets("Poliza Cheque").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
' Terminan los movimientos de las Cuentas principales
    Sheets("Poliza Cheque").Select
    ActiveCell.Offset(3, -1).Range("A1").Select
'Si es un solo proveedor se ejecuta este código CARGOS
        Sheets("varios").Select
        Range("AE52").Select
        Selection.Copy
        Sheets("Poliza Cheque").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        Sheets("varios").Select
        Range("A1").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Poliza Cheque").Select
        ActiveCell.Offset(0, -4).Range("A1").Select
        ActiveSheet.Paste
        Selection.ClearComments
        ActiveCell.Offset(2, 5).Range("A1").Select
'Si es un solo proveedor se ejecuta este código ABONOS
    Sheets("varios").Select
    If Range("AE52") > 0 Then
            Range("AE52").Select
            Selection.Copy
            Sheets("Poliza Cheque").Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
            ActiveCell.Offset(0, -5).Range("A1").Select
            Sheets("varios").Select
            Range("AE1").Select
            Selection.Copy
            Sheets("Poliza Cheque").Select
            ActiveSheet.Paste
                Application.CutCopyMode = False
    
End If
'Termina la póliza de Cheque
Sheets("Poliza Cheque").Select
Range("A23:A53,d23:F53").Select
   Selection.Interior.ColorIndex = xlNone
   Selection.ClearComments
        
Sheets("varios").Select
        Range("a1").Select
Sheets("Poliza Cheque").Select
Range("a1").Select
End Sub

Esta macro me hace eso, pero los datos los tengo ordenados , por filas y esos son por columnas.
 
Upvote 0
Bueno ya bajé los dos archivos y corrí el macro CrearPolizaChequeVarios y aunque es bastante feita, me parece que sí funciona. ¿Así que qué es lo que quiere que el macro haga que no está haciendo en este momento?
 
Upvote 0
Efectivamente esta feita (habria una manera de sintetizarla en unas cuantas lienas de codigo?), en realidad, el efecto de ese libro que contiene la macro CrearPolizaChequeVarios, es el que quiero recrear en el otro libro gastos_contables1.xls, que me haga el vaciado a la poliza de cheque.

mi hoja1 es la bd, la hoja2, es para extraer los datos de cada cheque, con el boton buscar por campo, hasta ahi todo bien, esa misma informacion quiero mandarla a la poliza de cheque, tal como lo hace la macro quejecuto, claro en el libro la informacion esta distribuida diferente, pero quiero lograr el mismo efecto, que es hacer el vaciado a la poliza de cheque.

Saludos!!!

Asi debe quedar
<html><head><title>Excel Jeanie HTML</title></head><body>
Excel Workbook
ABCDEFG
1POLIZA DE CHEQUEEg
2Nombre
3RFC
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22Cuenta / SubctaNombrePARCIALDEBEHABER
23
246000-0002-000FLETES Y ACARREOSD$ 198.28
251190-0001-000IVA ACREDITABLE EN GASTO 16%D$ 15.86
261190-0002-000IVA ACREDITABLE EN COMP DE CONTADO 16%D$ 15.86
27
28
291120-0010-000BANCOMERH$ 230.00
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54Sumas Totales$ 230.00$ 230.00
55
56Hecho por:RevisadoAutorizadoAuxiliaresFechaPoliza Cheque No.
57
Poliza Cheque

</body></html>
Click to expand...



Greg Truby said:
Bueno ya bajé los dos archivos y corrí el macro CrearPolizaChequeVarios y aunque es bastante feita, me parece que sí funciona. ¿Así que qué es lo que quiere que el macro haga que no está haciendo en este momento?
Click to expand...
 
Last edited:
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Question Question
Save Close Files
Replies
0
Views
240
MILTINO
M
D
  • Question Question
Cuadro color aleatorio
Replies
0
Views
159
dragonfire33
D
Y
  • Question Question
Pegar una lista de valores sólo en celdas visibles
Replies
1
Views
4K
DanteAmor
DanteAmor
F
  • Solved
Ayuda con formula
Replies
3
Views
680
DanteAmor
DanteAmor
J
  • Solved
Interconexión de Formularios
Replies
7
Views
763
Fluff
Fluff

Forum statistics

Threads
1,223,958
Messages
6,175,632
Members
452,661
Latest member
Nonhle

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top