skok v celico tekočega datuma

Pomoč pri izdelavi makrov
Odgovori
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

skok v celico tekočega datuma

Odgovor Napisal/-a rick »

Pozdravljeni,

v stolpcu a imam datume skozi celo leto. Kako bi napisal makro,
da bi mi ob odprtju delovnega zvezka (thisworkbook) kurzor skočil v današnji datum,
oziroma tekoči datom- TODAY...

Za odgovor se najlepše zahvaljujem
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: skok v celico tekočega datuma

Odgovor Napisal/-a admin »

Glede na to, da imate zapisane vse datume, je najlažje izračunati kateri dan v letu je današnji dan in skočiti v tisto vrstico...

Koda: Izberi vse

Sub auto_open()
  Dim dni As Integer
  dni = Date - DateSerial(Year(Date), 1, 1)
  
  Worksheets(1).Cells(dni, 1).Select
End Sub
lp,
Matjaž Prtenjak
Administrator
Odgovori