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

• #26999 Árnymester tag gyga #26993

  Új Válasz 2015-05-19 21:27:27 #26999

  Ú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

  

  Árnymester

  tag

  válasz gyga #26993 üzenetére

  A Kereső keres rejtett cellákban és szerintem lapokon is. Listába mind kérd, és a fájlnévre keress!
  Adatok >> Kapcsolatok és Meglévő kapcsolatok ellenőrzése.
  Továbbá még a Képletek >> Névkezelő: lehet, hogy itt bújik meg egy külső hivatkozás.

  Ui.: Több lehetőség nemigen van, szerintem.

• #26982 Árnymester tag Cifu #26981

  Új Válasz 2015-05-19 12:57:34 #26982

  Ú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

  

  Árnymester

  tag

  válasz Cifu #26981 üzenetére

  Lehet nem a legelegánsabb megoldás...

  Sub Szetszed()
  Dim MyWs As Worksheet
  Set MyWs = ActiveSheet
  'Az első másolandó sor száma
  r = 1
  Do Until Not IsEmpty(MyWs.Cells(r, 1)) 'Ide olyan oszlopot adj meg, ami minden sorban tartalmaz adatot!
  ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
  'Ide jönnek az oszlopok, a c1-c5-ök helyére a forrás(MyWs) értékes oszlopait kell beírni.
  'Címsor másolása
  ActiveSheet.Cells(1, 1).Value = MyWs.Cells(1, c1)
  ActiveSheet.Cells(1, 2).Value = MyWs.Cells(1, c2)
  ActiveSheet.Cells(1, 3).Value = MyWs.Cells(1, c3)
  ActiveSheet.Cells(1, 4).Value = MyWs.Cells(1, c4)
  ActiveSheet.Cells(1, 5).Value = MyWs.Cells(1, c5)
  'Adatok másolása
  ActiveSheet.Cells(1, 1).Value = MyWs.Cells(r, c1)
  ActiveSheet.Cells(1, 2).Value = MyWs.Cells(r, c2)
  ActiveSheet.Cells(1, 3).Value = MyWs.Cells(r, c3)
  ActiveSheet.Cells(1, 4).Value = MyWs.Cells(r, c4)
  ActiveSheet.Cells(1, 5).Value = MyWs.Cells(r, c5)
  r = r + 1
  Loop
  End Sub

• #26973 Árnymester tag Fferi50 #26968

  Új Válasz 2015-05-19 08:49:40 #26973

  Ú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

  

  Árnymester

  tag

  válasz Fferi50 #26968 üzenetére

  "Ha például megadod, hogy csak vasárnap a hétvége, az ünnepnapok között felsorolod az összes nem dolgozós szombatot is a tényleges ünnepek mellett, akkor jól fog számolni."

  Leesett.

  Kicsit macerás, de működhet.

  Köcce.

• #26970 Árnymester tag Fferi50 #26968

  Új Válasz 2015-05-18 19:39:47 #26970

  Ú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

  

  Árnymester

  tag

  válasz Fferi50 #26968 üzenetére

  Köszi. Megvannak ezek a függvények. Ismerem ezeket. Egyébként 2010-ről van szó aktuálisan, de használok 2013-at is. A beépített függvények nem tudják a rendkívüli munkanapokat, és nekem most erre volt szükségem, csak nem jött az ötlet. Ha csak egy nap vizsgálatáról lett volna szó, simán leküzdöm FKERES-sel.
  Delila szállította a megoldást.
  Köszönöm a reflektálást.

• #26965 Árnymester tag Delila_1 #26962

  Új Válasz 2015-05-18 16:22:39 #26965

  Ú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

  

  Árnymester

  tag

  válasz Delila_1 #26962 üzenetére

  
  If Weekday(valami, 2) > 5 Then MN = MN - 1
  Ezt a sort pont hozzáírtam, mire megjelent a comment-ed.

  Király(lány) vagy!

• #26963 Árnymester tag scott_free #26954

  Új Válasz 2015-05-18 16:20:59 #26963

  Ú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

  

  Árnymester

  tag

  válasz scott_free #26954 üzenetére

  1. =KÖZÉP(A1;HOSSZ(A1)-SZÖVEG.KERES("(";A1)+1;SZÖVEG.KERES(")";A1)-SZÖVEG.KERES("(";A1)-1), ahol A1 tartalmazza a kivonatolandó értéket.

  A képleteket tartalmazzó cellát előre kell számmá formázni.

  2. Makróval lehet, de szerintem meg kell nyitogatni a fájlokat.

  3. képlettel nem tudsz fixálni, de makróval tudsz olyat, hogy ha a forrás változik, akkor egy cellába beírja az új értéket, akár minden alkalommal új sorba, és mellé írja az aktuális dátumot és időz.

• #26961 Árnymester tag Delila_1 #26957

  Új Válasz 2015-05-18 16:00:32 #26961

  Ú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

  

  Árnymester

  tag

  válasz Delila_1 #26957 üzenetére

  Okos ötlet!

  Köszönöm.

  De, azért kérdeznék: Ha az E1:E20-ban vannak az ünnepnapok, akkor nem az abban lévő számosságot kellene kivonni a munkanapok számához? (Persze, lehet, hogy félreértelmezem a kódot :-()

• #26959 Árnymester tag kőbaltazár #26955

  Új Válasz 2015-05-18 15:43:52 #26959

  Ú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

  

  Árnymester

  tag

  válasz kőbaltazár #26955 üzenetére

  Windows áttelepítővel a leggyorsabb.

  Darabonként:
  Makrók:
  PERSONAL.XLB a %HOMEPATH%\AppData\Roaming\Microsoft\Excel\Xlstart\PERSONAL.XLSB helyről.

  Gyorselérési eszköztár és/vagy menüszalag: Excel beállításai és jobb alsó sarokban az Importálás/exportálás gomb.

• #26953 Árnymester tag Delila_1 #26952

  Új Válasz 2015-05-18 14:52:38 #26953

  Ú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

  

  Árnymester

  tag

  válasz Delila_1 #26952 üzenetére

  Ez megvan, csak ezzel nem tudom figyelembe vetetni a pl. szombatra eső rendkívüli munkanapokat.

• #26951 Árnymester tag

  Új Válasz 2015-05-18 14:36:15 #26951

  Ú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

  

  Árnymester

  tag

  Szervusztok!

  Két dátum közötti munkanapok számát szeretném meghatározni, de úgy, hogy ne csak a listázott ünnepnapokat, hanem az extra - rendkívüli - munkanapokat is figyelembe vegye a számólócella.

  Van valakinek ötlete?

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