datum van vandaag achter kolom a bij het openen

[HSV]

Ik zal het er nog een keer opzetten, misschien is er wat mis gegaan.

 

[davylenders123]

Ik zal het er nog een keer opzetten, misschien is er wat mis gegaan.

Sorry maar werkt bij mij nog steeds niet

Als ik je nieuw geplaast bestand open doe staat het direct op tab sep maar niet met datum 19/1 naast kolom a.
Als ik naar tab blad okt ga en dan terug gebeurt er nog steeds niks

Ik weet niet wat ik fout doe ze

 

[HSV]

Is er iets met je Excel.
In onderstaande Topic loopt het ook niet lekker.
http://www.helpmij.nl/forum/showthread.php/564090-knop-voor-opslaan-als-toevoegen

 

[davylenders123]

Is er iets met je Excel.
In onderstaande Topic loopt het ook niet lekker.
http://www.helpmij.nl/forum/showthread.php/564090-knop-voor-opslaan-als-toevoegen

Dan zou het op mijn pc met excel 2007 en op die van het werk met excel 2003 het zelfde probleem moeten zijn.
En die van het werk draait via een netwerk.

Zou niet wete wat er mis kan zijn met excel.

 

[HSV]

In Excel 2007 werkt de code bij mij ook niet, da’s 1.

 

[davylenders123]

Heb het nog eens geprobeerd onder de excel 2003 versie maar te vergeefs werkt niet

 

[HSV]

Als je 'On Error Resume Next' even als tekst markeert, krijg je dan een foutmelding?

 

[Ginger]

Harry, dit is inderdaad een hele bijzondere.... Ik gok dat je de code met de recorder hebt opgenomen en daarna 'gekuist'? Ik deed namelijk hetzelfde en kwam tot de conclusie dat de door de recorder opgenomen code zich niet meer laat afspelen... Da's vreemd, nietwaar?

Groet, Leo

 

[HSV]

Nee, heb de code geschreven uit een oud voorbeeldje, en verder wat aangepast.
En het rare is dat nu de code bij mij sinds vijf minuten ook niet meer werkt.
Eerst werkt het perfect, en ik mag aannemen bij jouw ook Leo?

 

[davylenders123]

Als je 'On Error Resume Next' even als tekst markeert, krijg je dan een foutmelding?

Ja dan krijg ik een foutmelding
"91 fout tijdens uitvoering"

 

[Warme bakkertje]

Maak al je werkbladen op zoals blad September en plaats onderstaande in ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 On Error Resume Next
     ActiveWindow.ScrollColumn = Range("4:4").Find(Format(Date, "d/m"), , xlValues, xlWhole).Column
End Sub

Heb'm voor alle zekerheid ook eens getest in XL2007 en No Problemo

 

[davylenders123]

Maak al je werkbladen op zoals blad September en plaats onderstaande in ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 On Error Resume Next
     ActiveWindow.ScrollColumn = Range("4:4").Find(Format(Date, "d/m"), , xlValues, xlWhole).Column
End Sub

Heb'm voor alle zekerheid ook eens getest in XL2007 en No Problemo

Dit is hem, nu werkt het wel:d:thumb:

Bedankt aan iedereen die hier aan geholpen heeft :thumb: