Macro foutmelding

[Marij84]

Hallo

Ik heb een macrotabel die een foutmelding geeft , maar ik zie niet goed hoe ik het moet oplossen.
Ben nog niet zo heel lang bezig met Macro's , dus moet mijn weg er nog een beetje in zoeken.

Kan iemand mij helpen?

mvg

 

[Cobbe]

IS de extensie misschien niet geldig:

With Workbooks.Open(ThisWorkbook.Path & "\" & sq(i) & ".xlsx")

en moet het ".xlsm" zijn?

 

[Marij84]

helaas niet
want de excellen staan opgeslagen als .xlsx

 

[Cobbe]

Als je de macro met F8 doorloopt tot de regel 'With...."
en je gaat op de verschillende var staan dan kan je misschien zien wat er fout loopt.

 

[snb]

Hou het simpel:

Sub M_snb()
    sq = Array("ongevallen 2014", "boetes PV", "boetes de lijn", "agressie", "Klachten iso9002-2009")
    
    ThisWorkbook.Sheets("Macro").UsedRange.Offset(1).ClearContents
    For j = 0 To UBound(sq)
        If Dir(ThisWorkbook.Path & "\" & sq(j) & ".xlsx") <> "" Then
            With GetObject(ThisWorkbook.Path & "\" & sq(i) & ".xlsx")
                ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(.Sheets(1).UsedRange.Rows.Count, 11).Value = .Sheets(1).UsedRange.Offset(1).Resize(, 11).Value
                .Close False
             End With
        End If
    Next
End Sub

En vervolgens met F8 de macro stap voor stap afspelen.

 

[Marij84]

Dank je wel snb
de foutmelding is weg
Waar zat dan mijn fout ?

Ik snap ergens wel de logica maar zou dit nooit zelf kunnen maken :s
Knap dat jullie dit kunnen

dank je wel voor de hulp

mvg