Fout melding

[NajKwin]

Hallo medeforum gebruikers,

Ik heb een aanwezigheid/afwezigheidsbord het werkt zo als bedoeld. Echter ik krijg 1 x in de zoveel tijd deze foutmelding (zie afbeelding)

Dit sheet draait 24/7. Ik heb er 2 macro's lopen een die om de 10 seconden een klok beweging geeft en een die om de 2:00:13 de sheet opslaat

Iemand een idee hoe ik die foutmelding kan op lossen zodat deze niet meer komt. in geval van nood kan ik het bestand opsturen maar dan moet ik het een en ander aan verbouwen i.v.m. privacy gevoelige info.>

Maar misschien dat iemand aan de hand van de afbeelding de oplossing al weet


GR Naj

 

[edmoor]

Ik zie geen foutmelding, alleen de gele regel waar de foutmelding ontstaat.

 

[OctaFish]

Ed is een beetje doof zo te zien; er staat wel degelijk een stuk van een foutmelding in de afbeelding. Alleen is voor ons niet te zien welke foutmelding. Dus dat is niet erg handig...

 

[edmoor]

Wat er staat is dat die regel niet kan worden uitgevoerd in debug mode.
Dat is de melding die na de werkelijke foutmelding verschijnt.
Dat heeft niets met de kwaliteit van mijn gehoor van doen.

 

[Aar]

Specsavers dan maar?

 

[JEC.]

Als ook de pc 24 uur per dag draait en nooit wordt afgesloten, kan opnieuw opstarten ook wel eens helpen!

 

[NajKwin]

@JVeer klopt idd maar ben inderdaad. Na het opnieuw starten doet hij het weer een paar weken.

Het lijkt net of de 2 macro's op een gegeven ogenblik elkaar dwars zitten op het moment dat beiden qua tij de macro moeten uitvoeren.

 

[DigiCafee]

Ik heb wel interesse voor een ev. oplossing daarvoor door detectie in de macro's of ze exclusief kunnen draaien of niet ...

 

[snb]

Het scheelt bijv. ook al als je alle code hier plaatst.
Het gaat toch om de interferentie van diverse macro's ?
Dan is het tonen van een deel van 1 macro te weinig informatie.

 

[NajKwin]

@SNB
Code voor de tijd

Sub Tijd()
  Wacht = Now + TimeValue("00:00:10")
  ThisWorkbook.Worksheets(1).Range("H5") = Format(Time, "hh:mm:ss")
  Application.OnTime Wacht, "Tijd"
End Sub

en om op te slaan

 If Not ThisWorkbook.Saved Then
          ThisWorkbook.Save
    End If
    Application.OnTime Now + TimeValue("02:00:13"), "SaveMe"
      ActiveWorkbook.SaveCopyAs "C:\Users\XXX\Dropbox\Copy Registratie\Back-up_XXX.xlsm"
      ''ActiveWorkbook.SaveCopyAs "C:\Users\XXX\Desktop\TEST\TEST.XLSm"
End Sub

 

[snb]

De declaratie van de variabele ontbreekt.
Informatie over in welke macromodule de procedures zich bevinden ontbreekt.
Er zijn nog meer macro's blijkt uit je plaatje; die kunnen natuurlijk ook interfereren.
Een geanonimiseerd bestand lijkt me hier aangewezen, Jan.

 

[NajKwin]

Bij deze

 

[JEC.]

Hij schiet ergens in onderbrekingsmodus en de enige plek waar dat per toeval gebeurt, is in een worksheet_change event op sheet1
Of dus ook door het runnen van een andere macro, waardoor het misgaat bij het event.

 

[HSV]

Haal die punt ook weg in de BeforeClose event

"[COLOR=#ff0000][SIZE=5].[/SIZE][/COLOR]Tijd"

Je bestand zal zich herhalend openen na een paar seconden met die punt doordat je timer op de achtergrond blijft doorlopen.

Ook is het beter om je subs in de standaard module Private te maken in ThisWorkbook.
Dus:

[COLOR=#ff0000]Private[/COLOR] Sub Tijd()
 Wacht = Now + TimeValue("00:00:10")
  ThisWorkbook.Worksheets(1).Range("H5") = Format(Time, "hh:mm:ss")
  Application.OnTime Wacht, "Tijd"
End Sub

[COLOR=#ff0000]Private[/COLOR] Sub StopTijd()
  On Error Resume Next
  Application.OnTime Wacht, "Tijd", , False
End Sub

 

[NajKwin]

Dank ik ga kijken of het de oplossing is

GR Naj