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

• #14989 Fire/SOUL/CD félisten Vizes Tomi #14988

  Új Válasz 2012-09-19 11:34:58 #14989

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Vizes Tomi #14988 üzenetére

  Több munkalap van kijelölve. Kattints valamelyik munkalap fülön jobb egérrel és csoport szétbontása.

• #14956 Fire/SOUL/CD félisten poffsoft #14955

  Új Válasz 2012-09-17 14:42:46 #14956

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz poffsoft #14955 üzenetére

  Nem tudom, milyen verziójú az Excel, de ha 2007 vagy újabb akkor

  =COUNTIFS(A1:A6;"abcd*";B1:B6;"<>" &"")

  Ha a teljes A és B oszlopot vizsgálnád, akkor

  =COUNTIFS(A:A;"abcd*";B:B;"<>" &"")

  (magyar Excel-ben DARABHATÖBB a megfelelője)

  UI: Ha a 2003 vagy régebbi Excelben is kell használni/használják a táblázatot, akkor ez nem jó megoldás.

• #14735 Fire/SOUL/CD félisten negus99 #14734

  Új Válasz 2012-08-26 20:02:02 #14735

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz negus99 #14734 üzenetére

  LastUsedCellInColumn = Range("E1").End(xlDown).Row
  MsgBox (Range("E" & Range("E1").End(xlDown).Row))

  Az adott oszlopban nem lehet üres cella az adatok között.

• #14732 Fire/SOUL/CD félisten negus99 #14731

  Új Válasz 2012-08-26 19:25:54 #14732

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz negus99 #14731 üzenetére

  Hyperlinks.Add Range("A1"), "FILE://C:\users\Fire\Documents\fire.xlsm", "", "", "fire.xlsm"

  vagy

  Range("A1").Formula = "=HYPERLINK(""FILE://C:\users\Fire\Documents\fire.xlsm"",""fire.xlsm"")"

  Az első "elegánsabb", mivel úgy nem fog a cellában képlet látszódni.

• #14606 Fire/SOUL/CD félisten bozsozso #14605

  Új Válasz 2012-08-10 19:35:11 #14606

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz bozsozso #14605 üzenetére

  Ja, így már más... [link], hátránya jól látható, fakó kép...
  (A hátraküldés/előrehozás csak több pl kép esetén használható, tehát 2 kép egymáshoz viszonyított helyzete, nem pedig a cellákhoz képest)

• #14604 Fire/SOUL/CD félisten bozsozso #14603

  Új Válasz 2012-08-10 19:00:09 #14604

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz bozsozso #14603 üzenetére

  Excel 2010 - Background Image

• #14593 Fire/SOUL/CD félisten akyyy #14591

  Új Válasz 2012-08-09 11:16:03 #14593

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz akyyy #14591 üzenetére

  Szövegből oszlopok opciót használd

  akyyy #14592

  =NAGYBETŰS(BAL(C6;1))&KISBETŰ(JOBB(C6;HOSSZ(C6)-1))

  C6 helyére meg a megfelelő cellát helyettesíted be.

• #14540 Fire/SOUL/CD félisten Delila_1 #14539

  Új Válasz 2012-08-02 15:01:45 #14540

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 #14539 üzenetére

  1. A példámban a C oszlopra semmi szükség, pusztán azért jelenítettem meg, hogy fejben ki lehessen számolni, hogy milyen eredménynek kellene születni
  2. Szerintem csak elbeszélünk egymás mellett, mert szintén az én példámat alapul véve, azokkal az adatokkal dolgozva, a Te képleted nem adhat 11-et, 43-at kell.
  (11-et azért nem értettem, mert azt feltételeztem, hogy az adataimmal ad annyit, de nyilván nem az én adataimról van szó)

• #14537 Fire/SOUL/CD félisten Delila_1 #14535

  Új Válasz 2012-08-02 14:39:59 #14537

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 #14535 üzenetére

  Az ügyes, 1+(-1)+(-4)+5 hogy lesz 11 az rejtély, de határozottan ügyes. Erre csak azt lehet mondani, amit menő manó szokott, amikor ledöbben valamin/nem ért valamit, azaz forigyészi

• #14532 Fire/SOUL/CD félisten Rhino666 #14528

  Új Válasz 2012-08-02 12:55:11 #14532

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Rhino666 #14528 üzenetére

  Ez a kép alapján írd meg, milyen eredménynek kell születnie: [link]
  (C oszlopban van A és B különbsége, D1-ben az én, E1-ben Delila_1 képlete. Valamelyiknek jónak kell lennie, ha nem, na akkor van forigyészi )

• #14526 Fire/SOUL/CD félisten Rhino666 #14525

  Új Válasz 2012-08-02 01:26:48 #14526

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Rhino666 #14525 üzenetére

  {=NÉGYZETÖSSZEG(SZUM(A1:A4-B1:B4))}

• #14509 Fire/SOUL/CD félisten dkaro #14508

  Új Válasz 2012-08-01 11:22:57 #14509

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz dkaro #14508 üzenetére

  Ha ráállsz a cellára és begépelsz valamit a keresésnek megfelelően, majd lenyitod a listát, akkor automatikusan oda ugrik. Ha nincs olyan elem vagy olyan kezdetű elem a listában, amit begépeltél, akkor a lista lenyitásakor egy hibaablak tájékoztat erről.

• #14504 Fire/SOUL/CD félisten lacipapi #14500

  Új Válasz 2012-08-01 10:20:52 #14504

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lacipapi #14500 üzenetére

  Private Sub Workbook_Open()
  Application.OnKey "^%{d}", "FSCD_CTRL_ALT_D"
  End Sub

  Module1-be

  Public Sub FSCD_CTRL_ALT_D()
  MsgBox ("CTRL+ALT+D billentyűzetkombináció")
  End Sub

  A súgóban részletes infót találsz az OnKey esetén használható billentyűzet "kódokról".

• #14494 Fire/SOUL/CD félisten Wasquez #14493

  Új Válasz 2012-07-31 12:10:33 #14494

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Wasquez #14493 üzenetére

  Amikor dátumra formázod a cellá(ka)t, akkor nézd meg, hogy milyen elválasztó karaktert használ (pont vagy kötőjel, perjel stb). ha ez megvan, akkor ennek megfelelően írj be egy dátumot(teljes dátumot, pl pont elválasztó esetén 2012.01.01 formában), így mi történik?
  (Ha egy dátum cellába klasszikus értelembe véve írsz be szöveget (pl ubul), arra nem fog figyelmeztetni és természetesen dátumként sem tudja megjeleníteni, de mint írtam, ez nem hiba)

• #14492 Fire/SOUL/CD félisten Wasquez #14491

  Új Válasz 2012-07-31 11:55:58 #14492

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Wasquez #14491 üzenetére

  "Olyan gondom van, hogy a cellák formátumát hiába állítom mondjuk dátum formátumra, nem szól érte semmit, ha szöveget írok bele, simán megjelenik."
  Ez nem hiba, ez mindig is így volt. A kérdés az, hogy miért írsz szöveget egy dátumra formázott cellába?

• #14489 Fire/SOUL/CD félisten iceQ! #14488

  Új Válasz 2012-07-31 09:56:46 #14489

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz iceQ! #14488 üzenetére

  Füzetvédelem van bekapcsolva és az Ablakok opció is be van jelölve. Fel kell oldani a védelmet.

• #14430 Fire/SOUL/CD félisten hispan #14428

  Új Válasz 2012-07-23 09:48:10 #14430

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz hispan #14428 üzenetére

  Kimutatás-t is megnézhetnéd, sok melótól kímélheted meg magad...

• #14414 Fire/SOUL/CD félisten motinka #14412

  Új Válasz 2012-07-20 10:53:43 #14414

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz motinka #14412 üzenetére

  Erre való a SZUMHATÖBB függvény, csak azt amit leírtál: "...és a C sorban az O4-nek...", ezt nem lehet kivitelezni, mert nincs olyan, hogy C sor. Olyan lehet, hogy pl a 3. (vagy egyéb) sorban ($3:$3)
  Ezért is írtam egy sima példát a SZUMHATÖBB-re, aztán majd saját igényed szerint módosítod. (Látom megtörtént időközben)

  Szerk
  Ha kódot szúrsz be a hozzászólás írásakor, akkor használd a Programkód gombot, mert különben smiley-kkal tüzdelt, mint most, meg korábban is a képlet.

• #14411 Fire/SOUL/CD félisten motinka #14410

  Új Válasz 2012-07-20 10:38:38 #14411

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz motinka #14410 üzenetére

  Ha 2003-as Excel-t használsz
  Ha 2003_asnál újabb az Excel, akkor =SZUMHATÖBB(C1:C8;A1:A8;"a";B1:B8;"c")

  UI: DARATELI függvénnyel nem lehet összeadni.

• #14392 Fire/SOUL/CD félisten Traxx #14390

  Új Válasz 2012-07-18 20:32:17 #14392

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Traxx #14390 üzenetére

  Erre mondják, hogy csalamádé. Elég csak benézned a Névkezelőbe és látod, 5-6 (vagy több) tartománynak ugyanaz a neve. [link]
  Másik tipikus hiba, hogy az érvényesítési lista forrásában a cellákra abszolút hivatkozással kell hivatkozni, azaz a oszlop- és sorazonosító elé is kell a dollár jel, pl INDIREKT($A$1)

  Szerintem ugorja neki még egyszer, egyértelmű és ne 1-2 betűs tartományneveket használj. (Ha a rosszak ki vannak törölve és újra át vannak nevezve, akkor működnek a listák)

• #14389 Fire/SOUL/CD félisten atillaahun #14387

  Új Válasz 2012-07-18 19:11:26 #14389

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz atillaahun #14387 üzenetére

  A példádnál maradva
  1. vidd a cellakurzort a B oszlop bármely cellájára (ami tartalmaz képletet, ne üres legyen), majd CTRL+C
  2. vidd a cellakurzort az A oszlopba, majd CTRL + Kurzormozgató LE(így az A oszlop utolsó, adatot tartalmazó cellájára áll a cellakurzor)
  3. vidd a cellakurzort ebben a sorban maradva a B oszlopba, majd CTRL+SHIFT+Kurzormozgató FEL, majd CTRL+V és ESC

• #14385 Fire/SOUL/CD félisten Traxx #14384

  Új Válasz 2012-07-18 18:12:51 #14385

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Traxx #14384 üzenetére

  Ha nincs akadálya, akkor tedd fel egy fájlmegosztóra(pl ide) ezt a problémás munkafüzetet(olyan adat ne legyen benne, ami nem publikus), majd (de tényleg csak majd) ránézek, meg így más is rá tud nézni. Lehet, egyből ki lehet szúrni a bakit.

• #14383 Fire/SOUL/CD félisten Traxx #14382

  Új Válasz 2012-07-18 17:40:31 #14383

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Traxx #14382 üzenetére

  "Ezt a dinamikus tartományt egyébként a 2003-as excel is tudja?"
  Igen.

  "...magyarán azt mondod, hogy azért van az egyiken, és nincs a többin, mert statikus a tartomány dinamikus helyett?"
  Nem, mivel a névvel ellátott tartományok globálisak, azaz bármely munkalapról elérhetőek. Ebből következően a "Ez pedig, számomra rejtélyes okból, CSAK az első munkalapon működik - és nem csupán az, hogy új elemet szúrhassak be a listába, hanem maga a legördülés is." kérdésedre nem tudom a választ sajnos.

