Cómo importar datos de facturas a un libro maestro

Soy autónomo y tengo un pequeño negocio de asesoramiento editorial. Las facturas las hago en Excel 2010 y me gustaría saber si existe algún modo de importar los datos de dichas facturas a un libro maestro, según se van generando, para obtener así un resumen de la facturación por meses. Lo que más me gustaría sería introducir el nombre del archivo de la factura, digamos en la columna A y que en la columna B y sucesivas aparecieran los datos.

1

1 respuesta

Respuesta
2

Sí es posible, solo que para desarrollar la macro se necesitan referencias (nombres de hoja, celdas, etc).

¿Hay un libro por cada factura? Entonces debes enviarme uno de ellos para tomarlo como muestra. Los correos aparecen en mi sitio que dejo al pie.

Y luego te recomendaría hacer el proceso al revés, guardar los datos antes de exportar como hoja o libro la factura... pero ese será otro tema una vez que cargues lo que ya está hecho.

Gracias por tu respuesta. 

Contesto a tus preguntas:

  • Sí, cada factura es un libro.
  • Envío a tu correo de gmail 3 facturas. Los datos que quiero importar la libro maestro están en la hoja "LISTAS" y están marcados en verde.

De nuevo, gracias por tu respuesta.

Por mail te envié macro que ubica cada factura capturada en la hoja mensual que corresponda.

Aquí dejo otra versión que colocará todas las facturas en la misma hoja. Luego aplicarás filtros para obtener un informe mensual. (No me quedó claro cómo necesitabas el resumen).

Sub importando()
'x Elsamatilde
'atajo de teclado: Ctrl f
'se ejecuta con la celda seleccionada en col A, buscando ese nro de factura
If ActiveCell.Column <> 1 Then
    MsgBox "Debe seleccionar la factura que necesita importar.", , "ATENCIÓN"
    Exit Sub
ElseIf ActiveCell = "" Then
    MsgBox "La celda se encuentra vacía... el proceso se cancela.", , "ERROR"
    Exit Sub
End If
'se busca la factura en carpeta FACTURAS
ruta = ThisWorkbook.Path & "/FACTURAS/"
'evalúa si la carpeta existe
If Dir(ruta, vbDirectory) = "" Then
    MsgBox "No se encontró la carpeta Facturas en este directorio.", , "ERROR"
    Exit Sub
End If
'se guarda la fila de la celda activa para pasar los datos
libro1 = ActiveWorkbook.Name
filx = ActiveCell.Row
'se abre el libro solicitado
'contempla posible error de apertura
libro2 = ActiveCell.Value & ".xlsx"
On Error Resume Next
Workbooks.Open ruta & "/" & libro2
If Err.Number > 0 Then
    MsgBox "No se encontró el libro solicitado o no se pudo abrir.... verifique y vuelva a ejecutar el proceso.", , "Atención"
    Exit Sub
End If
On Error GoTo 0
'se abrió el libro y es el activo. La información se encuentra en hoja Listas, a partir de col S
Sheets("LISTAS").Select
'se pasan los datos a la fila activa del libro resumen
With Workbooks(libro1).ActiveSheet
    .Range("B" & filx) = [T2]
    .Range("C" & filx) = [U2]
    .Range("D" & filx) = [V2]
    .Range("E" & filx) = [W2]
    .Range("F" & filx) = [X2]
    .Range("G" & filx) = [Y2]
    .Range("H" & filx) = [Z2]
    .Range("I" & filx) = [AA2]
    .Range("J" & filx) = [AB2]
    .Range("K" & filx) = [AC2]
    .Range("L" & filx) = [AD2]
End With
'se cierra el libro de factura sin guardar cambios
ActiveWorkbook.Close False
MsgBox "Fin de la captura.", , "Información"
End Sub

Se ejecuta seleccionando la factura de la col A. y presionando el botón o el atajo de teclado Ctrl F

Comento por mail la opción de facturar desde el mismo libro Resumen generando el libro Factura desde allí mismo sin necesidad de captura posterior.

Sdos.

Elsa

¡Gracias! Tu código funciona perfectamente con las facturas ya generadas y creo que por el momento me puedo arreglar, aunque desde luego me resulta muy apetecible la opción que mencionas en tu último párrafo de generar la factura desde el libro resumen. Ya te cuento. Gracias de nuevo. 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas