- eBay-es kütyük kis pénzért
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Chosen: Canon 5D II - portrézás 2025-ben
- bitpork: Augusztus 2- szombat jelen állás szerint.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Geri Bátyó: B550 szűk keresztmetszet, de mi és miért?
- Fogkefe: elektromos vagy manuális?
- Magga: PLEX: multimédia az egész lakásban
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
#18800
detroitrw
addikt
kőbaltazár
#18796
detroitrw
addikt
válasz
kőbaltazár
#18796
üzenetére
Ha az adott cellára kattintva fent ahol látod a parancssort közvetlen mellette van egy fx
arra rákattintva mindent megtudhatsz az adott utasításokról2: azt jelenti, hogy a kijelölt oszlopok közül hányadikból várod a végeredményt
0: az csak egy logikai kapcsoló, itt akár el is lehet hagyni mert ez számokra vonatkozik
0= hamis (azaz pontos egyezés szükséges)
0-tól különböző szám vagy üres = igaz ("az első oszlopban lévő legjobb közelítést adja meg, növekvő rendezés esetén") -
#18799
Caipi
tag
kőbaltazár
#18797
Caipi
tag
válasz
kőbaltazár
#18797
üzenetére
-
#18798
Caipi
tag
kőbaltazár
#18792
Caipi
tag
válasz
kőbaltazár
#18792
üzenetére
Szia,
Detroitw megoldásához egy másikkal csatlakoznék.1.) A D22 : D37 cellába a megtett intézkedésnek kellene kerülnie, az I36 : I38 tartományból a következők szerint.
Érintetlen, fogyás és jelentős fogyás esetén T, F.
Megrongálódott esetén Ú K új kihelyezése
Eltűnt esetén pedig SZ P szerelvény pótlása.A szerelvény állapota mellé (K oszlop 21-25) felvenném az adott tételhez tartozó megtett intézkedést (ha zavar,akkor fehér betűszínnel, így nem látszik).
2.) Így a D 22:37 cellák függvénye egy fkeres lesz, mégpedig: fkeres($D22;$I21:$K25;3;0). Tehát keresse meg a D 22:37 cellába beírt adatot az I 22:25 cellákban és ha talál azonosságot, akkor a K 22:25 cellákból vegye az eredményt.
Ha kinyomtatni is kell a táblázatodat, akkor a nyomtatási területből hagyd ki ezt a segédoszlopot.2.) A C22 : C37 tartományba, ha az érintetlen, és az eltűnt cella után berakná magától az 5 darab minusz jelet jó lenne (bár, hogy én hogy raktam be már nem tudom, mert mindíg valami képletet hiányolt).
Megoldása:
I29:I33 cellákat kijelölöd, majd képletek menüben a név megadása pontban adsz neki egy nevet (kártevő pl).
C22: C37 cellákat kijelölöd, majd az adatok menü érvényesítésnél kiválasztod a listát és a forrás a következő függvény lesz:
=HA(VAGY($B22="É";$B22="E T");$I$28;kártevő)
Azaz, ha a B 22:37 cellákban "É", vagy "E T" szerepel, akkor az érték amit ki lehet választani a "------" (a függvényben rögzítetten ennek a cellának a címe szerepel), ellenkező esetben a kártevő tartományból lehet értékeket választaniÜdv,
Caipi -
#18797
kőbaltazár
tag
kőbaltazár
tag
Üdv
Még egy olyan bajom lenne, hogy csak a kijelölt cellákat lehessen módosítani, mert magam is folyton véletlenül rossz helyre próbálok írni. -
#18795
detroitrw
addikt
kőbaltazár
#18794
detroitrw
addikt
válasz
kőbaltazár
#18794
üzenetére
I41-J45 hogy láthatalan legyen állisd át a szöveg színét fehérre (vagy amilyen a háttér)
de ha nem akarod ezeket beírni akkor így is megoldható a
D22 tartalma:
=HA(B22="É";"T, F";HA(B22="F";"T, F";HA(B22="MR";"Ú K";HA(B22="E T";"SZ P";HA(B22="J F";"T, F";"")))))az hogy a C22 : C27 -be megmaradjon a lista arra passzolok
max olyat lehet hogy E22:
megcsinálod a listátés a C22:
=HA(B22="É";"-----";HA(B22="E T";"-----";E22)) -
-
#18793
detroitrw
addikt
kőbaltazár
#18792
detroitrw
addikt
válasz
kőbaltazár
#18792
üzenetére
ez esetbe ezeket javasolnám:
D22 tartalma:
=FKERES(B22;$I$41:$J$45;2;0)emiatt
I41-J45 tartalma:
C22 tartalma:
=HA(B22="É";"-----";HA(B22="E T";"-----";""))itt érdemes feltételes formázást használni hogyha nincs "-----" akkor pl. a cella legyen piros színű
amint beírod a helyes értéket akkor el fog tűnni a kijelölésfeltételes formázás:
jelöld ki a C22-C37 cellákat
feltételes formázás/új szabályok/csak az adott tartalmú cellák formázása
lent kiválasztod a legördülőbe hogy üres cellák
majd a formátum... gomb segítségével pl. megadod a kitöltés fülnél hogy milyen színű legyen a cella -
kőbaltazár
tag
válasz
detroitrw
#18780
üzenetére
Kedves detroitrw!
Köszi a gyors reagálást, sajnos csak most értem gépközelbe.
Az igazság az, hogy amit leírtál, tökéletesen működik, de én sajna nem írtam le egyértelműen, hogy mit szeretnék.
B22 : B37 mind lenyíló ablak, és I21 : I25 -ből veszi az adatokat. Ezt végig kell játszanom, a szerelvények ellenőrzése során.
A C22 : C37 tartományba, ha az érintetlen, és az eltűnt cella után berakná magától az 5 darab minusz jelet jó lenne (bár, hogy én hogy raktam be már nem tudom, mert mindíg valami képletet hiányolt). Természetesen a fogyás, a jelentős fogyás és a megrongálódott cella utánit nem lehet az excelre bízni, mert ez mindíg az adott helyzettől függ, és ez megint rám marad a helyszinen.
A D22 : D37 cellába a megtett intézkedésnek kellene kerülnie, az I36 : I38 tartományból a következők szerint.
Érintetlen, fogyás és jelentős fogyás esetén T, F.
Megrongálódott esetén Ú K új kihelyezése
Eltűnt esetén pedig SZ P szerelvény pótlása.
Ez az űrlap egy cégnél a rágcsálóirtás nyomonkövetését hivatott ellenőrizni, amivel az év végén majd trendanalízist tudunk készíteni. Szerintem a kutya sem fogja megnézni, de a higiénikus hölgynek kiadták, hogy meg kell csinálni, és neki is kb annyi fogalma van erről mint nekem. Mikor rágcsálóirtó lettem komolyan fogalmam sem volt arról, hog a patkányokat majd vonalkóddal kell ellátni, de már ettől sem állunk messze.Előre is köszönöm a segítséget Neked, és a Többieknek is nagyon sokat tanultam eddig is belőle.
-
gboszi
senior tag
válasz
Delila_1
#18778
üzenetére
Köszi a választ, nem találtam megoldást. (bár neheziti a dolgot, hogy mac osx-es excelem van)
Viszont olyan dolgot kérdeznék még, hogy olyan lehet, hogy a diagrammomnak naponta változik az adatmennyisége. Ezt meg lehet csinálni, hogy ne kelljen mindig ujra kijelölni, hogy mi az adathalmaz? -
Arlekim
aktív tag
Sziasztok!
Amatőr exceles vagyok, a munkahelyen használom sokat, máshol eddig nem érintett.
Itt minden Excelben zajlik (parkolóház), be, és kilépések, bérlet, jegyfizetések, stb. Rengeteg nyers adat áll rendelkezésre, amiből kényelmi funkciót szeretnék kovácsolni.
Pl:
Készíteni egy alaprajzot (3db-ot, a 3 szint miatt), amin a belépett autók grafikusan megjelennek, és persze az adatok forrása egy Excel tábla.
A dolgot bonyolítja, hogy vannak kialakult tipikus parkolóhelyek rendszámokhoz, de ez nem mindíg áll, illetve egy helyen többen is állnak, csak külön időben.
A rendszám, és szintsorszám adatok belépéskor rendelkezésre állnak.Valakinek van valami kreatív ötlete, melyik oldalról is fogjak ehhez hozzá?
-
#18787
Mutt
senior tag
kőbaltazár
#18779
Mutt
senior tag
válasz
kőbaltazár
#18779
üzenetére
Hello,
A többiek megoldása mellett itt vannak ez én változataim a D41-es cellára:
=DARABTELI(D22:D37;"<>T. F")
=SZORZATÖSSZEG(--(D22:D37<>"T. F"))Vagy CSE képlettel:
{=SZUM(--(D22:D37<>"T. F"))}Végül elvetemülten:
=SZORZATÖSSZEG(--(SZÁM(KÓD(HELYETTE(D22:D37;"T. F";)))))üdv.
-
#18786
Caipi
tag
terencehIII
#18785
Caipi
tag
válasz
terencehIII
#18785
üzenetére
Szia,
Legegyszerűbb, ha felveszel az 500 adat mellé egy segédoszlopot, ahol megnézed, hogy szerepel-e a 200 db között. A függvény a darabteli()
Ha szerepel, beállítod, hogy írjon "1"-t, majd teszel egy szűrőt erre az oszlopra, és leszűrőd.
Üdv,
Caipi -
#18785
terencehIII
tag
terencehIII
tag
Sziasztok!
Azt hogy tudnám megoldani ha az első olszopba vannak adataim (kb 500) és egy másik munkalapon szintén ilyen adatok kb 200 és az elős munkalapon lévő adatokra szeretnék szűrni a következő 200 db szerint speciáális szűrővel próbáltam de ugy nem sikerül hogy kijelőlöm a 200 -at
Valakinek van valami ötlete? Köszi -
#18784
Delila_1
veterán
kőbaltazár
#18779
Delila_1
veterán
válasz
kőbaltazár
#18779
üzenetére
D22-be:
=FKERES(B22;$I$21:$J$25;2;0)
Javaslom, hogy a J és K oszlopok celláit ne vond össze, hanem a J-t vedd olyan szélesre, hogy elférjenek benne a szövegek. Ha csak lehet, kerüld az összevonásokat, sok galibát okozhatnak.
A D41 képletét detroitrw megadta.
-
#18781
Caipi
tag
kőbaltazár
#18779
Caipi
tag
válasz
kőbaltazár
#18779
üzenetére
Szia,
Valamint hogyan lehetne a D41 cellában kiszámoltatni, hogy a D22;D37 oszlopban, hány nem T, F tartalom van?
Kérdésedre a válasz:Összeszámolod hogy hány teli cella van a tartományban darab2() fgv majd kivonod belőle a T, F tartalmúakat darabteli() fgv.
Az első kérdésednél mi alapján párosítod az állapothoz a feladatot?
Üdv,
CaipiMár meg is érkezett a megoldás míg pötyögtem
-
#18780
detroitrw
addikt
kőbaltazár
#18779
detroitrw
addikt
válasz
kőbaltazár
#18779
üzenetére
pl.
D22 tartalma:
=HA(B22="O";"T.F";HA(B22="F";"T.F";HA(B22="MR";"U K";HA(B22="E T";"SZ P"))))D41 tartalma:
=DARAB2(D22:D37)-DARABTELI(D22:D37;"T.F") -
#18779
kőbaltazár
tag
kőbaltazár
tag
Sziasztok!
Hogyan tudnáma a mellékelt táblában a D22;D37 cellákat automatikusan a B22;B37 tartomány függvényében kitölteni? Valamint hogyan lehetne a D41 cellában kiszámoltatni, hogy a D22;D37 oszlopban, hány nem T, F tartalom van?
A segítséget előre is köszönöm.
-
Delila_1
veterán
válasz
gboszi
#18777
üzenetére
A 2003-as verzióban van erre lehetőség. Elkészíted a grafikont, kijelölöd. Ekkor az Eszközök | Beállítások párbeszédnél megjelenik a Diagram fül, ahol bejelölöd a Köztes értékekkel opciót. Oszlopdiagramnál nem működik.
Magasabb verziókban nem tudom, hova tették – ha tették. -
gboszi
senior tag
Sziasztok lenne egy kérdésem, remélem tudtok segíteni.
Kisbaba súlyát írom excel táblázatban, s csináltam egy oszlop diagrammot. A problémám az lenne, hogy nem írom minden nap a súlyát (néha elfelejtjük) és akkor ott ugye nincs adat. Ez nem is gond, viszont a diagrammon meg megjeleni az a nap is oszlop nálkül.
Szóval, olyan megoldást szeretnék, hogy ha akár egy hét is kimaradt akkor is csak azt jelenítse meg, ahol van érték, hogy szép diagrammot kapjak.
Próbálkoztam ilyen zero érték és társaival de nem sikerült sehogyseÜdv: Gábor
-
csongi
veterán
válasz
föccer
#18767
üzenetére
Köszönöm!
lappy, neked is!Megoldottam, csak másik munkalapról nem lehet a listát kiválasztani, 2003-ba pedig lehetett.
Egy elég komplikált táblázat lesz több lapról kell össze hozni, mert az első munka lap lenne a vezérlő oldal a háttér adatokat másik munkalapra szeretném feltölteni.
Megcsinálom a vázat,a teljes feltöltéssel, és a kérdéses cellákban mit szeretnék számoltatni illetve feltüntetni szövegbuborékba beírom, akkor könnyebb lenne és érthetőbb is mit szernék.
Ilyen formán is tudtok segíteni? -
Mutt
senior tag
válasz
föccer
#18749
üzenetére
Hello,
Nem az én találmányom, de más már megcsinálta hogy az Excel által rajzolt görbét közelítő számítással reprodukálja. Feltettem ide a te estedre módosított mintát.
Az erdeti itt található.
A lényeg, hogy egy UDF-el próbálja meg kiszámolni a görbére illeszkedő pontokat. A második fülön javítottam a lépésközön (a felbontáson) így már elég közeli értéket tudsz kapni. A füzetben leírtam, hogy a képlet hogyan használható, fontos hogy CSE képlet tehát ha módosítód akkor Control-Shift-Enter-t kell nyomnod.
Ami fontos, hogy nem érdemes a pontosságot nagyon fokozni, mivel az eredmény nem lesz pontosabb, hiszen
az Excel is csak saccolja.üdv.
-
Delila_1
veterán
válasz
tamas1985
#18756
üzenetére
Képletek:
C8 -> =BAL(B8;2)*1
D8-> =JOBB(B8;HOSSZ(B8)-3)*1
E8-> =GCD(C8:D8) Legnagyobb közös osztó
F8-> =C8/E8&":"&D8/E8Az 1-gyel való szorzás azért kell, mert egy számjegyekből álló szöveg bal-, ill. jobb oldala szintén szöveg, amivel nem lehet számolni. A felszorzás számmá alakítja a két felet.
Biztosan elírás a legkisebb közös osztó, nyilván legnagyobbat akartál írni. -
tamas1985
tag
A következőkhöz lenne szükségem segítségre:
Adott egy táblázat:
Első oszlopban aránypárokkal.
2. oszlopba az aránypár első felét kellene kiíratni, ezt így oldottam meg:
=BAL($B10;2)
Nem vagyok benne biztos hogy nincs e szebb megoldás
3. oszlop az aránypár második felét kéne , próbáltam a JOBB függvénnyel de vagy túl kevés vagy túl sok számot ír ki
4. oszlopba a legkisebb közös osztó kéne
5. oszlopba egyszerűbb alakban (pl 20:5 --> 4:1)
-
q13579
senior tag
válasz
Delila_1
#18746
üzenetére
Köszi, ez működhet.
Még egy kérdés.
Hogyan adhatnám meg azt a feltételt, hogy csak abban az esetben adjon vissza értéket egy munkalapról, ha az nem 0 és nem üres. Ellenkező esetben keressen egy másik lapról.
A gondom az, hogy ha HA függvénnyel oldom meg, akkor ha az első munkalapon nem talál értéket, akkor #ÉRTÉK hibával tér vissza és nem kezdi el keresni a másik lapon.
Eddig így próbáltam, hogy HA(VAGY((....>0);(.....<0));1;0)
Viszont ebben az esetben, ha a vagylagos feltételenek üres cella esetén nem felelt meg, nem a 0-s értéket adta eredményül, hanem az #ÉRTÉK hibát.
-
föccer
nagyúr
válasz
Delila_1
#18748
üzenetére
Ez egy vizsgálati eredményeket ábrázoló grafikon. A vizsgálat eredménye egy anyagra jellemző, %-ban kifejezett szám. A vizsgálatot csak korlátozott mennyiségben, az egész % értékeknél végezzük el, viszont az anyagra jellemző érték a legkevesebb esetben lesz kerek%. A természetanyánk így találta ki az anyagot. A vizsgált anyagjellemzőnek mindig van egy maximum értéke, csak éppen nem tudjuk, hogy hol. (tapasztalat alapján 6-8% között, de ez változik.
Tehát nem arra vagyok kíváncsi, hogy al elvégzett vizsgálatok közül melyiknek legnagyobb az értéke =max() függvény ugyebár..., hanem arra, hogy a vizsgálati eredmények álltal kirajzolt görbének hol van a maximuma. Ha ismerném a görbe egyenletét, akkor 2 deriválással már megkaphanám annak a maximumát, csak hát nem ismerem a görbe pontos egyenletét. A közelítő polinomok és egyéb trendvonalak ebben az esetben igen használhatatlanok, mert a vizsgálati eredményben pontos (0,05%) eredményt kell megadni. Ennél jóval nagyobb tévedést adna, ha közelítő polinommal számolnék.
Szóval ennek fényében látsz rá valami megoldást, hogy automatán ki tudjam számoltatni amit szeretnék, vagy maradjak a manuális leolvasásnál?
Köszi szépen
üdv, föccer
-
föccer
nagyúr
válasz
Delila_1
#18739
üzenetére
Ezzel az a baj, hogy az adattábla az csak abból az 5 pontból áll, amin az adatjelölők állan (2-10%-ig) Nekem meg arra a maximum pontra lenne szükségem, ami az illesztett görbe maximuma. A leni példánál maradva ~8,22%.
Nem kell a diagrammra rárajzolnom, hanem csak számszakilag kell tudnom kiszámolni (amit most csak "ránézésre" tudok megmondani).
Ha erre tudsz valami frappáns megoldást, akkor azt megszönömöm, ha megosztod.
üdv, föccer
-
Delila_1
veterán
válasz
q13579
#18745
üzenetére
A képen a 3 lapot egymás mellé tettem. A Munka3 lapra gyűjtöm a két első lapról az adatokat. Itt felvettem egy segédoszlopot – a képletét láthatod a szerkesztőlécen –, mert a feltételes formázás csak a saját lapján lévő adatok szerint működik.
A felt . formázás 2 képlete
=$C1=1 (egyik szín) és
=$C1=2 (másik szín)
-
q13579
senior tag
Sziasztok!
Feltételes formázással kapcsolatban lenne kérdésem.
Két táblázatból szeretnék egy harmadikba értéket másolni, fkeres függvénnyel. Ha az egyikbe nincs benne, akkor a másikból vegye. Ez működik, nincs vele gond. (HAHIBA és FKERES függvényekkel megy egyszerűen).
Viszont hogyan tudnám megoldani, hogy kiemelje valahogyan azokat az értékeket, amelyeket az 1-es táblázatból szed?
Próbáltam feltételes formázással, hogy ha az érték megegyezik az 1-es táblázatban lévő, azonos helyen lévő értékkel (szintén fkeres függvény), akkor formázza pirosra. Ez működik is egy cellánál.
Viszont másolni CSAK a feltételes formázást nem tudom. Ez megoldható valahogy, vagy tud ehelyett esetleg más megoldást is javasolni valaki?
-
tamas1985
tag
Sziasztok!
A következőben kérném a segítségeteket:
Adott egy táblázat.
Az első oszlopban (4a) kell lenni az összes ÁFÁnak egy adott évben ez megoldva sima összeadás semmi gond.
Másodiki oszlopban (4b)azt kell eldönteni hogy ez az összeg 30000 alatt vagy felett van, ezt egy HA függvénnyel oldottam meg, így néz ki =HA($C66>30000;"Yes";"No"), ez is rendben
A harmadik oszlopban(4c), kell kiszámolni a visszatérítést 2,5% ha 30000 felett vagyunk, illetve ha nincs 30000 felett akkor is jár neki 20, na ezt nem tudom megcsinálni.
Ezt próbáltam:
=HA($D67="Yes";;"20")+$C67*$E$78
De nem jó mert odáig ha csak azt nézzük hogy melyik nem éri el a 30000 és azok 20 kapnak ok, de ha az egész oszlopra akarom alkalmazni akkor már nem jó.
Lényeg hogy csak a sárga mezőben szerepelhet képlet.
Előre is köszi.
-
föccer
nagyúr
Helló!
Adott egy MS Office Pro 2010. Adott egy diagramm, amit adattáblából készítek, mondjuk egy ilyen:
Kérdésem az lenne, hogy hogyan tudnék makró nélkül, automatán maximumot meghatározni a kirajzolt diagrammhoz? (tehát hány %-nál érem el a maximum értéket.
A segítséget előre is köszönöm.
üdv, föccer
-
#18737
Delila_1
veterán
Vizes Tomi
#18736
Delila_1
veterán
válasz
Vizes Tomi
#18736
üzenetére
Melyik verziót használod?
Készítek egy füzetet, amibe majd átmásolod az adataidat. Abban már az is benne lesz, hogy a látható lapon vihetsz fel új sort a rejtettre.
Add meg a lapok általad használt nevét is. -
#18735
Delila_1
veterán
Vizes Tomi
#18734
Delila_1
veterán
válasz
Vizes Tomi
#18734
üzenetére
Szia!
A Látható lap fülén jobb klikk, Kód megjelenítése. Ezzel bejutottál a VBA szerkesztőjébe. Látod, hogy bal oldalon a lapok felsorolásánál a Látható lapod van kijelölve. A jobb oldali üres területre másold az első makrót.
Bal oldalon a füzeted nevén állva az Insert menü Module almenüjére kattints, kapsz egy új modult, aminek Module...n lesz a neve. Erre kattintva jobb oldalon ismét üres területet kapsz, ide másold a második makrót.
-
Delila_1
veterán
-
Agony
aktív tag
válasz
Delila_1
#18729
üzenetére
Köszönöm a választ!
Végül ez lett a működő koncepció:
Sub Markó()
Range("B1").FormulaR1C1 = "=IF(RC[-1]=10,""Igaz"",""Hamis"")"
Range("B1:B1").Autofill Destination:=Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row)
End SubRemélem, nincs benne túl nagy blődség, minden esetre a funkcióját ellátja.
-
Delila_1
veterán
Érdemes meghatározni, hány sor van az A oszlopban. Ezt több módon meg lehet állapítani, pl.
lastrow=range("A1").end(xkdown).rowJöhet a függvény.
range("A1:A" & lastrow)= "=függvény"Szakkönyvekből, fórumokon járkálva lehet tanulni, és vannak ilyen helyek, amik segítséget nyújtanak. A YouTube-on is rengeteg példát találsz.
-
Agony
aktív tag
Sziasztok!
Egy kis szakértői supportra lenne szükségem az alábbi problémára. Nincs vele semmi különösebb dolgom, de nagyon bosszant, hogy nem tudom megoldani.
Szeretném azt megoldani, hogy a makró végignézze az A oszlop celláit (pl.: A105) és hajtson végre egy függvényt a vele egy sorban lévő B oszlop cellájában (pl.: B105), addig amig üres cellát nem talál az A oszlopban.
Idáig jutottam, de nem igazán akar működni, feltételezem az Autofill-nek van még szüksége valamilyen paraméterre, de nem sikerült kimatekozni. :S
Sub FüggvényMásolás()
Range("B1").Select
ActiveCell.FormulaR1C1 = "=FÜGGVÉNY"
Range("B1").Select
Selection.Autofill
Range("B
").Select
End SubŐszintén szólva nagyon érdekel az excel makrókra, függvényekre vonatkozó oldala, de nem igazán találtam olyan könyvet amiből el tudnám sajátítani. (Amik megvannak: Excel haladóknak, Makrohasználat Excelben, Gazdasági számítások Excelben)
Ti hogy értétek el, hogy ilyen pro excel felhasználók lettetek? (Vagy mindenki programozó?
) -
#18725
Delila_1
veterán
Vizes Tomi
#18722
Delila_1
veterán
válasz
Vizes Tomi
#18722
üzenetére
A két lapnak Rejtett, és Látható nevet adtam. Az első makrót a Látható laphoz rendeld. Ezen a lapon az A1 cellába beírod a keresett azonosítót.
Private Sub Worksheet_Change(ByVal Target As Range)
Rows("5:10000").ClearContents
If Target.Address = "$A$1" Then
Rows("5:10000").ClearContents
Listaz Target
End If
End SubA második makró, amit modulba másolsz be, a Látható lapra átmásolja a kritériumnak megfelelő sorokat, az A5 cellától kezdve. A 4. sorba beírhatod az oszlopok címét (Azonosító ... Összeg)
Sub Listaz(krit)
Dim usor As Long, Rng As Range
Application.EnableEvents = False
Sheets("Rejtett").Select
Selection.AutoFilter Field:=1, Criteria1:=krit
usor = Range("A1").End(xlDown).Row
Set Rng = Range("A2:D" & usor).SpecialCells(xlCellTypeVisible)
Rng.Copy Sheets("Látható").Range("A5")
Sheets("Látható").Select
Application.EnableEvents = True
End Sub -
Delila_1
veterán
válasz
mr.nagy
#18723
üzenetére
Az első makrót a lapodhoz rendeld. Ez figyeli az A5 cella változását.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then Osszefuz
End SubMikor új adatot viszel be az A5-be, meghívja a modulba írt Osszefuz makrót, ami a B5 cellában összefűzi az azonos kódhoz tartozó adatokat.
Sub Osszefuz()
Dim kriterium, Rng As Range, usor As Long, CV As Object
Application.EnableEvents = False
Range("B5") = ""
kriterium = Range("A5")
Range("A4:D4").AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=kriterium
usor = Range("D4").End(xlDown).Row
Set Rng = Range("D5:D" & usor).SpecialCells(xlCellTypeVisible)
For Each CV In Rng
Range("B5") = Range("B5") & " " & CV
Next
Application.EnableEvents = True
Selection.AutoFilter
End Sub -
mr.nagy
tag
Sziasztok!
A feladat a következő:
A C oszlopban számok vannak, a D oszlopban nevek. A feladat, hogy egy adott szám esetén a mellette található információkat egy fix cellában (pl. B5) egymás mellett lássuk.
Tehát mintha "&"-el egymás mellé egy cellába egyesítenénk a különböző oszlopokban található információkat csak itt még meg is kell kereseni hogy hol vannak ezek!
A képen a C-D tartományban keressük az A5 értékét és a B5 cellát szertnénk eredménynek kapni.
Hogy lehet megoldani?
-
#18722
Vizes Tomi
tag
Vizes Tomi
tag
Sziasztok
Újra
Van egy olyan listám , hogy
Azonosító, Minta Árpád, Számlaszám, Összeg
Ezt a listát szeretném elrejteni a kollégáim elől, de egy másik munkalapon szeretnék lehetőséget hagyni arra, hogy keressenek. Az lenne a legjobb, ha Pl az azonosítóra rákeresnénk és kiadna egy listát arról, hogy ehhez az azonosítóhoz hány számla tartozik. Illetve ha kell akkor új sorokat tudjak a táblázatba bevinni, az még királyabb lenne ha a bevitelkor is ellenőrizne,és kiadná, hogy már van ilyen számlaszám.
A keresésre ott van a keres függvény csak nem tudom, hogy hogyan tudnám rábeszélni, hogy listát adjon ki.
A többi homály.Köszönöm
-
nimmy001
csendes tag
Még ez is kérdés:
"...hogy lehet excel beépített gyorsbillentyű kódokat törölni, módosítani (olyanokat, amik 1-1 menüfülre ugranak). Nincs rá szükség, és másra kéne az a kód, 1-1 makrót lefuttatni, a problémát egy olyan gép okozza, ahol angol nyelvű az office, és ott ez a 2 gyorsbillentyű foglalt, a többin, ahol jól működik, magyar, és azokon nem foglalt. Nem telepíthetek semmi plusz programot, kiegészítőt... stb. Más megoldás kell." -
nimmy001
csendes tag
A képleteknél nem az a fontos, hogy ne lássák, hanem, hogy ne tudjanak beleírni. Ez lapvédelemmel megoldott volt, amíg nem volt igény a szűrésre is, amíg nincs más megoldás, addig vagy szűrés nincs, vagy lapvédelem nincs. Most egyelőre a szűrést nélkülözzük, a lapvédelem a fontosabb, mert más-más felhasználóknak más-más részekhez kell tudni hozzáférni, de nem szabad mindenhez.
-
nimmy001
csendes tag
Az oké, csak ez több gépen megosztva lenne használva, és nem mindenhol 2010-es office van (egyébként nekem a 2010-esben se engedi, akkor se, ha ezeket nem zárolom, még az ikonja is inaktívra vált), ráadásul van, ahol magyar, van, ahol angol. Még ha a szűrőt engedem is, hogy hozzáférjenek, nem akarom, hogy véletlenül átírják a fejléc szövegét, mert annak maradnia kell, azt nem engedhetem meg, csak azt, hogy le tudjanak szűrni.
-
nimmy001
csendes tag
Sziasztok!
Akadt egy problémám. Van egy közös használatú excel, amiben szeretnénk szűrni, de úgy, hogy a fejlécek szövegét ne lehessen átírni, csak arra jogosult írhassa át, szűrni más is akar, és mindezt közös használat mellett. Az excel lapvédelem funkciója mellett nem működik a szűrés (kipróbáltam). Makrós megoldás esetleg? Tartományok védelmét és jogosultság szerinti írását meg lehet oldani a Lapvédelem funkció megkerülésével makrósan? Begépelős mezőknél szeretném, ha rászólna a nem jogosult felhasználóra, hogy oda nem írhat, és ki se töltse (vezérlős mezők is vannak, arra már találtam megoldást, a kitöltősökre még nincs). Vannak mezők, ahova más, beírt adat szerint képlettel keres adatot másik excelből, a képlethez viszont szeretném, ha nem tudnának hozzányúlni mások, és ne írhassák át véletlenül akár. Az összes kérdés ugyanarra a fájlra vonatkozik.
-
Caipi
tag
válasz
Mythunderboy
#18713
üzenetére
Szerintem csak a cellák formátuma lett átállítva
-
#18713
Mythunderboy
csendes tag
Mythunderboy
csendes tag
Sziasztok!
Tudna valaki segíteni?
Egy számomra érthetetlen probléma jelentkezett egyik napról a másikra egy táblázatomban. 1901-es évtől összevissza évjáratú dátumokat szórt szanaszét a cellákba valami... Kitörölve a fontos hivatkozásokat kitörölni igen, de felülírni nem engedi... mindig visszaírja a dátumot......van ahol kettős kereszteket írt a cellába de a szerkesztőlécen a dátumot mutatja és van ahol már a dátum van a cellában... Van ötletetek mi a répa ez? és javítható? -
#18712
Delila_1
veterán
Vizes Tomi
#18711
Delila_1
veterán
válasz
Vizes Tomi
#18711
üzenetére
Nincs nit.
-
#18710
Delila_1
veterán
Vizes Tomi
#18709
Delila_1
veterán
válasz
Vizes Tomi
#18709
üzenetére
A TNÉV függvény pontosan ezt csinálja.
-
#18709
Vizes Tomi
tag
Vizes Tomi
tag
Sziasztok Azt szeretném kérdezni, hogy egy neveket tartalmazó listában az összes név kisbetűs Pl minta áron, de én szeretném átalakítani úgy, hogy Minta Áron.
Ezt, hogyan tudnám, könnyen gyorsan megcsinálni?
-
nimmy001
csendes tag
válasz
nimmy001
#18706
üzenetére
Úgy tűnik, erre találtam megoldást (ha másnak is kéne):
ActiveSheet.Pictures.Insert(Filename).Select
If Val(Application.Version) > 12 Then
dWidth = Selection.Width
dHeight = Selection.Height
Selection.Cut
ActiveSheet.Shapes.AddPicture(Filename, False, True, 100, 100, dWidth, dHeight).Select
End If(a 100, 100 a pozíciót adja meg, lehet más is, 0, 0 a táblázat bal felső sarka például)
-
nimmy001
csendes tag
Sziasztok,
Még egy kérdés, hogy lehet excel beépített gyorsbillentyű kódokat törölni, módosítani (olyanokat, amik 1-1 menüfülre ugranak). Nincs rá szükség, és másra kéne az a kód, 1-1 makrót lefuttatni, a problémát egy olyan gép okozza, ahol angol nyelvű az office, és ott ez a 2 gyorsbillentyű foglalt, a többin, ahol jól működik, magyar, és azokon nem foglalt. Nem telepíthetek semmi plusz programot, kiegészítőt... stb. Más megoldás kell.
-
nimmy001
csendes tag
Sziasztok!
Egy olyan problémám lenne, hogy szeretnék egy képet bepakolni makróval egy excel fájlba, de úgy, hogy akkor is látsszon, ha olyan gépre kerül át az excel fájl, ahonnan nem érhető el a képfájl helye. Próbáltam makrórögzítővel, a Pictures.Insert... stb. kóddal, de a kép eltűnik, ha nem találja a forrásmappát. Nem találtam még meg a végső megoldást.
-
Vladek83
tag
Sziasztok!
Segítséget szeretnék kérni:
Van egy UserForm ami tartalmaz egy listbox-ot ( 5 oszlopos ), illetve egy textbox-ot (ebben szeretném megjeleníteni az adott értéket, ami a listbox-ban van ( első oszlopban lévőket ).
Van egy makro, ami megkeresi a listbox-ból az értéket, ami szintén ehez a textbox-hoz van rendelve.Ez működik is, csak ha a listbox-ból választom ki akkor nem jeleníti meg...Dim i As Long
Dim sFind As StringsFind = Me.TextBox1.Text
If Len(sFind) = 0 Then
Me.lbArlista.ListIndex = -1
Me.lbArlista.TopIndex = 0
Else
For i = 0 To Me.lbArlista.ListCount - 1
If UCase(Left(Me.lbArlista.List(i), Len(sFind))) = UCase(sFind) Then
Me.lbArlista.TopIndex = i
Me.lbArlista.ListIndex = i
Exit For
End If
Next i
End IfIf lbArlista.ListIndex >= 0 Then
Me.TextBox1.Value = Me.lbArlista.List(i, 1)előre is köszönöm
-
Mutt
senior tag
)
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Új, bontatlan World of Warcraft gyűjtői kiadások
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eladó Steam kulcsok kedvező áron!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB DDR5 RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
- Bomba ár! Lenovo ThinkPad P43s - i7-8G I 8GB I 256GB SSD I Nvidia I 14" FHD I Cam I W10 I Garancia!
- Azonnal elérhető, raktáron lévő HPE Aruba switch-ek
- BESZÁMÍTÁS! ASUS ProArt Z790-CREATOR WIFI alaplap garanciával hibátlan működéssel
- AKCIÓ! Gigabyte H510M i5 10400F 16GB DDR4 512GB SSD GTX 1080Ti 11GB Rampage SHIVA Zalman 600W
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged