• 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.

datum van vandaag achter kolom a bij het openen

Status
Niet open voor verdere reacties.
D

davylenders123

Gebruiker
Lid geworden
20 jun 2010
Berichten
902
Ik heb een verlof kalender waarvan de voorbije en de datum van vandaag een grijze kleur krijgt met zwarte cijfers als je het bestand open doet.
De dagen die nog moeten komen zien wit met zwarte cijfers.

Heb het deelvenster geblokkerd achter kolom A.

Kan je op de een of andere manier er voor zorgen dat de dag van vandaag juist achter de kolom a komt te staan bij het open doen van de file en dat je de dagen ervoor enkel kan zien door de schuifbalk te gebruiken.

Is gemaakt met excel 2003.
 
Als de data in rij 1 staan.
Code: 
ActiveWindow.ScrollColumn = Range("1:1").Find(Date + 1).Column
 
Een stukje programmacode, dat je uiteraard nog moet aanpassen:
Code: 
Private Sub Workbook_open()
            Sheets("lijst").Select
            Cells.Find(What:="TODAY()", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
End Sub
 
rdg1314 zei:
Een stukje programmacode, dat je uiteraard nog moet aanpassen:
Code: 
Private Sub Workbook_open()
            Sheets("lijst").Select
            Cells.Find(What:="TODAY()", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
End Sub
Klik om te vergroten...

Hoe moet ik de code juist aanpassen.

Het bestand bestaat uit 12 tab bladen
jan
feb
maart
april
mei
juni
juli
aug
sep
okt
nov
dec

Als ik u code nu gebruik en pas dit Sheets("lijst").Select aan naar Sheets("sep").Select dan krijg ik de fout melding
"fout 91 bij uitvoeren"

Heb ze geplakt in this workbook
 
Laatst bewerkt:
In ThisWorkbook.
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  On Error Resume Next
    ActiveWindow.ScrollColumn = Range("1:1").Find(Date + 1).Column
End Sub
 
davylenders123 zei:
Het bestand bestaat uit 12 tab bladen voor elke maand 1
Klik om te vergroten...

...dát had je nog niet vermeld....

Om het gissen en gokken van de helpers te vereenvoudigen lijkt 't mij de hoogste tijd voor een voorbeeldbestandje. Plaats dus ff je kalender hier als bijlage (ontdaan van privé info). Dan praten we allemaal over hetzelfde en krijg je een oplossing waar je iets aan hebt zonder dat je de helpers het bos in stuurt met onvoldoende informatie.

Groet, Leo
 
HSV zei:
In ThisWorkbook.
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  On Error Resume Next
    ActiveWindow.ScrollColumn = Range("1:1").Find(Date + 1).Column
End Sub
Klik om te vergroten...

sorry maar met deze code wil het ook niet werken :confused:
 
davylenders123 zei:
sorry maar met deze code wil het ook niet werken :confused:
Klik om te vergroten...

Dat komt omdat er geen datum op rij 4 staat, maar gewoon een dag.
Verander de opmaak maar eens naar datum, en de code "1:1" in "4:4", en dan werkt het wel.
Ik zal kijken voor een passende oplossing.

Ps.Hier heeft @Leo wel een punt, en ben het volkomen met hem eens.
 
Even een testje.
Zo gaat het naar de dag van vandaag in elk blad ondanks dat het niet de juiste maand is.
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Dim mijndatum, mijndag
   On Error Resume Next
   mijndatum = Date
   mijndag = Day(mijndatum)
    ActiveWindow.ScrollColumn = Range("4:4").Find(mijndag + 1).Column
End Sub
Of:
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Dim mijndatum, mijndag
   On Error Resume Next
     ActiveWindow.ScrollColumn = Range("4:4").Find(Format(Date + 1, "dd")).Column
 End Sub
is hetzelfde.
 
Laatst bewerkt:
HSV zei:
Even een testje.
Zo gaat het naar de dag van vandaag in elk blad ondanks dat het niet de juiste maand is.
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Dim mijndatum, mijndag
   On Error Resume Next
   mijndatum = Date
   mijndag = Day(mijndatum)
    ActiveWindow.ScrollColumn = Range("4:4").Find(mijndag + 1).Column
End Sub
Of:
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Dim mijndatum, mijndag
   On Error Resume Next
     ActiveWindow.ScrollColumn = Range("4:4").Find(Format(Date + 1, "dd")).Column
 End Sub
is hetzelfde.
Klik om te vergroten...

Heb u 2 codes eens gezet in this workbook dan opgeslaan en het bestand gesloten.
Dan terug open gedaan maar er gebeurt niks :confused:
 
Misschien kun je hier mee leven, met als opmaak van rij 4: "d-m".
en onderstaande code.
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   On Error Resume Next
     ActiveWindow.ScrollColumn = Range("4:4").Find(Format(Date + 1, "d-m")).Column
 End Sub
Anders iemand van betere kaliber.
 

Bijlagen

Laatst bewerkt:
HSV zei:
Misschien kun je hier mee leven, met als opmaak van rij 4: "d-m".
en onderstaande code.
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   On Error Resume Next
     ActiveWindow.ScrollColumn = Range("4:4").Find(Format(Date + 1, "d-m")).Column
 End Sub
Anders iemand van betere kaliber.
Klik om te vergroten...

Heb u bestandje opgeslagen op mijn pc.
Heb het tab blad terug helemaal naar 1/9 geschoven en opgeslaan.
Terug open gedaan maar hij staat niet terug op 19/09 maar nog steeds op 1/09:confused:
 
Even naar een ander blad gaan, en terug naar tab 'Sep'.
Anders:
Code: 
Private Sub Workbook_[COLOR="red"]Open()[/COLOR]
 On Error Resume Next
     ActiveWindow.ScrollColumn = Range("4:4").Find(Format(Date + 1, "d-m")).Column
End Sub
 
Laatst bewerkt:
HSV zei:
Even naar een ander blad gaan, en terug naar tab 'Sep'.
Anders:
Code: 
Private Sub Workbook_[COLOR="red"]Open()[/COLOR]
 On Error Resume Next
     ActiveWindow.ScrollColumn = Range("4:4").Find(Format(Date + 1, "d-m")).Column
End Sub
Klik om te vergroten...

Naar een ander tab blad en terug had ik al geprobeerd maar werkt ook niet.

Heb de code van hier boven geplaats op de plaats van de vorige maar werkt ook niet:confused:
 
Bij mij werkt het goed. :rolleyes:
Snap er niks van.

Mocht het later wel werken en je wil de datum van vandaag zien achter kolom A (wat ik vermoed), dan haal je de '+ 1' weg in de code.
 
Laatst bewerkt:
davylenders123 zei:
Naar een ander tab blad en terug had ik al geprobeerd maar werkt ook niet.

Heb de code van hier boven geplaats op de plaats van de vorige maar werkt ook niet:confused:
Klik om te vergroten...

Hmmmm.... WAT is het Macro-beveiligingsniveau van jouw Excel? Die moet wél op midden of (niet aan te raden) laag staan. Krijg je dus bij het openen van je workbook het venstertje met de vraag of je de aanwezige macro's wilt laten werken, of niet?

Groet, Leo
 
Ginger zei:
Hmmmm.... WAT is het Macro-beveiligingsniveau van jouw Excel? Die moet wél op midden of (niet aan te raden) laag staan. Krijg je dus bij het openen van je workbook het venstertje met de vraag of je de aanwezige macro's wilt laten werken, of niet?

Groet, Leo
Klik om te vergroten...

macro beveligingal eens op laag gezet maar werkt dan nog steeds niet :confused: raar bij jullie wel maar bij mij niet:confused:

Heb het zelf al op 2 pc's geprobeerd een met excel 2003 waar het op zou moeten draaien en op een andere met 2007 erop maar geen een van de 2 werkt:(
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan