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

• #16753 Z-Tom-ee csendes tag Z-Tom-ee #16748

  Új Válasz 2013-02-16 09:10:57 #16753

  Ú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

  

  Z-Tom-ee

  csendes tag

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

  Nagyon köszönöm a segítséget, mindkét megoldás tökéletes.

• #16750 Excelbarat tag Z-Tom-ee #16748

  Új Válasz 2013-02-15 21:23:35 #16750

  Ú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

  

  Excelbarat

  tag

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

  C2-be(akárhova mehet):
  =AB.DARAB2(A1:B100;2;E1:E2)

  Egy kis segítség:
  A1: B100 ez az A és B oszlop ahol az értékeid vannak a 100-at cseréld le az utolsó sorodra
  Ami fontos hogy az első sorban remélhetőleg fejlécek vannak legyen monjuk az A1 es cella: Betűk
  akkor az E1-ben Szintén ez szerepel alatta E2-ben pedig A
  Ezért van kritériumként megadva az E1:E2 (de fontos hogy a fejléc van E1-ben és a kritérium E2-ben)
  Természetesen a kritériumot átírhatod és szemvillanás alatt megszámolja B-t is.

• #16749 Fire/SOUL/CD félisten Z-Tom-ee #16748

  Új Válasz 2013-02-15 21:12:43 #16749

  Ú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 Z-Tom-ee #16748 üzenetére

  =DARABHATÖBB(A1:A7;"=A";B1:B7;"<>""")
  Excel 2007 vagy újabb esetén és nem tesz különbséget kis- és nagybetű között

• #13524 Delila_1 veterán Z-Tom-ee #13523

  Új Válasz 2012-04-22 14:06:37 #13524

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

  Írtam rá egy függvény Sarga_Osszeg néven.

  Function Sarga_Osszeg(Tartomány As Range) As Double
  Dim CV, ossz As Double
  For Each CV In Tartomány
  If CV.Interior.ColorIndex = 6 Then ossz = ossz + CV
  Next
  Sarga_Osszeg = ossz
  End Function

  Az összegző cellába beírod: =sarga_osszeg(A1:G50), ahol az A1:G50 helyett a saját összegzendő tartományod kerül (egérrel is kijelölhető, mint minden más függvénynél). Adhatsz rövidebb nevet, két helyen kell átírnod a makróban.

  Ezt a sárga hátteret veszi figyelembe, ennek a színkódja 6.
  

• #12415 Delila_1 veterán Z-Tom-ee #12411

  Új Válasz 2011-12-31 07:45:21 #12415

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

  OpenOffice fórumon kellene megkérdezned. Az már kiderült, hogy ezen a téren nem kompatibilis az OO az Excellel.

• #12407 Fire/SOUL/CD félisten Z-Tom-ee #12405

  Új Válasz 2011-12-26 13:41:29 #12407

  Ú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 Z-Tom-ee #12405 üzenetére

  Mindegy, hol van a fájl... Lehet másik partíció, lemezen, weben, szóval mindegy.
  Ha helyesen szúrsz be hivatkozást, akkor ilyen probléma nem lehet.

• #12406 Delila_1 veterán Z-Tom-ee #12405

  Új Válasz 2011-12-26 13:19:33 #12406

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

  Akkor jeleníti meg a fájlod útvonalát, mikor a hivatkozott fájl ugyanabban a könyvtárban van.

• #12404 Fire/SOUL/CD félisten Z-Tom-ee #12403

  Új Válasz 2011-12-26 11:30:08 #12404

  Ú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 Z-Tom-ee #12403 üzenetére

  Ja bocsesz. Hogy honnan szedtem, hogy képletet akarsz megjeleníteni, az rejtély.

  Akkor próbáld ezt

  Function GetLinkAddress(MyCell As Range) As String
  On Error Resume Next
  GetLinkAddress = MyCell.Hyperlinks(1).Address
  End Function

• #12402 Fire/SOUL/CD félisten Z-Tom-ee #12401

  Új Válasz 2011-12-26 10:31:43 #12402

  Ú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 Z-Tom-ee #12401 üzenetére

  Korábban makróban lett írva egy saját készítésű függvény, aminek a neve MyCellFormula.
  A megnyitott munkafüzetben ALT+F11/Insert menü/Module és a jobb oldalon megjelenő új ablakba bemásolod a korábbi kódot. Ezt követően ezt az ablakot (amit VBA Editor-nak neveznek) bezárhatod.

  Erre a függvényre ugyanúgy kell hivatkozni a munkafüzetben, mint az Excel beépített függvényeinek bármelyikére, azaz ráállsz egy cellára és elkezded begépelni hogy =MyCellFormula(A1) Az A1 az egy cellahivatkozás, értelem szerűen arra állítod, amely cellából kiszeretnéd szedni a képletet. Ugyanúgy másolható pl egérrel, mint pl a SZUM és a többi függvény.

• #12400 Fire/SOUL/CD félisten Z-Tom-ee #12399

  Új Válasz 2011-12-25 18:28:38 #12400

  Ú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 Z-Tom-ee #12399 üzenetére

  Löket...

• #12398 Fire/SOUL/CD félisten Z-Tom-ee #12397

  Új Válasz 2011-12-23 14:09:27 #12398

  Ú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 Z-Tom-ee #12397 üzenetére

  Function MyCellFormula(MyCell As Range) As String
  If MyCell.HasFormula Then MyCellFormula = MyCell.Formula
  End Function

  Ez a függvény csak akkor jeleníti meg az adott cellában szereplő képletet, ha abban van is képlet.

• #12397 Z-Tom-ee csendes tag Z-Tom-ee #12396

  Új Válasz 2011-12-23 13:45:21 #12397

  Ú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

  

  Z-Tom-ee

  csendes tag

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

  Kaptam egy rövidebb megfogalmazást hogyan lehet kiíratni egy cellában egy másik cella hiperhivatkozásának a teljes útvonalát? (ha ez megvan, feltételes formázással már megoldom a többit...)

• #9150 Cuci3 tag Z-Tom-ee #9139

  Új Válasz 2011-01-20 18:27:16 #9150

  Ú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

  

  Cuci3

  tag

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

  Mivel az nem volt feladat, hogy a citromot is kiírassam, ezért gondoltam, hogy szépen be van írva oda.

• #9147 Delila_1 veterán Z-Tom-ee #9146

  Új Válasz 2011-01-20 12:36:02 #9147

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

  Nosza! A nevemre kattintva megtalálod az e-mail címemet.

• #9145 Delila_1 veterán Z-Tom-ee #9144

  Új Válasz 2011-01-20 12:00:03 #9145

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

  Éppen az ilyen hibát küszöböli ki a ha(hibás(... kezdetű képlet.
  Ezt vitted be, vagy a hibakezelés nélkülit?

• #9140 Delila_1 veterán Z-Tom-ee #9133

  Új Válasz 2011-01-20 08:09:34 #9140

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

  A Munka1 lap első sora
  alma üres banán x citrom x

  A Munka2 lap A1; C1; és E1 cellája
  alma; banán; citrom

  Munka2!B1
  =HA(INDIREKT("Munka1!"&KARAKTER(HOL.VAN(A1;Munka1!$A1:$F1;0)+65)&SOR())="x";"x";"")

  Ezt másold a D1 és F1 cellába, majd le mindegyik oszlopban addig, ameddig a sorok megkívánják.

• #9138 Cuci3 tag Z-Tom-ee #9133

  Új Válasz 2011-01-19 21:51:55 #9138

  Ú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

  

  Cuci3

  tag

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

  Ha nem egymás mellett lenne felsorolva ez a dolog, hanem egymást alatt szépen, akkor mondanék rá egy fkerest. Ellenkező esetben:
  INDEX($A$2:$F$2;0;HOL.VAN(A6;$A$2:$F$2;0)+1)
  Én nem toltam el két munkalapra a dolgot, és nálam a felsorolás az A2 : F2 tartományban van. A6-ban meg persze a citrom, vagy mi.
  A képlet egyébként 0-t ad vissza üres esetben, tehát tehet köré még egy HA függvényt.

• #6099 Fire/SOUL/CD félisten Z-Tom-ee #6097

  Új Válasz 2010-01-25 18:30:39 #6099

  Ú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 Z-Tom-ee #6097 üzenetére

  Hali!

  Válts át az időre Angol billentyűzetkiosztásra bal ALT+SHIFT
  az Ő és Ú a szögletes, míg SHIFT + Ő és Ú meg a kapcsos zárójel.
  bal ALT+SHIFT ismételt megnyomásával visszaválthatsz ismét magyar kiosztásra.

  Fire.

• #6098 ulrik19 tag Z-Tom-ee #6097

  Új Válasz 2010-01-25 18:16:21 #6098

  Ú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

  

  ulrik19

  tag

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

  gondolom valamilyen funkció van ehhez a billentyűkombinációhoz rendelve.
  (ha igen, akkor töröld, amihez rendelték)

  erre gondolsz? [ (altgr + f)
  próbáld meg ctrl + alt + f módon is hátha...

  én ezzel szívtam sok helyen: { (kapcsos zárójel)

• #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