Marco Onderbreekt automatisch

[harolda1980]

Ik krijg deze melding zonder er onderbrekingen in te hebben gezet.
Kan iemand mij vertellen hoe ik dit kan voorkomen?

 

[E v R]

Heb je er ook een bestandje / Code bij?

 

[harolda1980]

Bij deze de code!

Sub THTBestand_ophalen_HW()
Dim R As Integer
Dim RC As Integer
Dim THT_Artikel As Long
Dim THT_Product As String
Dim THT_Voorraad As Long
Dim THT_DATUM

R = 1
    With Sheets("HW")
        Do Until .Cells(R, 1).Value = "" And .Cells(R + 1, 1).Value = ""
            THT_Artikel = .Cells(R, 1).Value
            THT_Product = .Cells(R, 2).Value
            THT_Voorraad = .Cells(R, 4).Value
            THT_DATUM = .Cells(R, 5).Value
            RC = 5
                Do
                    With Sheets("Controle blad")
                        If .Cells(RC, 1).Value = "" Then
                            .Cells(RC, 1).Value = CLng(THT_Artikel)
                            .Cells(RC, 2).Value = THT_Product
                            .Cells(RC, 4).Value = CLng(THT_Voorraad)
                            .Cells(RC, 5).Value = THT_DATUM
                            Exit Do
                        Else
                            RC = RC + 1
                        End If
                    End With
                Loop
        
            R = R + 1
        Loop
    End With
End Sub

 

[harolda1980]

Ik krijg nu sterk de indruk dat het in alle codes gebeurd die voorheen altijd goed liepen!

 

[aelatik]

Zet eens "DoEvents" in die loops. Daarmee geef je de applicatie wat ruimte tussen de loops om het te verwerken.
Anders krijgt windows de indruk dat het hangt.

 

[harolda1980]

Maakt dat uit waar ik het neerzet?

 

[aelatik]

Nee, als het maar tussen de DO een LOOP zit, best is om voor elke loop en Doevents ervoor te zetten.

 

[harolda1980]

Zit weer te testen en hij doet het al wel beter.
Alleen is het nog geen garantie dat hij niet onderbreekt.

Net of dit een probleem in Excel/VBA is.

 

[aelatik]

Werkt het sinds DoEvents weer ?

 

[harolda1980]

Beter maar niet foutloos!

 

[aelatik]

Als dat het probleem was dan is het begrijpelijk. De Windows OS of Excel Applicatie ( nieuwe versies ) kunnen de code nl. stoppen omdat het een soort "deadlock" lijkt te veroorzaken.
De loops zijn dusdanig intensief dat het de operating system zijn taken in de weg zit. Met DoEvents geef je je OS de ruimte.

Als er nu nog fouten zijn dan is het iets anders en dan zullen we je document nodig hebben vrees ik.

 

[harolda1980]

Bekijk bijlage Controle model.xlsm

Zie hier het bestand. gebruik de knop inladen hw om te starten en daarna inladen vorige weken. De fout zit alleen in de eerste knop(inladen hw)

 

[harolda1980]

Ik merk dat het komt opzetten in meerdere programma's! Is dit een aanpassing die zeer recent via een update verspreid is?

 

[aelatik]

Ik klik het echt tientallen keren om de beurt maar krijg geen foutmelding oid.

 

[aelatik]

ok, ik zie het al. schijnt gewoon een MS Office BUG te zijn.
Controleer je macro security en zorg dat het niet te hoog staat.
Verder moet je onderstaande regel even in je macro's op regel 1 gooien :

Application.EnableCancelKey = xlDisabled

 

[aelatik]

Ik heb zelf geen last van dit euvel, maar ik gebruik Office 2010.

 

[harolda1980]

Vreemd.. Vraag mij dan af wat het kan zijn!
Ik had er vandaag met exht alles last van...