Hoi
zal proberen het probleem kort te omschrijven:
ik heb een macro om verschillende excell files in te lezen in 1 keer.
Ik moet dan op een knop klikken, dan leest de macro 6 verschillende excellfiles en voegt deze samen tot 1 excell file
hieruit kan ik dan een soort van jaarverslag maken
Gebruik dit al enkele jaren, maar nu plots leest die foute dingen in.
Ik zet de macro in de map met de files van 2020 , maar om 1 of andere reden haalt die excell files van 2013 op die in een totaal andere map staan.
Ik zie het probleem echt niet, kan iemand me helpen?
alvast bedankt
hieronder de macro:
Sub inlezen()
sq = Array("Ongevallen 2020", _
"boetes PV 2020", _
"agressie 2020", _
"Klachten 2020 Cars", _
"Klachten 2020 Bus", _
"Interne Verslagen 2020")
Application.AskToUpdateLinks = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Lrow1 = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
ThisWorkbook.Sheets(1).Range("A2").Resize(Lrow1, 15).ClearContents
For i = 0 To UBound(sq)
With Workbooks.Open(ThisWorkbook.Path & "\" & sq(i) & ".xlsx")
lrow = .Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
Lrow1 = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
ThisWorkbook.Sheets(1).Range("A" & Lrow1 + 1).Resize(lrow - 1, 15).Value = _
.Sheets(1).Range("A2").Resize(lrow - 1, 15).Value
.Close False
End With
Next
Columns.AutoFit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.AskToUpdateLinks = True
End Sub