• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Fout melding

Status
Niet open voor verdere reacties.

Spekker

Gebruiker
Lid geworden
17 dec 2016
Berichten
142
Hoi allemaal
ik heb een fout melding zins ik een macro toe heb gevoegd, maar hij loopt wel door als ik de fout wegdruk door op close te drukken
nu denk ik dat het in de macro zit die er voor zorgt dat als de file wordt geopend met de dag van vandaag.


dit is de VBA die is toegevoegd in thisworkbook en daarna krijg ik de melding

wie kan mij vertellen waar het foutje zit

Private Sub Workbook_Open()

Dim a As Date
Dim b As Integer

a = Int(Now)

b = Weekday(a)

If b = 1 Then Blad13.Select
If b = 2 Then Blad9.Select
If b = 3 Then Blad3.Select
If b = 4 Then Blad4.Select
If b = 5 Then Blad6.Select
If b = 6 Then Blad7.Select
If a = 7 Then Blad12.Select


Range("A9").Select


End SubBekijk bijlage Copy of Vaarboer lijst rr.xlsm
 
Goedemorgen Spekker.

Ik heb je bestand opgeslagen met week 6 ingevuld.
Als ik hem open gaat hij netjes naar tabblad Donderdag en ik krijg geen foutmelding.

Groetjes, Peenvogel
 
Maar heb je dan al eeen excel file open staan of niet want als er al een excel file open staat heb ik ook geen fout melding
dat is het vreemde ( kom ik ook net achter)
 
Bij mij ook geen foutmelding.

Moet in deze regel een b staan ipv een a?

If a = 7 Then Blad12.Select
 
ik krijg deze melding te zien op het scherm, heb hem maar even een printscreen van gemaakt en in een word bestand gezet Bekijk bijlage melding.doc

maar ik heb van de regel
If a = 7 Then Blad12.Select een b gemaakt en toch komt de melding terug, dacht even dat hij weg bleef
 
Laatst bewerkt:
Tja, lastig. Aan je foutmelding te zien denk ik het probleem in Access zit.
 
Volgens mij is dit wel voldoende

Code:
Application.Goto Sheets(Format(Date, "dddd")).Cells(9, 1)

of

Code:
Application.Goto Sheets(Split("zondag maandag dinsdag woensdag donderdag vrijdag zaterdag")(Weekday(Date) - 1)).Cells(9, 1)
 
Of misschien zo?
Code:
Private Sub Workbook_Open()
Sheets(WeekdayName(Weekday(Now, 2))).Activate
Range("A9").Activate
End Sub
 
VenA
de code die jij neer heb gezet is een heel stuk kleiner en werkt ook

op de fout melding heb dit ook geen invloed krijg het nog steeds, tenzij er al een excel file open staat dan komt de melding niet
 
Ga eens naar
File>Options>Add-Ins of Bestand>Opties>Invoegtoepassingen
Onderaan bij Start, vink daar alles eens uit en kijk of je de foutmelding nog krijgt.
 
Nee ook dat gaat het niet oplossen, gast0660.

krijg het nog steeds binnen
 
Ik wil jullie bedanken voor de hulp de foutmelding die blijft komen, maar we kunnen er meewerken en dat is het belangrijkste.
ik zal hem op opgelost zetten
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan