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

• #9997 Delila_1 veterán Danecay #9996

  Új Válasz 2011-04-09 17:29:10 #9997

  Ú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 Danecay #9996 üzenetére

  Majd írd meg, mire jutottál!

• #9993 Delila_1 veterán Danecay #9991

  Új Válasz 2011-04-09 17:13:05 #9993

  Ú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 Danecay #9991 üzenetére

  Az E1-től kezdődően bevittem a napokat: 15, 16, ... 31.
  Bementem a névadásba, és a napok nevet adtam meg. A hivatkozáshoz ez a kis képlet jött:

  =OFSZET(Munka1!$E$1;0;0;HOL.VAN(NAP(EOMONTH(MA();0));Munka1!$E:$E;0);1)

  Az érvényesítésnél a forráshoz ezt adtam meg: =napok

  A gépen a dátumot februárra átírva az érvényesítés 15-től 28-ig, áprilisban 30-ig, májusban 31-ig teszi választhatóvá a napokat.

  U.i.:
  Ha nincs eomonth függvényed, az Eszközök/Bővítménykezelőben kapcsold be a két Analysis kezdetű bővítményt.

• #9992 Delila_1 veterán Danecay #9991

  Új Válasz 2011-04-09 16:58:18 #9992

  Ú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 Danecay #9991 üzenetére

  Egy inputboxban bekéred a nevet, és esetleg beírod egy cellába, mentéskor pedig onnan veszed elő.

  Cells(1, 3) = InputBox("Kérem a fájl címét", "Fájl címe")

  A másik kérdésedre megpróbálom kitalálni a választ.

• #9990 Delila_1 veterán Danecay #9989

  Új Válasz 2011-04-09 16:43:58 #9990

  Ú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 Danecay #9989 üzenetére

  A legördülőnél alkalmazd az érvényesítést. Melyik verziót használod? Más helyen találod meg a 2007-ben és a régebbiekben.

  A makróban meg kell adnod az útvonalat és a fájl nevét.
  utvonal= "meghajtó:\mappa\almappa\"
  FN="MentendőFileNeve"

  Megadhatod, hogy az aktuális hónap nevével mentsen.
  ment=utvonal & FN & "_" & Format(Now, "yyyy.mm") & ".xls"
  ActiveWorkbook.SaveAs ment
  ActiveWindow.Close 'ezzel bezárod

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