Resumem diario de carpetas cobradas
Necesito la macro creada y colocada en el archivo ¨´Resumen Cobro Diario¨´ sea más especifico al hacer la extracción que hace de la carpeta de facturas, debido a que hay facturas de varios meses y solo deseo generar los días que me interesen.
MG
1 respuesta
Respuesta de Dante Amor
1
Revisa el formato de las celdas.
Sub ResumenDiario()
'Por.Dante Amor
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja1")
u = h1.Range("B" & Rows.Count).End(xlUp).Row + 1
h1.Range("C4:D" & u).ClearContents
ruta = l1.Path
ChDir ruta
archi = Dir("*.xls*")
Do While archi <> ""
n = archi
m = l1.Name
If archi <> l1.Name Then
Set l2 = Workbooks.Open(archi)
existe = False
For Each h In l2.Sheets
If h.Name = "." Then
existe = True
Exit For
End If
Next
If existe Then
For i = 4 To h1.Range("B" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "B") = l2.Sheets(".").[N5] Then
h1.Cells(i, "C") = h1.Cells(i, "C") + 1
h1.Cells(i, "D") = h1.Cells(i, "D") + l2.Sheets(".").[N9]
Exit For
End If
Next
End If
l2.Close False
End If
archi = Dir()
Loop
MsgBox "Resumen diario terminado"
End Sub
Tienes pendiente valorar esta respuesta, podrías valorarla.