• #14381 Fire/SOUL/CD félisten Traxx #14379

  Új Válasz 2012-07-18 17:12:44 #14381

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Traxx #14379 üzenetére

  Egyszerűség kedvéért névvel ellátott tartományok lesz a példában, pl UBUL.
  Vannak statikus és dinamikus tartományok, ezeket az Excel(típustól függetlenül) dinamikusan tudja frissíteni, adott esetben.

  Statikus tartomány az, aminek van "jól behatárolt" eleje és vége, pl $A$1:$A$10. Ha az A11-be írnál valamit, az nem kerül be az UBUL tartományba, Excel sem fogja dinamikusan bővíteni, manuálisan kell kibővítened az UBUL tartományát $A$1:$A$11-re.
  Ha viszont az A10 cellának megfelelő sorban van a kurzor és beszúrsz egy sort, akkor azt az Excel dinamikusan frissíti, azaz manuális beavatkozás nélkül, az UBUL tartomány forrását $A$1:$A$10-ről, $A$1:$A$11-re bővíti.

  Dinamikus tartomány az, aminek nincs jól behatárolt eleje/vége, tipikusan amikor egy teljes oszlop vagy sor tartozik a tartományba, pl $A:$A vagy $1:$1
  Itt nincs dolga az Excel-nek, ezen nincs mit bővíteni, az adott oszlopba vagy sorba beírt adatok értelme szerűen az UBUL tartomány részét fogják képezni, az UBUL tartományt használó objektumokba (pl az érvényesítési listába) a beírt adat automatikusan bekerül.

  Szintén dinamikus tartományokhoz tartozik, amikor egész sor vagy oszlop a forrás, de bizonyos kivételekkel, azaz az UBUL tartomány ne a teljes oszlopot vagy sort tartalmazza, hanem pl csak a 2. sortól vagy 2. oszloptól legyen a teljes oszlop vagy sor az UBUL nevű tartomány forrása.
  Pl ha az a terv, hogy az UBUL nevű tartomány F2-től kezdődően a teljes F oszlopot foglalja magábal, akkor az UBUL tartományt így kell megadni: [link]

  Az ily módon létrehozott dinamikus tartományok nagy előnye, hogy nem kell manuálisan módosítania a felhasználónak és természetesen az üres cellák sem jelentenek gondot, hisz (maradva az érvényesítési listáknál) van olyan opció, hogy az üres cellákat ne jelenítse meg.

  Kicsit hosszú lett a hsz, de remélem azért érthető.

  bugizozi és lacid90
  Bocsesz, most nem válaszolok, kicsit szellőztetem a fejem, mert nem rég értem haza ilyen "teganelőtre kelle, totálkáros gépekbe életet lehelni" kategóriájú melóból, fáradt vagyok. (Ráadásul szabin vagyok, de "kénytelen voltam" elvállalni)
  Remélhetőleg Delila_1 is feltűnik (tényleg, amúgy merre "csatangolsz? ) vagy valaki más és leírja, hogy mi a megoldás. Én max eset valamikor fogok válaszolni(ha tudok persze), addig pihentetem a szürkeállományt.

• #14377 Fire/SOUL/CD félisten lacid90 #14375

  Új Válasz 2012-07-17 23:10:08 #14377

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lacid90 #14375 üzenetére

  Nem, csak 2 Excel-nek kell megnyitva lennie, nem 3-nak. Nem tudom milyen OS-t használsz, de Vista/W7 esetén (előtte zárj be minden megnyitott Excel-t) WIN gomb +R/beír excel és enter, majd megismétled még1x.
  (XP-nél erre nem emléxem és most nem is tudom kipróbálni sajnos)

• #14374 Fire/SOUL/CD félisten lacid90 #14373

  Új Válasz 2012-07-17 21:48:54 #14374

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lacid90 #14373 üzenetére

  Ez már megint más programozást igényel, mint amit korábban kérdeztél...
  Az Excel-t 2 példányban kell megnyitni, így az egyik ezen, a másik azon a monitoron lesz látható (nyilván most a videokari beállításaira nem térek ki), és ez eddig rendben is van, ez az egyszerűbb része a dolognak. Viszont a 2 alkalmazás közti kommunikáció megint más tészta és oda Windows API függvények bevonása is szükséges, amit kezdő, az excel-el, makróval stb csak most ismerkedő versenyzőnek igen kemény avagy kivitelezhetetlen feladat.
  (OS és Office függő, ezen belül x86 avagy x64 sem mindegy, más és más deklarációt igényel a makróban az API függvények, és az sem árt, ha tudja valaki, hogy mik is azok az API függvények és hogy abból van több száz/ezer...)

  Ezt elkerülendő egy kerülőmegoldást tudok elképzelni, azaz 2 példányban van megnyitva az Excel, az egyikben egy makró elmenti a munkafüzetet, ha bármilyen módosítást észlel, a másik excel meg meghatározott időközönként ebből a munkafüzetből olvassa be az adatokat, pl másodpercenként.

• #14371 Fire/SOUL/CD félisten Amice #14370

  Új Válasz 2012-07-17 19:48:42 #14371

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Amice #14370 üzenetére

  Mondjuk az nem tudom jelent-e gondot, hogy akárhányszor megnyitod a munkafüzetet vagy nyomkodod az F9-et, mindig új szám lesz generálva. Akkor lehet ez gond, ha csak egyszer (vagy amikor Te akarod, csak akkor) legyen generálva szám.
  Ha ez szempont, akkor majd írsz.

• #14369 Fire/SOUL/CD félisten Amice #14368

  Új Válasz 2012-07-17 19:29:29 #14369

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Amice #14368 üzenetére

  Igen, az járható út, de ha korábban írtad volna, akkor már úgy írtam volna a makrót, nem szeretem az utólagos hegesztéseket. (mert az olyan kihatással lehet a makró működésére, hogy még a gép is beakadhat tőle)

  Ha kiszedted az Array-ből a nullát, akkor az alábbi részben

  If NumberOfDigits < 1 Or NumberOfDigits > 10 Then
  FSCD_Generator = "A számjegyek száma 1 és 10 közé kell, hogy essen!"
  Exit Function
  End If

  módosítsd a > 10-et > 9-re és a hibaüzenetben is "1 és 9 közé"

  Végül si ha a makróban a NumberOfDigits értékét nem módosítod, akkor nincs gond.

• #14367 Fire/SOUL/CD félisten Amice #14366

  Új Válasz 2012-07-17 18:49:40 #14367

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Amice #14366 üzenetére

  Üres munkafüzet legyen nyitva, ALT+F11/Insert menü/Module, a megjelenő üres ablakba bemásolod a kódot (Copy/Paste-el), munkafüzet pl A1 cellájába(vagy bárhova) meg beírod:

  =FSCD_Generator()

  A cella másolható, a munkafüzetet makróbarát munkafüzetként kell menteni.

  Ez a makró egy saját készítésű függvény, egy 8 jegyű "kódot" ad vissza, amiben nincs ismétlődő számjegy.

• #14365 Fire/SOUL/CD félisten bajor14 #14354

  Új Válasz 2012-07-17 17:10:42 #14365

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz bajor14 #14354 üzenetére

  Nem írtad, hogy pontosan miben nyilvánul meg, hogy "nem működik" a makró, de szvsz az lehet a háttérben, hogy egyszer sem fut le, mert az aktív munkalap N2 cellája( Cells(2,14) ) üres és egyből kilép a ciklusból.

• #14362 Fire/SOUL/CD félisten bugizozi #14360

  Új Válasz 2012-07-17 14:26:36 #14362

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz bugizozi #14360 üzenetére

  Igen, ezért kéretik leírni, hogy milyen verziójú az Excel...
  Excel 2003 - Definiált név módosítása vagy törlése

• #14361 Fire/SOUL/CD félisten pero19910606 #14359

  Új Válasz 2012-07-17 14:19:22 #14361

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz pero19910606 #14359 üzenetére

  Igen, így érthető, bár ennek fényében a "Valami ilyesmi igen, de így nem kell azon a gépen futni az exelnek a hibátlan megnyitáshoz amin dolgozom? " kérdésedre csak az lehet a helyes válasz, hogy:
  Hol fusson? Afrikában a batu olimpián, százméteres palackfafutó versenyen, csörgőkígyóval a nyakában, kiéhezett hiénacsapattal a potrohában nem tud futni az Excel.

  Szóval beszúrsz egy megjegyzést, megjegyzés keretén jobb egér/megjegyzés formázása/színek és vonalak fül/kitöltés csoport->szín lenyíló/kitöltési effektus/kép fül és kép kiválaszt.

  Ennek ez az eredménye: Cella fölé viszed az egérkurzort megjelenik, ha elviszed eltűnik.

  Nyilván 100-as nagyságrendű képnél ez eltart egy ideig manuálisan, kivéve bizonyos feltételek mellett. Pl: A1-től A100-ig kellene minden cellával ezt eljátszani, akkor egy mappába gyűjteni a 100 képet, azokat átnevezni sorszámozva, pl akarmi_0001.jpg, akarmi_0002.jpg stb stb.

  Így lehetne olyan makrót írni, ami A1 cellába beszúrna megjegyzést és az akarmi_0001.jpg használná, egészen A100-ig, ahol már az akarmi_0100.jpg lenne a megjegyzésben.

• #14357 Fire/SOUL/CD félisten pero19910606 #14356

  Új Válasz 2012-07-17 12:34:36 #14357

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz pero19910606 #14356 üzenetére

  Szívesen segítenék(segítenénk), de a korábbi hozzászólásod is zavaros volt a számomra, de a mostani hozzászólással teljes köd szállt az agyacskámra, halványlila gőzöm nincs, hogy mit is szeretnél.
  Talán valaki tudja értelmezni és tud segíteni.

• #14353 Fire/SOUL/CD félisten bugizozi #14350

  Új Válasz 2012-07-17 11:32:38 #14353

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz bugizozi #14350 üzenetére

  Az egyik (szvsz legegyszerűbb) kivitelezése ez.

  1. Névvel ellátott tartományokkal kell dolgozni. Itt a példában 3 tartomány van és lett elnevezve, C oszlopban a különböző autótípusok vannak felsorolva (C2-től), D oszlopban csak a Fiat típusok (D2-től), E oszlopban csak az Opel típusok (E2-től). Ha egy új autótípust vennél fel, akkor azt a D4-be kellene írni és F oszlopba, F2-től kellene felsorolni a csak az adott gyártó típusait és F2-től valameddig el kell nevezned a tartományt. Az egészben az a "trükk" (ami leegyszerűsíti az egész feladatot), hogy a különböző autótípusok nevei (Fiat, Opel), azok egyezzenek meg a tartománynevekkel, amit típusonként megadsz. Mindez jól látszik a linkelt képen.

  2. Ha az 1 pont rendben van, akkor már egyszerű a dolog
  # A2 érvényesítés és forrás
  # B2 érvényesítés és forrás

  pero19910606
  Valami ilyesmire gondolsz?

• #14351 Fire/SOUL/CD félisten Tepsifüles #14349

  Új Válasz 2012-07-17 10:15:53 #14351

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Tepsifüles #14349 üzenetére

  Ha nem ActiveX vezérlőről van szó, akkor ráállsz arra a cellára, "amiben" a legördülő listát látod, majd Adatok fül/Adateszközök csoport/Érvényesítés lenyíló/Érvényesítés és a megjelenő ablakban ott lesz a tartomány. Ha a tartománynak névvel ellátott tartomány van megadva, akkor azt a Képletek fül/Definiált nevek csoport/Névkezelő segítségével (is) tudod megnézni és szerkeszteni (ha kell).

  Ha ActiveX vezérlőről van szó(ComboBox), akkor jobb egér a vezérlőn/Tulajdonságok és a ListFillRange tulajdonságban van a tartomány.

• #14348 Fire/SOUL/CD félisten lacid90 #14347

  Új Válasz 2012-07-17 00:57:04 #14348

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lacid90 #14347 üzenetére

  Megnyitod Excel-el mindkét munkafüzetet. Amelyikből másolod az adatokat, annak a munkalapnak a Change eseményébe kell írni a kódot.

  Egy egyszerű példa: Adott 2 munkafüzet, Munkafüzet1 és Munkafüzet2 néven. Mindkettő meg van nyitva az Excel-el és a Munkafüzet1, Munka1 lapjának A1 cellájának módosításakor (és csak az A1 cella módosításakor) átmásolja az A1 cellát, a Munkafüzet2, Munka1 lapjának A1 cellájába.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1")) Is Nothing Then
  Workbooks("Munkafüzet2.xlsm").Sheets("Munka1").Range("A1") = Range("A1")
  End If
  End Sub

• #14346 Fire/SOUL/CD félisten pitman #14342

  Új Válasz 2012-07-17 00:01:05 #14346

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz pitman #14342 üzenetére

  Ezt csak makróval lehet.

  Amice

  Function FSCD_Generator() As Variant
  
  Dim NumberOfDigits As Integer, RNDRange As Integer, MyIndex As Integer
  Dim MyDigits As Variant, MyNumber As Variant
  MyDigits = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
  
  'Hány számjegyű legyen a generált szám
  '(10 számjegyűnél nem lehet több, mert akkor biztosan ismétlődik legalább 1 számjegy)
  
  NumberOfDigits = 8
  
  If NumberOfDigits < 1 Or NumberOfDigits > 10 Then
  FSCD_Generator = "A számjegyek száma 1 és 10 közé kell, hogy essen!"
  Exit Function
  End If
  
  RNDRange = UBound(MyDigits)
  MyNumber = ""
  For i = 0 To NumberOfDigits - 1
  MyIndex = WorksheetFunction.RandBetween(0, RNDRange)
  MyNumber = MyNumber + MyDigits(MyIndex)
  If MyIndex <> RNDRange Then
  For j = MyIndex To RNDRange - 1
  MyDigits(j) = MyDigits(j + 1)
  Next j
  End If
  RNDRange = RNDRange - 1
  Next i
  
  FSCD_Generator = MyNumber
  
  End Function

• #14336 Fire/SOUL/CD félisten lacid90 #14334

  Új Válasz 2012-07-15 21:07:04 #14336

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lacid90 #14334 üzenetére

  Lapvédelem engedélyezése jelszóval
  ActiveSheet.Protect Password:="FSCD"

  Jelszóval védett lapvédelem feloldása
  ActiveSheet.Unprotect Password:="FSCD"

• #14332 Fire/SOUL/CD félisten lacid90 #14331

  Új Válasz 2012-07-15 20:49:34 #14332

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lacid90 #14331 üzenetére

  Valószínűleg a munkafüzetben található makró(k) dolgoziz/dolgoznak olyan cellával, amelyeket levédtél. Ha ez a szitu, akkor ezt a "logikai buborékot" csak Te tudod feloldani, azaz át kell írni a makróban azokat a sorokat, amelyek védett cellával dolgoznak úgy, hogy a művelet idejére makróval feloldod, majd a művelet befejeztével makróval újra engedélyezed a védelmet/zárolást.

• #14315 Fire/SOUL/CD félisten bozsozso #14314

  Új Válasz 2012-07-14 20:13:19 #14315

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz bozsozso #14314 üzenetére

  Ez egy egyszerű példa, az elv benne van, majd a saját táblázataidhoz alakítod.

  

• #14313 Fire/SOUL/CD félisten bozsozso #14312

  Új Válasz 2012-07-14 18:47:25 #14313

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz bozsozso #14312 üzenetére

  Az FKERES függvénynek van egy 4. paramétere is, egy logikai érték(IGAZ vagy HAMIS) amit jól láthatóan nem használsz. Ez határozza meg, hogy pontos egyezéssel keressen avagy másképp.
  HAMIS esetén pontos egyezéssel keres, ha így nincs találat, akkor #HIÁNYZIK értéket adja.
  IGAZ esetén (vagy ha elhagyod 4. paramétert), akkor is pontos egyezéssel keres, de ha így nincs találat, akkor közelítő egyezéssel keres tovább és a keresési értékhez "legközelebbi" értékkel tér vissza.

  Leegyszerűsítve, használd így (a példádnál maradva):
  =FKERES(B2;'[1.táblázat.xls]Munka1'!$B$2:$F$83;2;HAMIS)

• #14270 Fire/SOUL/CD félisten lacid90 #14269

  Új Válasz 2012-07-07 09:49:01 #14270

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lacid90 #14269 üzenetére

  Ha úgy érted, hogy az újonnan beszúrt sor és B oszlop metszéspontjába kell a csillag, akkor

  Private Sub CommandButton1_Click()
  
  ActiveCell.Offset(1).EntireRow.Insert
  Range("B" & ActiveCell.Row + 1) = "*"
  
  End Sub

  Ha az aktuális cella sorának és B oszlopának metszéspontjába kell a csillag, akkor töröld ki a makróból a + 1-et.

• #14242 Fire/SOUL/CD félisten vzsryl #14241

  Új Válasz 2012-07-04 11:17:06 #14242

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz vzsryl #14241 üzenetére

  Akkor biztosan nem Excel 2003 limitáció okozza, hanem "csak véres a torka" a rendszernek.

• #14240 Fire/SOUL/CD félisten vzsryl #14239

  Új Válasz 2012-07-04 10:08:00 #14240

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz vzsryl #14239 üzenetére

  Ha valóban az Excel 2003 limitációjából adódóan van jelen ez a jelenség, akkor csak annyit lehet tenni, hogy 2007/2010 Excelbe betölteni ezt a méretes xls-t, majd xlsx-ként menteni, majd feltelepíteni azt a csomagot, amit linkeltem és úgy (elméletileg) az Excel 2003 is tudja kezelni. Másik alternatív lehetőség, hogy megpróbálni LibreOffice-al megnyitni az eredeti xls-t, hátha nincs olyan nagyon speciális formázás vagy egyéb, ami miatt hibásan vagy egyáltalán ne tudná a Libre kezelni. (nyilván ha makrót is tartalmaz, az már kizáró ok)

• #14238 Fire/SOUL/CD félisten vzsryl #14237

  Új Válasz 2012-07-04 09:42:27 #14238

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz vzsryl #14237 üzenetére

  Túl méretes az a fájl, valószínűleg az Excel 2003-ban érvényes valamelyik limitációt átlépte a munkafüzet tartalma. Hogy melyiket, azt nem lehet megmondani, pl lehet, hogy több mint 65536 sor van benne (pl korábban(amikor még meg lehetett nyitni) nem volt ennyi csak bele "tettél" bele többet stb stb)
  Excel(2003) specifications and limits

  Szóval egy 2007-el vagy újabbal kellene megnyitni, legalábbis ha szerkeszteni is kellene, akkor mindenképp vagy ezzel is megpróbálkozhatsz: [link]

• #14227 Fire/SOUL/CD félisten desirehd #14225

  Új Válasz 2012-07-03 12:21:57 #14227

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz desirehd #14225 üzenetére

  Korábbi képletben az A:A és B:B teljes oszlopot jelöli, persze hogy nem működik a képlet, egy ilyen felépítésű munkalapon, ahogy a képeden látszik(van fejléce, nem a teljes oszlop kell, stb), nyilván tartományt kell használni.

  (Az már csak hab a tortán, hogy a képeden nem látok fizetést)

• #14224 Fire/SOUL/CD félisten desirehd #14222

  Új Válasz 2012-07-03 11:46:40 #14224

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz desirehd #14222 üzenetére

  Pl A oszlopban a kor, B oszlopban a fizetések, és a 40 évesek fizetésének átlagára van szükséged, akkor

  =ÁTLAGHA(A:A;"=40";B:B)

  dobri320
  makróban nem lehet a magyar függvény nevekkel hivatkozni, azaz a kódodban a SZUM helyett SUM kell. A másik, hogy a .Value helyett a .Formula-t használd.

• #14218 Fire/SOUL/CD félisten tezse66 #14215

  Új Válasz 2012-07-02 11:28:41 #14218

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz tezse66 #14215 üzenetére

  Remélem erre gondolsz. Az általad választott oszlop 2. sorának cellájába (pl K oszlop esetén K2-be, W oszlop esetén W2-be stb stb) szúrd be ezt a kódot.

  =HA(F2<>"";HIPERHIVATKOZÁS("http://www.valami.hu/" & B2);"Cella üres")

• #14213 Fire/SOUL/CD félisten joefasalasso #14210

  Új Válasz 2012-07-01 10:21:08 #14213

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz joefasalasso #14210 üzenetére

  Ha minden sorban ugyanazon 2 oszlophoz tartozó cellát kell összeszorozni, az egyszerűen kivitelezhető. Pl A-tól F oszlopban vannak az érintett sorok, akkor a G1-es cellába beírod, hogy =A1*B1 és egérrel lemásolod. (Természetesen igényednek megfelelően módosítod a képletet)

  psg5
  Szívesen.

• #14208 Fire/SOUL/CD félisten psg5 #14205

  Új Válasz 2012-06-30 15:00:38 #14208

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz psg5 #14205 üzenetére

  "Darabteli vagy sima Sum fügvénnyel érdemesebb megoldani? Mi a fő különbség?"
  Ilyen infókhoz használd az Excel súgóját, vagy Google-t, mert alapinformációk.
  SZUM vs. DARABTELI

  "Ha egy excelben egy fülön megcsináltam minden (képletek benn) akkor hogyan tudom azt másik 12 fülre másolni, hogy a hivatkozások is megfelelően változzanak?"
  Átmásolod a képletet a másik munkalapokra majd az adott munkalapon CTRL+H (csere) és a Munkafüzet1-et lecseréled Munkafüzet2-re

  "Állítólag csak a excel 2007-ben lehet megoldani, hogy csukott excelekből is nyerjen adatokat, régebbi verziónál csak 255 karakterig megy ez?"
  Erről nem tudok, majd ha benéz Delila_1, Ő talán tud rá mit mondani, mert Ő még használ 2003-at. (ha nem tévedek)

  Ez a "255-ig megy ez" nem teljesen világos... (Ha Windows rendszerben a maximális karakterek száma a fájlnévben-re gondolsz, az nem Office függő)

• #14201 Fire/SOUL/CD félisten psg5 #14200

  Új Válasz 2012-06-29 20:44:50 #14201

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz psg5 #14200 üzenetére

  2 kép, katt rá és akkor minden látszik.

• #14196 Fire/SOUL/CD félisten psg5 #14195

  Új Válasz 2012-06-29 19:15:05 #14196

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz psg5 #14195 üzenetére

  1. Először is minden munkafüzet legyen abban a könyvtárban, ahol használni szeretnéd (ne utólag kerüljön át másik mappába)
  2. Nyisd meg/hozd létre azt a munkafüzetet, amiben a másik 3 munkafüzet adatait szeretnéd egyesíteni
  3. Nyisd meg a 3 munkafüzetet is
  4. Hozd létre a szükséges, működő képleteket és zárd be a 3 munkafüzetet

  Megfigyelheted, hogy amíg a 3 munkafüzet meg volt nyitva, addig az Excel a képletekben csak a munkafüzet neveit jelölte, az útvonalukat nem. Viszont ha bezárod a 3 munkafüzetet, akkor az Excel automatikusan kibővíti a képletekben az útvonallal is.

  Így mentsd el az összesítő munkafüzetet.

• #14194 Fire/SOUL/CD félisten psg5 #14193

  Új Válasz 2012-06-29 19:03:02 #14194

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz psg5 #14193 üzenetére

  Ha teljes útvonalat adsz meg, akkor annak a munkafüzetnek nem kell megnyitva lennie.

• #14192 Fire/SOUL/CD félisten psg5 #14191

  Új Válasz 2012-06-29 18:43:10 #14192

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz psg5 #14191 üzenetére

  Az mindegy milyen függvény, útvonallal együtt megadható az XLS. Például:
  =SZUM('C:\Users\Fire\Documents\[Munkafüzet1.xlsx]Munka1'!$A$1:$A$4)

• #14186 Fire/SOUL/CD félisten psg5 #14182

  Új Válasz 2012-06-29 14:17:57 #14186

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz psg5 #14182 üzenetére

  "Azt kellene megoldani, hogy a három másolat adatait egybe, összeadva rakni, ugyanolyan struktúrába, ugyanúgy mindegyik fülön megjelenjenek."
  Mármint egy 4. munkafüzetbe? (pl van munkafüzet1.xls/munkafüzet2.xls/munkafüzet3.xls és egy pl munkafüzet4.xls-ben összesítse az adatokat?)

• #14151 Fire/SOUL/CD félisten Metathrone #14150

  Új Válasz 2012-06-27 20:26:30 #14151

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Metathrone #14150 üzenetére

  A példád alapján írd le, ha FKERES lenne a függvény, akkor mit keresnél és milyen tartományban.

• #14148 Fire/SOUL/CD félisten bozsozso #14147

  Új Válasz 2012-06-27 11:11:23 #14148

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz bozsozso #14147 üzenetére

  Public Sub FSCD_Summary_Bozsozso()
  
  Dim MyCurDate As Range
  Dim MySrcStartCell As Range, MyDestStarCell As Range
  Dim MySrcWS As Worksheet, MyDestWS As Worksheet
  Dim MyFXs As WorksheetFunction
  
  Set MyFXs = Application.WorksheetFunction
  'MUNKALAP neve, amely a jelenléti ívet tartalmazza
  Set MySrcWS = Worksheets("Jelenléti")
  'MUNKALAP neve, amelyen az összesítés található
  Set MyDestWS = Worksheets("Összesítő")
  'A jelenléti munkalapon találhat IDŐCELLA címe
  Set MyCurDate = MySrcWS.Range("$A$2")
  'Jelenléti munkalapon ettől a cellától kezdődnek az adatok
  Set MySrcStartCell = MySrcWS.Range("A9")
  'Összesítő munkalapon ettől a cellától kell bemásolni az adatokat
  Set MyDestStarCell = MyDestWS.Range("A1")
  
  j = 0
  For i = 0 To Day(MyFXs.EoMonth(MyCurDate, 0)) - 1
  If Not IsEmpty(MySrcStartCell.Offset(i, 13)) Then
  MyDestStarCell.Offset(j, 0).NumberFormat = "yyyy-mm-dd"
  MyDestStarCell.Offset(j, 0) = Format(MyCurDate, "yyyy-mm-") & Format(i + 1, "00")
  MyDestStarCell.Offset(j, 1) = MySrcStartCell.Offset(i, 13)
  MyDestStarCell.Offset(j, 4).NumberFormat = "[h]:mm"
  MyDestStarCell.Offset(j, 4) = Format(MySrcStartCell.Offset(i, 2), "0:") & Format(MySrcStartCell.Offset(i, 3), "00")
  MyDestStarCell.Offset(j, 5).NumberFormat = "[h]:mm"
  MyDestStarCell.Offset(j, 5) = Format(MySrcStartCell.Offset(i, 4), "0:") & Format(MySrcStartCell.Offset(i, 5), "00")
  MyDestStarCell.Offset(j, 6) = MySrcStartCell.Offset(i, 11)
  j = j + 1
  End If
  Next i
  
  End Sub

  Az összesítő munkalap tartalmát nem törli a makró, mert a korábbi kép alapján nem tudhattam, hogy az összesítő munkalapon vannak-e még más adatok is, ezért a makró futtatása előtt manuálisan töröld az összesítő munkalapon lévő adatokat.

• #14146 Fire/SOUL/CD félisten bozsozso #14145

  Új Válasz 2012-06-26 22:18:56 #14146

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz bozsozso #14145 üzenetére

  Remélhetőleg jól értettem és meg is felel (makró nélkül). Maradva a korábbi képednél, az alapján vannak a képletekben a hivatkozások. Ha nem jó cellára lenne a hivatkozás, akkor majd módosítod, ahogy megfelel.

  Jelenléti | Összesítő

  Összesítő munkalap A9 képlete
  =SZÖVEG(Jelenléti!$A$2;"éééé-hh-")&CSERE(Jelenléti!A24;HOSSZ(Jelenléti!A24);1;"")

  Összesítő munkalap E9 képlete
  =SZÖVEG(Jelenléti!C24;"?0") &":" & SZÖVEG(Jelenléti!D24;"00")

  Összesítő munkalap F9 képlete
  =SZÖVEG(Jelenléti!E24;"?0") &":" & SZÖVEG(Jelenléti!F24;"00")

  Összesítő munkalap G9 képlete
  =Jelenléti!L24

  Az összes képlet másolható egérrel, ameddig szükséges

  Nem tudom, hogy egyre gondoltunk-e, majd megnézed és írsz, ha valami nem kóser.

• #14144 Fire/SOUL/CD félisten bozsozso #14142

  Új Válasz 2012-06-26 20:44:12 #14144

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz bozsozso #14142 üzenetére

  Ez azért nagy segítség, mert szvsz a korábbi leírásod alapján ilyen felépítésű munkalapra nem gondoltam volna.

  Ennek kivitelezéséhez alapvetően nem kellene makró, csak akkor ha a jelenléti munkalapban fontosak az üres sorok és az alsó munkalapban meg ne szerepeljenek.

  Ha a jelenléti munkalapból mellőzhetőek az üres sorok vagy az alsó munkalapba meg bekerülhetnek az üres sorok, akkor nincs szükség makróra.

  Akárhogy is, egy infóra viszont mindenképp szükség van, nevezetesen hogy melyik év, melyik hónapjáról van épp szó. (mert ezt nem látom a képen, csak azt, hogy a jelenléti munkalap A oszlopa funkcionál a napok jelzésére)

• #14141 Fire/SOUL/CD félisten bozsozso #14140

  Új Válasz 2012-06-26 20:02:22 #14141

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz bozsozso #14140 üzenetére

  Ezt jó lenne, ha pár képpel illusztrálnád, mert az nagy segítség lenne. Nem kell minden adatról kép, csak az egyik munkalap pár soráról, a másik munkalap pár soráról és hogy milyen legyen (megfelelő cellába manuálisan beírod, hogy hogyan kellene kinézni a dolognak)

• #14139 Fire/SOUL/CD félisten varsam #14138

  Új Válasz 2012-06-26 17:57:53 #14139

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz varsam #14138 üzenetére

  Feltételes formázás képletében (is) fontos a $ jelek helyes használata, ez okozza problémát esetedben is.

  =MIN($F$4:$H$4) = F$4

• #14137 Fire/SOUL/CD félisten varsam #14136

  Új Válasz 2012-06-26 17:18:51 #14137

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz varsam #14136 üzenetére

  Feltételes formázással tudod megvalósítani.
  Az itt linkelt képen egy olyan szabályt láthatsz, amely az A oszlopban jelöli meg piros háttérrel a legkisebb értéket. [link]
  Ez alapján a saját igényednek megfelelően tudod módosítani.

• #14134 Fire/SOUL/CD félisten Sziszmisz #14133

  Új Válasz 2012-06-26 13:05:20 #14134

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Sziszmisz #14133 üzenetére

  W1 cella képlete

  =FKERES(V1;AA:AC;3)

  Ezt követően W1 cellát egérrel lemásolod ameddig szükséges.
  (természetesen a W oszlopot is Pénznemre kell formázni, AC oszlopban használt formátumra)

• #14127 Fire/SOUL/CD félisten psg5 #14126

  Új Válasz 2012-06-25 14:28:00 #14127

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz psg5 #14126 üzenetére

  Ráállsz a cellára, ami legördülőként üzemel és újra az érvényesítést választod és ott lesz a tartomány.

  Ilyen esetekben érdemesebb lehet a tartománynak nevet adni és az érvényesítésnél tartománynevet megadni a tartománynak. Ennek az az előnye, hogy a tartományneveket nyilvántartja az Excel, ki lehet listázni és módosítani is lehet rajta, ezáltal minden objektum, ami az adott tartománynevet használja tartományként, annak automatikusan megváltozik a tartománya. (De sok tartomány van ebben a mondatban)

  Gyakorlatban, miről is írtam:
  1. Tartomány elnevezése
  2. Érvényesítés->tartomány a tartománynév
  3. Névkezelő (képletek fül/Definiált nevek csoport/Névkezelő)
  4. Az 1. pontban létrehozott tartománynév tartományának módosítása

• #14125 Fire/SOUL/CD félisten psg5 #14124

  Új Válasz 2012-06-25 13:57:38 #14125

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz psg5 #14124 üzenetére

  Ki lehet jelölni több cellát is és azokról eltávolítani az érvényesítést, ugyanígy több cellához is lehet azonos érvényesítést is hozzáadni, csak itt kérdéses, hogy a legördülők mindegyike ugyanazt a tartományt használja-e...

• #14123 Fire/SOUL/CD félisten psg5 #14122

  Új Válasz 2012-06-25 12:55:58 #14123

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz psg5 #14122 üzenetére

  Töröld és hozd létre újra a legördülőlistát, az a legegyszerűbb, gyorsan megvan.

• #14120 Fire/SOUL/CD félisten psg5 #14119

  Új Válasz 2012-06-25 12:20:42 #14120

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz psg5 #14119 üzenetére

  =A1 & " " & B1 & " " & C1 & " " & D1 & " " & E1

  A kívánt cellába beírod ezt a képletet(saját igényeid szerint módosítva) és egérrel lemásolod, ameddig szükséges.

• #14118 Fire/SOUL/CD félisten kisspepe #14116

  Új Válasz 2012-06-25 11:59:13 #14118

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz kisspepe #14116 üzenetére

  Pl SZORZATÖSSZEG fügvénnyel

  Alapképlet DARABHATÖBB függvénnyel

  =DARABHATÖBB(A1:A10;"d";B1:B10;3)

  Megfelelője SZORZATÖSSZEG függvénnyel

  =SZORZATÖSSZEG(1*(A1:A10="d");1*(B1:B10=3))

• #13944 Fire/SOUL/CD félisten pimmi #13943

  Új Válasz 2012-06-03 13:21:18 #13944

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz pimmi #13943 üzenetére

  Ha fixen a C2-re szeretnél hivatkozni, akkor =SZUM(B37*$C$2)
  Bővebben.

• #13941 Fire/SOUL/CD félisten AttyVin #13940

  Új Válasz 2012-06-03 09:53:46 #13941

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz AttyVin #13940 üzenetére

  =HA(ÉS(0<J15;J15<4;0<I15;I15<4);"Rendben";"Hiba")

  UI: Ha egy hozzászólásban képletet vagy makrót szúrsz be, akkor használd a programkód gombot, akkor nem lesznek smiley-k a kódban.

• #13939 Fire/SOUL/CD félisten AttyVin #13937

  Új Válasz 2012-06-02 21:36:07 #13939

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz AttyVin #13937 üzenetére

  Szövegesen megtudnád fogalmazni, hogy mit is szeretnél kivitelezni? (Mert így nem egyértelmű, hogy melyik feltétel, melyik ágába(ha igaz a feltétel, vagy nem) is kellene a RENDBEN és a HIBA, arról nem is beszélve, hogy 3 ág van...)

• #13935 Fire/SOUL/CD félisten csferke #13934

  Új Válasz 2012-06-02 19:39:19 #13935

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz csferke #13934 üzenetére

  =HA(ÓRA(A3)<8;NAP(A3);HA(ÉS(ÓRA(A3)>=8;ÓRA(A3)<=12);NAP(A3)+0,5;NAP(A3)+1))

  Angol Excel-ben

  =IF(HOUR(A3)<8,DAY(A3),IF(AND(HOUR(A3)>=8,HOUR(A3)<=12),DAY(A3)+0.5,DAY(A3)+1))

• #13933 Fire/SOUL/CD félisten csferke #13932

  Új Válasz 2012-06-02 14:29:48 #13933

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz csferke #13932 üzenetére

  Remélem jól értettem, azaz az A3-ban lévő napok számához kell hozzáadni 0,5-t vagy 1-et, attól függően, hogy A1 és A2 dátum közt eltelt hónapok száma 8 és 12 közé esik avagy 12-nél több...

  Ha jól értettem, akkor A4 képlete

  =HA(DÁTUMTÓLIG(A1;A2;"m")<8;A3;HA(ÉS(DÁTUMTÓLIG(A1;A2;"m")>=8;DÁTUMTÓLIG(A1;A2;"m")<12);A3+0,5;A3+1))

• #13930 Fire/SOUL/CD félisten hallgat #13929

  Új Válasz 2012-06-01 18:38:31 #13930

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz hallgat #13929 üzenetére

  Sheets("Munka1").Range("B1:T1").Copy
  Sheets("Munka2").Range("L2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=True
  
  
  usor = Sheets("Munka2").Range("A1").End(xlDown).Row
  
  Sheets("Munka2").Activate
  Sheets("Munka2").Range("L2:L20").Copy
  Sheets("Munka2").Range("L21:" & "L" & usor).Select
  ActiveSheet.Paste
  
  Application.CutCopyMode = False
  usor = Sheets("Munka2").Range("A1").End(xlDown).Row
  
  Sheets("Munka2").Range("L" & usor).Select
  Dim i As Integer
  For i = usor To 2 Step -1
  If IsEmpty(Sheets("Munka2").Cells(i, 14)) Or (Sheets("Munka2").Cells(i, 14)) = 0 Then
  Sheets("Munka2").Rows(i).Delete
  End If
  Next i

• #13928 Fire/SOUL/CD félisten hallgat #13927

  Új Válasz 2012-06-01 17:37:34 #13928

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz hallgat #13927 üzenetére

  Ha megoldható, tedd fel valahova a munkafüzetet, ahonnan letölthetem, akkor megnézem. Így én is csak csalamádét látok, töredékét a makró(k)nak.

• #13926 Fire/SOUL/CD félisten hallgat #13925

  Új Válasz 2012-06-01 17:17:48 #13926

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz hallgat #13925 üzenetére

  Ezen "makró-töredék" elé biggyesz be ezt

  Sheets("Munka2").Select

• #13924 Fire/SOUL/CD félisten hallgat #13923

  Új Válasz 2012-06-01 16:47:47 #13924

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz hallgat #13923 üzenetére

  Feltétlenül makró kell hozzá? Mert ha nem, akkor csak leszűröd a listát, hogy csak a 0 és üres sorokat szűrje, majd egérrel kijelölöd a szűrt sorokat, jobb egér/Sor törlése.

• #13921 Fire/SOUL/CD félisten Pityke78 #13920

  Új Válasz 2012-06-01 09:14:52 #13921

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Pityke78 #13920 üzenetére

  Keresés és kijelölés lenyíló/Objektumok kijelölése Bővebben

• #13916 Fire/SOUL/CD félisten pjtr #13912

  Új Válasz 2012-05-31 15:21:59 #13916

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz pjtr #13912 üzenetére

  "Valahogy úgy gondoltam, hogy behelyettesíti a cellákba pl 68/H -->2,1, de úgy, hogy a 68/H maradjon-látszodjon a sorban."
  68/H esetén lehet számolni 2,1-el, FKERES() függvény lehet segítségűl hívni. Nekem viszont az nem világos, hogy a B1/C1/D1/E1/F1 cellák mi alapján tartalmazzák azt, amit?

• #13903 Fire/SOUL/CD félisten Sziszmisz #13902

  Új Válasz 2012-05-29 16:44:40 #13903

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Sziszmisz #13902 üzenetére

  =HA(SZÁM(A1);"Szám";"Nem szám")

• #13866 Fire/SOUL/CD félisten VANESSZA1 #13864

  Új Válasz 2012-05-27 13:05:16 #13866

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz VANESSZA1 #13864 üzenetére

  F9-t nyomsz.

• #13862 Fire/SOUL/CD félisten thee #13861

  Új Válasz 2012-05-27 12:48:42 #13862

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz thee #13861 üzenetére

  Nem tudom letölteni, a lassú letöltés gombra kattintás után, azt írja nem találja a megadott fájlt...

• #13860 Fire/SOUL/CD félisten VANESSZA1 #13859

  Új Válasz 2012-05-27 12:31:31 #13860

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz VANESSZA1 #13859 üzenetére

  Azt nem tudom, hogy miért jelenik meg Nálad a #NÉV, de végül is mindegy, mert thee megoldása (segítőszándéka ellenére) sajnos nem kezeli le, hogy 2x (vagy többször) ne fordulhasson elő ugyanaz a szám.
  Nem kellett sokszor újraszámoltatni, hogy előjöjjön a hiba: 2x "húzta ki" a 20-as számot

  Makró nélkül annyit lehet tenni, hogy E3/F3/G3/H3/I3 cellákba az alábbi képlet kerüljön

  =VÉLETLEN.KÖZÖTT($B$3;$B$92)

  majd ezt követően pl a J3 cellába meg ez (ez ellenőrzi, hogy csak 1x lehessen 1 szám)

  =HA(DARABTELI($E$3:$I$3;$E$3)+DARABTELI($E$3:$I$3;$F$3)+DARABTELI($E$3:$I$3;$G$3)+DARABTELI($E$3:$I$3;$H$3)+DARABTELI($E$3:$I$3;$I$3)=5;"Rendben, 5 különböző szám";"Egyik szám többször fordul elő, nyomjon F9-t!")

• #13848 Fire/SOUL/CD félisten terencehill #13845

  Új Válasz 2012-05-26 19:57:58 #13848

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz terencehill #13845 üzenetére

  Áhhh... Bocsesz, hibakezeléssel szórakoztam, aztán elbaszarintottam a dolgot, azért olyan hosszú a D2 képletet, ráadásul tömbképlet is felesleges....

  Szóval D2-be

  =HA(C2="";"";SZUMHA($A$2:$A$7;C2;$B$2:$B$7))

  Ezt meg lemásolod, ameddig C oszlopban vannak adatok (de addig is lemásolhatod, ameddig A oszlopban vannak adatok), mindegy.

  Még egyszer elnézést...

• #13844 Fire/SOUL/CD félisten terencehill #13843

  Új Válasz 2012-05-26 18:24:33 #13844

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz terencehill #13843 üzenetére

  1. Ne beírd, hanem másold be a PH!-s hozzászólásomból a képletet (egyszerűbb is, meg úgy legalább nem lehet elhibázni a dolgot, főleg ilyen hosszabb/összetettebb képlet esetén)
  2. A CTRL+SHIFT+ENTER-t nem használtad(csak így lehet tömbképletet bevinni), mert a cella képlete "kacsacsőrű" zárójelek közé kell, hogy kerüljön, és Nálad jól látszik képen, hogy ez nem történt meg.

  Lépésről-lépésre: A korábbi hozzászólásomban egérrel kijelölöd a C2 cella képletét, jobb egér/másol, Excel-ben C2 cellára állsz, megnyomod az F2-t, jobb egér/beillesztés és CTRL+SHIFT+ENTER. Ugyanezt eljátszód a D2 cellába kerülő képlettel is.

• #13842 Fire/SOUL/CD félisten terencehill #13839

  Új Válasz 2012-05-26 08:42:20 #13842

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz terencehill #13839 üzenetére

  C2 cellába

  =HAHIBA(INDEX($A$2:$A$4;HOL.VAN(0;DARABTELI($C$1:C1; $A$2:$A$4);0));"")

  majd CTRL+SHIFT+ENTER és lemásolod a C2 cellát, amíg A és B oszlopban vannak adatok

  D2 cellába

  =SZUM(HA(HA(HOL.VAN($A$2:$A$4; $A$2:$A$4; 0)=(SOR($A$2:$A$4)-SOR(A2)+1); (SOR($A$2:$A$4)-SOR(A2)+1); 0)<>0; $B$2:$B$4; ""))

  majd CTRL+SHIFT+ENTER és lemásolod a D2 cellát, amíg C oszlopban vannak adatok

  Mindez képben: [link]

• #13837 Fire/SOUL/CD félisten cirkus #13836

  Új Válasz 2012-05-25 14:49:17 #13837

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz cirkus #13836 üzenetére

  Kijelölöd az oszlopt, kivágod és a másik elé beilleszted.

• #13828 Fire/SOUL/CD félisten lacasd #13820

  Új Válasz 2012-05-24 19:48:29 #13828

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lacasd #13820 üzenetére

  Ja és egy fontos kérdés lemaradt: A GAL és a GM4 fájlokon belül, melyik munkalapon találhatók a másolandó cellák? (Mi a neve annak a munkalapnak pl Munka1, Munka2, Munka3 stb stb)
  Bár inkább úgy írom, hogy lehessen módosítani, akkor mindegy is ez a kérdés...

• #13827 Fire/SOUL/CD félisten lacasd #13820

  Új Válasz 2012-05-24 19:28:44 #13827

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lacasd #13820 üzenetére

  Ezt a feladatot 2 módszerrel lehet kivitelezni, az egyik, a mappabejárással(végigszaladni a mappaszerkezeten az adott fájlokat megnyitni, majd átmásolni a megfeleő cellákat9, a másik módszer meg az, ha a makró külső cellahívásokat generálja le. Ez utóbbi az egyszerűbb, én most ezt választom inkább, meglátjuk bírja-e a géped (hisz többszáz külső hivatkozást fog elhelyezni az adatok.xlsx-be)

  Viszont lenne pár dolog
  1. "2011okt, 2011nov, 2011dec, ..., 2012maj"
  A 2012maj arról lemaradt az ékezet, vagy tényleg ez a neve a mappának?
  Kérdem azért, mert az Excel rövid formátumban így tárolja a hónapokat: [link]
  (Akkor még ehhez is kell külön kód, hogy átalakítsa)

  2. "Ugyanakkor 2012.01.01-től a GAL filenvű fileokból az L5,L6,L7,L8,L9 cellákat az adatok.xlsx H,I,J,K,L oszlopába kell másolni."
  Ez úgy értendő, hogy csak és kizárólag 2012 évi dátumok esetén kellenek a plusz cellák, avagy jövőre is? (Feltételezem H5/I5/J5/K5/L5 cellák értendők itt is)

  3. melyik nap legyen az utolsó nap, az épp aktuális nap, vagy az egyel előtti?
  (Lehet, hogy aznap még nincsenek kész a GM4 és GAL fájlok)

• #13818 Fire/SOUL/CD félisten gyga #13815

  Új Válasz 2012-05-24 10:22:35 #13818

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz gyga #13815 üzenetére

  Ha valóban üres és nincs rá szükség a personal.xlsb, akkor először az adott munkafüzet-ben töröld a makrók közül, mentsd a munkafüzetet, majd fájlkeresővel keress rá és egyszerűen töröld le.

  lacasd
  Végül is kivitelezhető, de ehhez idő kell, mert összetett a dolog. Mondjuk biztos meg van az oka, hogy miért kell ennyire szétszabdalni (ennyi külön fájlban tárolni) dolgokat.
  Ha a GAL és GM4 felépítése azonos, akkor rég le kellett volna egyszerűsíteni a dolgot, ugyanis akkor 1 darab fájlban elférne minden, abból meg kimutatással szinte bármi elkészíthető.

• #13816 Fire/SOUL/CD félisten concret_hp #13811

  Új Válasz 2012-05-24 09:57:29 #13816

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz concret_hp #13811 üzenetére

  A makró

  Public Sub FSCD_concret_hp()
  
  Dim MySum As Long
  Dim MyRange_1 As Range
  Dim MyRange_2 As Range
  Dim MyRange_3 As Range
  
  Set MyRange_1 = Range("A1")
  Set MyRange_2 = Range("B1")
  Set MyRange_3 = Range("C1")
  
  If MyRange_1.Offset(MyRange_1.End(xlDown).Row - 1, 0) Then
  MsgBox ("A(z) " & MyRange_1.Address & " oszlop utolsó cellájának értéke 0 kell, hogy legyen!")
  Exit Sub
  End If
  
  MySum = 0
  For i = 0 To MyRange_1.End(xlDown).Row - 1
  If MyRange_1.Offset(i, 0) Then
  MySum = MySum + MyRange_2.Offset(i, 0)
  MyRange_3.Offset(i, 0) = ""
  Else
  MySum = MySum + MyRange_2.Offset(i, 0)
  MyRange_3.Offset(i, 0) = MySum
  MySum = 0
  End If
  Next i
  
  End Sub

  A makró eredménye [link]

  Megjegyzés
  Az oszlop, amelyek a 0-kat is tartalmazzák nem tartalmazhat üres cellát.

• #13802 Fire/SOUL/CD félisten concret_hp #13801

  Új Válasz 2012-05-22 22:24:52 #13802

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz concret_hp #13801 üzenetére

  INDIREKT()
  Példa

• #13798 Fire/SOUL/CD félisten LonGleY #13797

  Új Válasz 2012-05-22 17:41:55 #13798

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz LonGleY #13797 üzenetére

  Nem kell ehhez külön program, csak egy makró, amit akkor futtatsz le manuálisan, miután kijelölted pl az egész munkalapot vagy annak egy részét stb.

  Sub TRIM_em_ALL()
  
  Dim MyCells As Range
  
  For Each MyCells In Selection.Cells
  MyCells = trim(MyCells)
  Next MyCells
  
  End Sub

  Remélem működik, nem vagyok Excel közelben éppen...

• #13788 Fire/SOUL/CD félisten LonGleY #13787

  Új Válasz 2012-05-21 18:28:40 #13788

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz LonGleY #13787 üzenetére

  Igen, ebben teljesen igazad van, volt már ebből gond itt a topikban, olyan értelemben, hogy készítettem valakinek egy makrót, amiben ismétlődő karaktereket kellett lecserélni, köztük szóközöket is, pl 2/3/4 szóközt 1 szóközre és amikor FF-el illesztettem be a makrokódot, akkor az FF az egymás utáni szóközöket lecserélte " "-re, ami nyilván a makró hibás működéséhez vezetett. Ez már régebben volt, de azóta ügyelek arra, hogy makrót csak Dragon-ból illesszek be.

  Az viszont "gond", hogy Nálad nem csak a böngészőbe csapódik hozzá a plusz space, hanem bármibe beillesztve, mert nálam nem, nálam csak a Dragon esetén, más alkalmazásoknál nem. Természetesen egyszerűbb ha erre a célra munkába fogod a FireFox-ot...

• #13786 Fire/SOUL/CD félisten LonGleY #13785

  Új Válasz 2012-05-21 17:32:06 #13786

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz LonGleY #13785 üzenetére

  Igen, az van, ami várható volt, csak a drgonba illsztve dobja hozzá a space-t, IE/FF-nél nem.
  A chrome topikban is érdeklődtem, ezt a pár hsz-t olvasd át, mert ott a Skype-t is megemlítették, mint lehetséges "bűnöst", hátha érintett vagy a dologban. Nálam nincs (és nem is volt soha) Skype, csak a Dragonba beillesztve van a jelenség, wordpad vagy word stb esetén nincs.

• #13784 Fire/SOUL/CD félisten LonGleY #13783

  Új Válasz 2012-05-21 17:03:56 #13784

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz LonGleY #13783 üzenetére

  "Tán az számítana, hogy a gépemen megtalálható a Chrome, még ha nincs is megnyitva?.."
  Ilyenről nem tudok. Ha van rá lehetőség, akkor küld el a mail-emre a táblázatot, elég ha csak egy oszlop marad benne, csak az olyan legyen, amiben gond van az adatokkal és akkor ránézek.

• #13778 Fire/SOUL/CD félisten LonGleY #13777

  Új Válasz 2012-05-21 07:46:10 #13778

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz LonGleY #13777 üzenetére

  Ez a jelenség nem az Excel hibája, hanem a Chrome vagy Chrome motort használó (pl Comodo Dragon stb) böngészőké. Firefox vagy IE alatt nincs ilyen jelenség.

• #13773 Fire/SOUL/CD félisten Virag.h #13772

  Új Válasz 2012-05-20 13:18:36 #13773

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Virag.h #13772 üzenetére

  De, ékezetesek azok, csak nem mindegy, hogy a nézőkében (amivel belenéztél a txt fájlba) ANSI avagy ASCII karakterkódolást használsz.

• #13771 Fire/SOUL/CD félisten Virag.h #13770

  Új Válasz 2012-05-20 12:55:45 #13771

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Virag.h #13770 üzenetére

  Parancssorból megoldható, indítsd a parancssort (start, keresőbe cmd és enter, XP esetén start/futtatás cmd és enter), majd add ki az alábbi parancsot

  dir c:\users /AD /B /S >d:\dirlist.txt

  Ez a parancs a c:\users mappában található összes mappát és almappát kimenti a d:\dirlist.txt fájlba, amit utána megnyithatsz az Excel-el. Természetesen a saját igényed szerint módosítsd, hogy melyik mappáról és hova/milyen nevű fájlba mentse a mappalistát. a DIR parancsról a DIR /? segítségével kaphatsz több infót.