Automatisch verspringen naar datum in Excel

[martinibaby1991]

Goedemorgen,

Ik heb een excel bestand gemaakt waarbij ik de datum van 1 jan t/m 31 dec heb verwerkt in rij A2. Nu zou ik graag als het bestand geopend wordt dat hij automatisch verspringt naar de datum van die dag. Alle voorgaande data hoeven ook niet perse inzichtelijk meer te zijn. Ik ben de hele ochtend al aan het prutsen geweest haha. Kan iemand mij hier mee helpen?

Alvast bedankt

gr martijn

 

[DigiCafee]

bestandje ?

 

[gast0660]

Dat kan o.a zo
In de ThisworkBook sectie

Private Sub Workbook_Open()
Application.Goto Sheets("2021").Rows(2).Find(Date, , , 1), -1
End Sub

 

[martinibaby1991]

bestandje ?

 

[martinibaby1991]

Dat kan o.a zo
In de ThisworkBook sectie

Private Sub Workbook_Open()
Application.Goto Sheets("2021").Rows(2).Find(Date, , , 1), -1
End Sub

Is dit ook mogelijk voor meerdere tabbladen?

 

[HSV]

Private Sub Workbook_Open()
 With Sheets(CStr(Year(Now)))
  Application.Goto .Cells(2, Application.Match(CLng(Date), .Rows(2), 0)), True
 End With
End Sub

 

[gast0660]

Is dit ook mogelijk voor meerdere tabbladen?

In de ThisWorkbook sectie

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.Goto ActiveSheet.Rows(2).Find(Date, , , 1), -1
End Sub

Als je dan een tabblad activeert verspringt je blad naar de datum van die dag

 

[martinibaby1991]

In de ThisWorkbook sectie

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.Goto ActiveSheet.Rows(2).Find(Date, , , 1), -1
End Sub

Als je dan een tabblad activeert verspringt je blad naar de datum van die dag

als ik dit hierin plak krijg ik een foutmelding

 

[edmoor]

Handig. Dan kan je tenminste zien dat er iets niet goed gaat.

 

[HSV]

En ik kan er uit concluderen dat #6 niet is getest.

 

[DigiCafee]

Ik was er ook net op aan het zoeken toen HSV met zijn oplossing aankwam.
heb die dan meer even overgenomen op mijn excel en die werkte wel hoor !!!

 

[sylvester-ponte]

dan heb je hem niet in ThisWorkbook gezet (dit is een reactie op post 8

 

[HSV]

De methode 'Find' vindt geen exotische opmaken met 'Date'.
Vandaar de fout.

 

[martinibaby1991]

En ik kan er uit concluderen dat #6 niet is getest.

Ik heb al werkende in excel! dus bedankt daar voor! Nu upload ik dit bestand naar Spreadsheet van google en dan werkt die macro niet meer. Wat kan ik daar aan doen?

 

[edmoor]

Google Spreadsheet heeft geen idee wat VBA is omdat dat van Microsoft Office is.
Je kan niet verwachten dat dat maar zo gaat werken.
Je zal de gebruikte VBA routine moeten converteren naar Google Apps Script.

 

[martinibaby1991]

Google Spreadsheet heeft geen idee wat VBA is omdat dat van Microsoft Office is.
Je kan niet verwachten dat dat maar zo gaat werken.
Je zal de gebruikte VBA routine moeten converteren naar Google Apps Script.

begrijp ik, toevallig een idee hoe dit werkt?

 

[edmoor]

Daar kan ik je helaas niet bij helpen.
Iemand anders misschien.

Of zelf leren:
https://developers.google.com/apps-script

 

[gast0660]

Google Apps Script is java.
Probeer deze.

function onOpen() {
 var ss = SpreadsheetApp.getActiveSpreadsheet();
 var sheet = ss.getActiveSheet();
 var range = sheet.getRange("2:2");

 var values = range.getValues(); 
 values = values[0];
 var day = 24*3600*1000;  
 var today = parseInt((new Date().setHours(0,0,0,0))/day);  
 Logger.log(today);
 var ssdate; 
 for (var i=0; i<values.length; i++) {
   try {
     ssdate = values[i].getTime()/day;
   }
   catch(e) {
   }
   if (ssdate && Math.floor(ssdate) == today) {
     sheet.setActiveRange(range.offset(0,i,1,1));
     break;
   } } }

 

[martinibaby1991]

Google Apps Script is java.
Probeer deze.

function onOpen() {
 var ss = SpreadsheetApp.getActiveSpreadsheet();
 var sheet = ss.getActiveSheet();
 var range = sheet.getRange("2:2");

 var values = range.getValues(); 
 values = values[0];
 var day = 24*3600*1000;  
 var today = parseInt((new Date().setHours(0,0,0,0))/day);  
 Logger.log(today);
 var ssdate; 
 for (var i=0; i<values.length; i++) {
   try {
     ssdate = values[i].getTime()/day;
   }
   catch(e) {
   }
   if (ssdate && Math.floor(ssdate) == today) {
     sheet.setActiveRange(range.offset(0,i,1,1));
     break;
   } } }

kijk super, nu heb ik hem in spreadsheet voor mij zelf werkend, Nu ben ik hem aan het delen naar een ander account en dan werkt de functie niet mee. Hoe kan ik dat aanpassen?

 

[gast0660]

Beste,
Ik ken een beetje java omdat ik dit gebruik in Adobe acrobat.
Van google toepassingen gebruik ik niets, zelfs het zoekprogramma niet, hierbij kan ik u helaas niet verder helpen.