Cómo importar datos de facturas a un libro maestro

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