Anónimo
Pasar datos de factura a control vía macros
Hola expertos, saludos.
El punto es el siguiente,
1.- Macro "registrar factura" :deseo crear una macro para que me permita copiar los campos incluidos manualmente de mi hoja de factura y que estos datos pasen a la hoja de control de forma automática, los cuales deben ingresar en las fila vacía para que no borren los datos anteriores, y guarde los cambios del libro. Pero los datos deben permanecer en la factura, no se deben limpiar.
La hoja "factura" tiene los siguientes campos: numero - fecha de orden - fecha de entrega - cliente - dirección - teléfono - [(trabajo - tamaño - cantidad - valor ) debemos tener en cuenta que estas contienen 6 filas para su descripción] - total - abono - saldo - observaciones.
Estos mismos campos están en la hoja "registro".
2.- Macro "nueva factura": esta macro debe limpiar los campos de la factura y generar a la factura un nuevo numero de factura consecutivo.
Gracias espero su colaboración, para ver las hojas de Excel podes descargarlas aca: http://www.megaupload.com/?d=BTHPHPL0
El punto es el siguiente,
1.- Macro "registrar factura" :deseo crear una macro para que me permita copiar los campos incluidos manualmente de mi hoja de factura y que estos datos pasen a la hoja de control de forma automática, los cuales deben ingresar en las fila vacía para que no borren los datos anteriores, y guarde los cambios del libro. Pero los datos deben permanecer en la factura, no se deben limpiar.
La hoja "factura" tiene los siguientes campos: numero - fecha de orden - fecha de entrega - cliente - dirección - teléfono - [(trabajo - tamaño - cantidad - valor ) debemos tener en cuenta que estas contienen 6 filas para su descripción] - total - abono - saldo - observaciones.
Estos mismos campos están en la hoja "registro".
2.- Macro "nueva factura": esta macro debe limpiar los campos de la factura y generar a la factura un nuevo numero de factura consecutivo.
Gracias espero su colaboración, para ver las hojas de Excel podes descargarlas aca: http://www.megaupload.com/?d=BTHPHPL0
1 Respuesta
Respuesta de Enrique Bernal
1
La macro se liá un poco por la combinación de celdas que tienes, pero funciona ya la probé. Esta funciona para lo primero que pides:
Sub Registro()
'
'
Sheets("FACTURA").Select
Factura = Range("G4").Value
Fe_Pedido = Range("G6").Value
Fe_Entrega = Range("G8").Value
Cliente = Range("E11").Value
Direccion = Range("E12").Value
Tel = Range("E13").Value
TRA1 = Range("D18").Value
TRA2 = Range("D19").Value
TRA3 = Range("D20").Value
TRA4 = Range("D21").Value
TRA5 = Range("D22").Value
TRA6 = Range("D23").Value
Range("F18:H23").Select
Selection.Copy
Sheets("CONTROL").Select
fila = Range("A" & Cells.Rows.Count).End(xlUp).Row + 6
Sheets("CONTROL").Select
Range("H" & fila).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A" & fila).Value = Factura
Range("B" & fila).Value = Fe_Pedido
Range("C" & fila).Value = Fe_Entrega
Range("D" & fila).Value = Cliente
Range("E" & fila).Value = Direccion
Range("F" & fila).Value = Tel
Range("G" & fila).Value = TRA1
Range("G" & fila + 1).Value = TRA2
Range("G" & fila + 2).Value = TRA3
Range("G" & fila + 3).Value = TRA4
Range("G" & fila + 4).Value = TRA5
Range("G" & fila + 5).Value = TRA6
Sheets("FACTURA").Select
Application.CutCopyMode = False
Range("G4:H4").Select
End Sub
Sub Registro()
'
'
Sheets("FACTURA").Select
Factura = Range("G4").Value
Fe_Pedido = Range("G6").Value
Fe_Entrega = Range("G8").Value
Cliente = Range("E11").Value
Direccion = Range("E12").Value
Tel = Range("E13").Value
TRA1 = Range("D18").Value
TRA2 = Range("D19").Value
TRA3 = Range("D20").Value
TRA4 = Range("D21").Value
TRA5 = Range("D22").Value
TRA6 = Range("D23").Value
Range("F18:H23").Select
Selection.Copy
Sheets("CONTROL").Select
fila = Range("A" & Cells.Rows.Count).End(xlUp).Row + 6
Sheets("CONTROL").Select
Range("H" & fila).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A" & fila).Value = Factura
Range("B" & fila).Value = Fe_Pedido
Range("C" & fila).Value = Fe_Entrega
Range("D" & fila).Value = Cliente
Range("E" & fila).Value = Direccion
Range("F" & fila).Value = Tel
Range("G" & fila).Value = TRA1
Range("G" & fila + 1).Value = TRA2
Range("G" & fila + 2).Value = TRA3
Range("G" & fila + 3).Value = TRA4
Range("G" & fila + 4).Value = TRA5
Range("G" & fila + 5).Value = TRA6
Sheets("FACTURA").Select
Application.CutCopyMode = False
Range("G4:H4").Select
End Sub
Esto responde a la macro para dejar en blanco la hoja de factura, entiendo yo que el botón lo vas a pegar en la hoja de Factura
Sub Borra()
Range( _
"G4:H4,G6:H6,G8:H8,E11:H11,E12:H12,E13:H13,D18:E18,D19:E19,D20:E20,D21:E21,D22:E22,D23:E23,F18,F19:H23,G18,H18" _
).Select
Range("H18").Activate
Selection.ClearContents
Range("G4:H4").Select
End Sub
No olvides finalizar la pregunta
Sub Borra()
Range( _
"G4:H4,G6:H6,G8:H8,E11:H11,E12:H12,E13:H13,D18:E18,D19:E19,D20:E20,D21:E21,D22:E22,D23:E23,F18,F19:H23,G18,H18" _
).Select
Range("H18").Activate
Selection.ClearContents
Range("G4:H4").Select
End Sub
No olvides finalizar la pregunta