Új hozzászólás Aktív témák

• #5927 Delila_1 veterán Z-Tom-ee #5926

  Új Válasz 2010-01-06 08:23:09 #5927

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Z-Tom-ee #5926 üzenetére

  Ezt csak makróval lehet megoldani szerintem. Míg nem jön jobb megoldás, itt a makró hozzá:

  Sub auto_open()
  Dim dátum As Date
  
  dátum = Date
  Sheets("Munka1").Select
  Cells.Find(What:=dátum, After:=ActiveCell, LookIn:=xlFormulas, _
  LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
  MatchCase:=False, SearchFormat:=False).Activate
  End Sub

  Fontos, hogy auto_open legyen a címe, mert az ilyen nevű makró a füzet behívásakor automatikusan indul.
  A Sheets("Munka1").Select sorban a saját lapod nevét írd be.

Új hozzászólás Aktív témák