foutmelding excel macro

[Marij84]

Hoi

bij mijn file "Macro 2016" krijg ik een foutmelding nadat ik op de knop "lezen" heb geduwd
hij leest de files niet meer goed in. en ik zie niet in waarom....
alle tabelhoofdingen staan juist denk ik (of moet over iets hebben gezien)
staan opgeslagen als .xlsx

kan iemand mij helpen aub? zit met m'n handen in m'n haar

groetjes

 

[edmoor]

Als je zegt een foutmelding te krijgen is het wel zo handig deze er hier ook bij te vermelden.

Ik heb wel je code wat aangepast en de melding over het bijwerken van koppelingen onderdrukt.
Tevens heb ik de code leesbaar gemaakt. Zo kan je tenminste zien wat er gebeurt.

Sub inlezen()
    sq = Array("Ongevallen 2016", _
               "boetes PV 2016", _
               "boetes de lijn 2016", _
               "agressie 2016", _
               "Klachten 2016 Cars", _
               "Klachten 2016 Bus", _
               "Interne Verslagen 2016")

    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, 11).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, 11).Value = _
            .Sheets(1).Range("A2").Resize(lrow - 1, 11).Value
            .Close False
        End With
    Next

    Columns.Autofit

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.AskToUpdateLinks = True

End Sub

Nu nog je opmerking over die foutmelding...

 

[Marij84]

dank je wel
had ik zelf nooit op gekomen

heb je code gecopy-paste
de foutmelding is weg nu
maar krijg nog wel de meldingen om telkens bij te werken (ook nog voor ik de knop inlezen indruk)
en ook het resultaat is niet juist , vroeger was dat allemaal in orde, maar sinds deze week is er iets mis en ik weet niet waarom
zal je de screenshots laten zien vd bijwerkmeldingen en van het resultaat




groetjes

 

[Marij84]

aha! heb net het probleem gevonden
met het uitlezen van de macro leest die telkens enkel het eerste tabbladje van elke file
dus moest gewoon de tabblaadjes id juiste volgorde terug zetten
de meldingen van bijwerken zijn er nog wel nog steeds , maar kan nu tenminste toch wel met het juiste resultaat werken.

 

[edmoor]

De melding van het bijwerken zou je alleen voor het document Macro16 moeten zien, maar daarin kan je dat zelf uitschakelen.
Voor de andere documenten doet de code dat.

Dat zijn overigens geen foutmeldingen.

 

[Marij84]

ah ok
ik duw telkens op escape als ik die bijwerk-meldingen krijg
merk nu wel dat die nog niet alle info mee overneemt van elke file.
bij"omschrijving" komt nog niets te voorschijn, zal moeten nakijken waar het probleem ligt

 

[edmoor]

Aan de code voor het overhalen van de gegevens heb ik niets veranderd, dus dat werkt nog steeds hetzelfde.
Dan kan je zelf inderdaad wel nazien en bijwerken, zeker nu het een stuk leesbaarder is

 

[Marij84]

inderdaad en als ik de fouten er zelf kan proberen uit te halen, onthou ik het beter voor volgende keer
wel enorm bedankt voor de hulp
we leren nog elke dag bij

 

[Marij84]

sorry hoor
zit al ff te kijken maar geraak er niet aan uit
de rijen met "omschrijving" en "prijs" komen niet ingevuld tevoorschijn nadat ik op "inlezen" heb geduwd
enig idee waaraan dat kan liggen?

 

[Marij84]

okeee heb het gevonden
mag het bovenstaande negeren
toch bedankt voor de hulp van vandaag alvast