- Geri Bátyó: Megint tahó voltam – SZEMÉLYISÉGFEJLŐDÉS
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Argos: Adjátok vissza a netet! - szeretnék elaludni!
- Luck Dragon: Asszociációs játék. :)
- MasterDeeJay: Alacsony fogyasztású házi szerver a korábbi projektekből összeépítve
- Elektromos rásegítésű kerékpárok
- bambano: Bambanő háza tája
-
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
-
Fferi50
Topikgazda
válasz
lanszelot
#51999
üzenetére
Szia!
A "jelenség" oka a cellaformátumban és az Excel dátum/idő ábrázolásában keresendő. A formátumkódokat magyarul fogom írni:
Az A4 cellád formátuma egyéni időformátum: ó:pp:mm
Az A5 cella "örökli" ezt a formátumot.
Az A6 cella független az előző formátumoktól, általános formátumú lesz.
Viszont az A7 cella ugyancsak "örökli" az A4 cella formátumát.
De akkor mi történik a 3,428571 (24/7) tel az A5 és A7 cellákban?
Itt jön képbe a dátum/idő ábrázolás.
Excelben ez is számként tárolódik, a számok egész része jelenti a napokat, a tört része pedig az időt. A napok az 1900. január 1 óta eltelt napok számát jelentik (1=1900.01.01 és így tovább). Az idő pedig a számok tört része.
Amikor időformátumot használunk az Excel egyszerűen figyelmen kívül hagyja - ó:pp:mm esetén - illetve átszámítja órákba - [ó]:pp:mm - a napokat.
Erről magad is meggyőződhetsz, ha a cellákra állva változtatod a cellák formátumát - általános, szám, dátum, egyéni idő a mutatott két formában.
Tehát nincs ebben semmi rendkívüli, ez az Excel normális működése.
Az a hab a tortán(!?), hogy amennyiben így írsz be egy cellába, hogy 5:00:00 akkor "magától" automatikusan idő formátumot ad az adott cellának.
Más rendetlenség is van, pl. írd be egy cellába 5.3 esetleg 5-3 és azonnal "rövid dátum" formátumban jelenik meg a cellában - a Windows beállításoknak megfelelően.
Üdv. -
Delila_1
veterán
válasz
GabN73
#51995
üzenetére
Feltételezem, hogy nem a legújabb Excel verziótok van.
Az Adatok lapon vannak az eredeti adatok. Ezeket táblázattá alakítod (állsz a táblázatban, Beszúrás, Táblázat). Felveszed az új oszlopokat, ahova beviszed a képleteket az év, hónap, hét és nap meghatározásához.
A másik lap a Kimutatás névre hallgat. A táblázatban állva Beszúrás, Kimutatás. Meghatározod a helyét a Kimutatás lapon (nálam ez a G1 cella).Adatok lap:
Kimutatás lap a Szeletelő ismerete nélkül:
Kimutatás lap, ha ismeri a verziód a Szeletelő fogalmát:
-
föccer
nagyúr
válasz
GabN73
#51995
üzenetére
Felveszel egy segédoszlpopot és a dátumból kiszeded az évet. Ugyan ezt megcsinálod a hónappal, esetleg a nappal, ha úgy adódik.Hurrá.Nem is kell segédoszlopban ezt kiszedned ha jobban meggondolom.Segédtáblákat csinálsz. 3-at a havi, heti és napi bontásra. Akár külön munkalapra is. ( Meg lehetne csinálni 1-be is az azgészet, de azt macerás elmagyarázni így a fórumon.)
Szóval a segédtábák tök ugyan úgy fognak működni, csak más időszakokokra fognak szűrni, ezért nem magyarázom el 3x, csak 1x, a többi menni fog.
Szóval segédtábla, A1: "Időszak kezdete:" B1: üresen marad, mert ez lesz az adatbeviteli meződ. Itt rövid dátum formátummal lehet megadni a kezdő dátumot. A2: időszak hossza: B2: adatbeviteli mező, C2-be pedig az év, hét, vagy nap felirat, hogy lássa az user, hogy éppen 6 hetet vagy 6 napot adott meg a szűrési időtartalmra.
A3: számított átlag összesen
A4: Számolt darabszám összesenA6: név, B6 folyamat (illetve minden olyan jöhet egymás mellé, ami az eredeti adattáblában van. Ez egy fejléc sor.
A7: SORBA.RENDEZ(EGYEDI(SZŰRŐ()))) függvényeket kell egymásba ágyazva használnod. A trükk a SZŰRŐ függvényben van. A tartománya az eredeti táblázat név oszlopa. A szűrőben a Befoglalás paraméterében kell betenni az eredeti táblázat dátum oszlopát. >=B1 és ezt meg kell szorozni (befoglaláson belül zárójelezz) a <=B1+(B2*[7 ha heti, 30 ha havi, 1 ha a napi táblában vagy]). Az nem gond, hogy a befoglalás a szűrő tartományon kívül van, érteni fogja az excel, hogy mit akarsz.
Szóval ha jól csináltad a szűrést, akkor az A7-től fefelé megjelenik az összes olyan név, ami az adott kezdő időponttól, az adott időtartamban szerepelt a táblázatba, ráadásul betű sorrendben. Ezzel kész van az A oszlop, dinamikusan.
B7:
HA(A7="";"";ÁTLAG(SZŰRŐ()) kezdetű feltétellel kezdesz. A trükk itt is szűrőben van. Az ÁTLAG függvény tömböt vár, amit a szűrő függvény ad meg. A szűrő tartománya ezútal az eredeti táblázat azon oszlopa, amiket átlagolni szeretnél. Befoglalásba az A7-ben is használt befoglalás paraméter kerül, de meg kell szorozni az eredeti táblázat név oszlopa=A7 kitétellel. Ezzel elérjük azt hogy csak az eredeti táblázatból csak és kizárólag azoknak az átlaga kerüljün számításra, akinek a neve szerelep a sor elején.C7: Pepítában ugyan az mint a B7, csak az ÁTLAG függvény helyett a DARAB2 függvényt használd.
A B7 és C7 képletét le kell húzni addig amíg elképzelhető, hogy számítást kell végenzi. Vigyázz, A7 képletét nem szabad lehúzni, mret kibontás hibát fog adni.
Na Wall of text vége. Remélem érthető.
Mondjuk lehet gyorsabb lett volna megcsinálni, mint ezt begépelni 
üdv, föccer
-
#51993
Delila_1
veterán
KonzolKartel
#51992
Delila_1
veterán
válasz
KonzolKartel
#51992
üzenetére
Ha az adataid a 299. sorban kezdődnek, akkor a képletben is $H299 szerepeljen.
-
#51992
KonzolKartel
őstag
KonzolKartel
őstag
Majdnem jó, de valamit elrontok, és mindig egy sorral feljebbire alkalmazza a szabályt.
[link] -
#51991
[CS]Blade2
addikt
[CS]Blade2
#51988
[CS]Blade2
addikt
válasz
[CS]Blade2
#51988
üzenetére
Csinálok egy új munkafüzetet, akkor is már így csinálja a program.
[Ide feltöltöttem] az xlsx-et.
Tavaly a "kezdete" oszlopot húztam be a sorokhoz, és amikor ráléptem a kimutatásmezőben egy dátumra, és ott a csoportosításra, és beállítottam így, mint a képen, akkor jelent meg a kimutatásmezőknél, hogy "Hónapok" és be is rakta a "kezdete" fölé a sorokhoz.Ilyen volt az eredeti 2022-ben:
Frissítéssel változtathattak ilyet, hogy mostantól máshogy funkciónál?
-
föccer
nagyúr
válasz
GabN73
#51989
üzenetére
O365-ben sima liba. Régebbi verzióban sem annyira gondos.
Használd az ÉV() HÓNAP() függvényeket segédoszlopban, majd használni kell a szűrő függvényeket, amivel az adott időszakra korlátozod az adatok listázását. Ezt követően EGYEDI függvénnyel kiemeled a neveket és ezek mellé darabhatöbb, szumhatöbb függvényekkel számolsz.
Diagrammokra is ki lehet rakni az eredményeket és ha nagyon akarod, akkor kimenthető pdf-be.
üdv, FG
-
GabN73
addikt
Sziaszok!
Elérkezett a várva várt pillanat az életemben, 12 éve nem láttam Excelt, főnök is hülye hozzá, kollégák is, én mint jómunkásember' megkaptam a feladatot
Adott egy 3 évre visszamenő aranyos kis táblázat.
3 lényegi sor van benne, amire nekem szükségem van:
-"A" :dátum (itt másodperce pontosan meg van adva, így van benne a kapott excelben),
-"B": név -
-"C" :egy "segítő" oszlop, amelyben minden esetben a lezárva szó van.Példa kedvéért:
Amit szeretnék, akár pivot, akár képlet, bármi segítségével:
havi, heti és napi esetekre lebontani a darabszámot, illetve átlagolni.
Extra: névre lehessen szűrni, jelen esetben pl Bélára, és látnám hogy Bélám X hónapban Y héten Z napon mennyi dolgot kezelt. Az áltlag itt már nem lényeg.Illetve ha tudtok ajánlani akár magyar, akár angol ingyenes érthető és jó Excel oktató oldalakat azt megköszönöm.
Előre is köszi a segítséget, virtuális csokit/sört fel tudok ajánlani, merészebbeknek valódit is
-
#51988
[CS]Blade2
addikt
[CS]Blade2
addikt
Van egy kimutatás. Az adat tábla első oszlopa a "kezdete" amiben dátumok vannak. A kimutatásra rá volt nyomva egy mezők csoportosítása (2023.01.01-től, a záró 2028 de a pipa kivéve, és bejelölve aszem a napok és a hónapok, majd az üres vagy a 01.01 előtti eltüntetve a szűrőnél).
Na most ez megmakkant.A kimutatásmezők-nél van jobb oldalt a Sorok-nál:
Hónap (kezdete)
Nap (kezdete)
kezdeteahelyett, hogy az lenne amikor még normálisan működött:
Hónapok
kezdeteMi a ... ez a zárójelezés? Ennek úgy kellene kinéznie, hogy a kimutatásban +-gombbal ki lehet nyitni, hogy jan, feb, és akkor ott van, hogy 11.-én 12.-én stb. mennyi, összecsukva meg a havi. Most minden napot lehet nyitogatni.
Hogy tudnám visszacsinálni? Hiába bontom a csoportbontással, és csinálom újra, ezt a ()-es dolgokat teszi be.
-
#51987
Delila_1
veterán
KonzolKartel
#51986
Delila_1
veterán
válasz
KonzolKartel
#51986
üzenetére
-
#51984
Fferi50
Topikgazda
KonzolKartel
#51982
Fferi50
Topikgazda
válasz
KonzolKartel
#51982
üzenetére
Szia!
Ahogyan Delila írta, csinálj feltételes formázást MINDEN státuszhoz, a "státusz változás" szöveg helyett írd a konkrét státusz szöveget.
Üdv. -
#51983
Delila_1
veterán
KonzolKartel
#51982
Delila_1
veterán
válasz
KonzolKartel
#51982
üzenetére
Szia!
Kijelölöd a teljes A:H tartományt, és feltételes formázást adsz rá. A képlet:
=$H2="státusz változás"(feltéve, hogy a 2. sorban kezdődnek az adataid), majd megadod a formátumot. Ügyelj a $ jelre. -
#51982
KonzolKartel
őstag
KonzolKartel
őstag
Sziasztok,
Van egy online spreadsheet, amit néha már nehéz átlátni.
[link] Azt kellene megoldanom, hogy amikor a H oszlop legördülőjéből "státusz változás" történik akkor az egész sort töltse ki azzal a színnel, ami a státuszhoz tartozzik. Hogyan tudnám ezt megoldanim? A chatgpt olyan bonyolult választ ad, hogy azt meg sem tudom csinálni
-
#51979
Fferi50
Topikgazda
istvankeresz
#51972
Fferi50
Topikgazda
válasz
istvankeresz
#51972
üzenetére
Szia!
" a Chr(34) & "SZ" & Chr(34) eredménye "SZ", azaz amit én akartam"
Ami egyáltalán nem csoda, hiszen az idézőjel karakterkódja 34. Vagyis amit beidéztem tőled, annak a végeredménye ""SZ"" és így lesz a képletben "SZ"!, tehát a szövegbe ágyazott idézőjeleket duplázni szükséges, ha képletet viszel be VBA-ban a cellába.
Üdv. -
Fferi50
Topikgazda
válasz
karlkani
#51970
üzenetére
Szia!
Ugye nem baj, hogy csak az egyenlőségjel végéig másoltam ki a feltett kérdést? Mert a többi nem játszik a problámát illetően.
Egyébként a Range alapértelemzése Value. Az szerintem sajnos probléma - és problémát okozhat a végrehajtásban - ha nem következetes egy programozási nyelv. (Nem kétlem, hogy valóban képlet került az egyébként "értéket" váró cellába - feltételezhetően a nyitó egyenlőségjel miatt. Ettől még szerintem következetlen a történet, persze ez legyen az én bajom.)
Üdv. -
Üdv!
SOS segítséget kérnék, beadandót csinálok, a tanári videóban DARABHA függvény kellene, de nekem ilyen nincs, van darab, darab2, darabteli, darabhatöbb. Ilyenkor mizu van? -
#51971
istvankeresz
aktív tag
karlkani
#51967
istvankeresz
aktív tag
válasz
karlkani
#51967
üzenetére
Szia!
Köszi a választ. Nem netes gépról írtam át, így nem copy-paste volt, elgépeltem. Sorry.
VBA-ban készült egy gomb, amit ha megnyomok, akkor ezt képletet szövegkként másolja át, úgyhogy ne képletként nézz rá, hanem sima text-ként, de mindegy is. Megoldottam a Chr(34)-el.
-
karlkani
aktív tag
válasz
Fferi50
#51969
üzenetére
ThisWorkbook.Sheets(Textbox11.Value)Range.("A18")=
Tévedés, ebben a formában semmit nem fog adni.
Én csak Range("A18")=-t adtam meg, .Formula nélkül is képletet tesz a cellába (2021-es Excel).
Range("A18") = "=21+SUM(F2:J2)-SUMIF(M2:M200,""SZ"",N2:N200)"
Töröltem a sok felesleges zárójelet.
-
#51969
Fferi50
Topikgazda
istvankeresz
#51966
Fferi50
Topikgazda
válasz
istvankeresz
#51966
üzenetére
Szia!
"ThisWorkbook.Sheets(Textbox11.Value)Range.("A18")="
Ez így az adott cellának értéket fog adni. Ha képletet szeretnél a cellába tenni, akkor aThisWorkbook.Sheets(Textbox11.Value)Range.("A18").Formula-> ebben az esetben angol függvénynevek kellenek
vagyThisWorkbook.Sheets(Textbox11.Value)Range.("A18").FormulaLocal-> ebben az esetben használható a magyar függvénynév - viszont nem hordozható a makró, más nyelven nem fog működni.
Ami a "SZ" -t illeti: A képletet szövegként kell megadni, a szövegben az idézőjelet meg kell duplázni, valahogy igy:ThisWorkbook.Sheets(Textbox11.Value)Range.("A18").FormulaLocal = "=(21+SZUM(F2:J2))-(SZUMHA(M2:M200;""SZ"";N2:N200))"
Üdv. -
sonkuci
tag
Sziasztok!
Google táblázatokban lenne egy kisebb (hát igazából nagyobb) gondom.
Excelben tök jó a get.cell dolog, ezt is ti mutattátok nekem, hogy tudjam szűrni mi az ami félkövér, dőlt stb. Ott jól is működik, de most ezt kéne valahogy átültetnem google táblázatokba.. és nem megy.
Ott nincs ilyen feature, hogy get.cell...A következő lenne a dolog.
Munkalap1 A oszlopában dátumok vannak és arra lenne szükségem, hogy ha ezt átformázzák áthúzottra, akkor Munkalap2-n (ha úgy egyszerűbb, könnyebb akár lehet Munkalap1-n is egy segédoszlopban, bármire vevő vagyok) megjelenjen, hogy igaz, ha áthúzott a szöveg, vagy hát a dátum, hamis ha nincs áthúzva.Kicsit bonyolult, remélem érthető.. és hogy tud valaki segíteni!
Köszönöm előre is! -
#51967
karlkani
aktív tag
istvankeresz
#51966
karlkani
aktív tag
válasz
istvankeresz
#51966
üzenetére
VBA-ban angolul kell használni a képleteket. A SZUMHA részt nem értem, mi az a M2 200 és N2 200?
"SZ" helyett ""SZ""-t használj.
-
#51966
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Hogyan tudok egy képletet másolni VBA segítségével egyik cellából a másikba, ha van benne " ?
Ezt szeretném:
ThisWorkbook.Sheets(Textbox11.Value)Range.("A18") = ("=(21+SZUM(F2:J2))-(SZUMHA(M2 200);"SZ";N2 200))")És ugye a "SZ" miatt syntax error van.
Valami változóba kellene beletöltenem, és utána annak az értékét meghívni?
-
#51964
Delila_1
veterán
ElemiKoczka
#51963
Delila_1
veterán
válasz
ElemiKoczka
#51963
üzenetére
Ja, azt elfelejtetted említeni, hogy a látszólagos számok ezres csoportosításban látszanak.
-
#51962
Delila_1
veterán
ElemiKoczka
#51961
Delila_1
veterán
válasz
ElemiKoczka
#51961
üzenetére
Hogy?!
Muti egy képen. -
#51957
Delila_1
veterán
ElemiKoczka
#51956
Delila_1
veterán
válasz
ElemiKoczka
#51956
üzenetére
Próbáld meg az ÉRTÉK függvénnyel.
-
ace05
senior tag
Sziasztok!
A Következőt, hogy tudnám megcsinálni? Van egy oszlopom amiben leltár kódok vannak. Ezek tartalmaznak számokat, betűket és írásjeleket (kötőjel, /) Ez legyen a c oszlop. Azt szeretném csinálni, hogy a c2-es cella értékét keresse meg az E oszlopban és írja ki a d2-es cellába, hogy megvan-e vagy nincs. Ebben tudna valaki segíteni?
-
#51950
Delila_1
veterán
ElemiKoczka
#51949
Delila_1
veterán
válasz
ElemiKoczka
#51949
üzenetére
https://prohardver.hu/tema/excel/hsz_49013-49013.html
Itt a második bekezdésben leírtakat alkalmazhatod.
A szóközös helyett a szövegként szereplő számokat tartalmazó cellákra kell irányítottan beilleszteni az 1-est. -
#51949
ElemiKoczka
csendes tag
ElemiKoczka
csendes tag
Sziasztok!
Az eddig tökéletesen működő módszerek most nem működnek...
A cella tartalmát nem tudom számmá alakítani.
Mi lehet a probléma? -
#51948
-szabi-
addikt
Fire/SOUL/CD
#51941
-szabi-
addikt
válasz
Fire/SOUL/CD
#51941
üzenetére
Sajnos az A oszlopfejléc szélén a duplaklikk nem vált be.
Sose találtam volna ki, hogy a betű típusa, mérete okozza.
Köszi. -
válasz
Fferi50
#51945
üzenetére
2 db költségvetési táblázatot hasonlítok össze, régit az újjal, hogy melyek azok a kódok, amelyek az újban is megvannak, manuálisan, egyenként csináltuk ez mindig. Sokszor a 2 összehasonlítandó fileban lévő tartalom felépítése is teljesen eltérő. Lehet, hogy lehetne ezt makrózni, de én ahhoz sajnos nem értek.
-
Olyan problémával találkozott már valaki, hogy a keresés és csere ablakban, egy már ott lévő adatot nem tud kijelölni egérrel és beilleszteni az új, keresendő számot, szöveget, stb? Minden alkalommal bele kell, hogy kattintsak és backspace-szel kitörölni, de van, hogy így sem lehet beilleszteni, hanem keresés és csere bezár, újra ctrl+f és csak akkor lehet beilleszteni. Már másfél éve szerintem ezzel szívok, van, hogy folyamatosan csinálja, van, hogy csak néhány tétel után. Voltam már win10-en, win11-en jelenleg, mindkettő eredeti, az Office normális, előfizetés cucc. Olyan szinten meglassít ez engem a munkában, hogy a maradék hajam is kipotyog tőle lassan, megoldást nem találtam még rá.
-
Fferi50
Topikgazda
válasz
vilmaboy
#51942
üzenetére
Szia!
Először a C oszlop függvénye:
C2 cellába:=DARABTELI($D$2:$D2;D2)
Ha új Exceled van, akkor DARABHA a függvény neve.
A képlet húzható lefelé, amíg adatod van. Figyelj a $ jelekre lsz.
A B oszlop függvénye:
B2 cellát üresen hagyod.
B3 cella képlete:=HA(C3=1;"";HA(B2="";A2;B2))
Ez a képlet is húzható lefelé.
Annyi eltérés van a kívánalmaidtól, hogy az egy darabos termék C oszlopában is ott lesz az 1-es szám - a B oszlopban viszont nem lesz érték.
Módosítás
A C oszlop javításához a képletek:
C2 cellába:=HA(ÉS(DARABHA($D$2:$D2;D2)=1;DARABHA($D$2:$D3;$D3)=1);"";DARABHA($D$2:$D2;D2))
B3 cellába:=HA(VAGY(C3=1;;C3="");"";HA(B2="";A2;B2))
Üdv. -
vilmaboy
őstag
Sziasztok!
Szükségem volna egy függvényre, ami:
A tábla: A B C D oszlopok és nagyon sok sor...
1 oszlop cikkszámok. B oszlop alaptípus. C oszlop sorszám, D oszlop terméknév
A "D" sok egyező név van egymás alatt, mivel sok terméknek ugyan az a neve.
A feladat: Ha D oszlopban két terméknév egyezik egymás után, akkor írja ki a legfelső termék cikkszámát a B oszlopba. Ha a három vagy több egyezik, akkor is a legelső cikkszámát írja ki B oszlopba. A legfelső terméknév ami egyezett a többivel, annak a B oszlopát hagyja üresen. C oszlopban számozni kellene az egyező neveket. Az 1es mindíg a legfelső. Köszi a válaszokat -
#51941
Fire/SOUL/CD
félisten
-szabi-
#51939
-
-szabi-
addikt
válasz
Fferi50
#51936
üzenetére
Szia
Így néz ki:
Valamiért ott egy plusz sor.
Kipróbáltam a tisztít függvényt, majd a tisztító cellából másoltam és beillesztettem az értéket de úgy is ott a plusz sor.
Az említett szöveget betettem egy új doksiba és feltettem a onedrivera: klikk.SZERK:
Az excel online jól jeleníti meg de ha offline excel 2016 nyitom meg akkor ott van.üdv
-
lacipapi
csendes tag
Sziasztok!
Az megoldható, hogy egy betöltött táblázat változtatását egyszerre több helyre elmentse ugyanazon a gépen. A lényeg hogy ne keljen minden mentésnél újra végigcsinálni a műveleteket, hanem a géphez csatlakoztatott több penre is kimentse. Még az is jó lenne, ha egy hiányzó pennél ne álljon le hibaüzenettel. A másik kérdésem az lenne, hogy egy makróban mit kell beírni, hogy amikor elvégezte a dolgát mindig frissítse a számolást.
Előre is köszönöm a segítséget.
Üdv Laci -
-
-szabi-
addikt
Hi
A cellában van egy hosszabb mondat.
Mikor bekapcsolom, hogy sortöréssel több sorba akkor létrejön egy felesleges üres sor.
Azt hittem ott maradt egy cellán belüli enter de nem.
Ha a cellából a mondatot kijelölöm és átrakom másik cellába magával viszi a felesleges üres sort.
Átmásoltam wordbe, hogy megnézzem nincs e ott valami plusz karakter de nincs.
Nem jövők rá, mi okozza ezt?üdv
-
#51933
Delila_1
veterán
istvankeresz
#51931
Delila_1
veterán
válasz
istvankeresz
#51931
üzenetére
Szívesen.
-
#51932
Delila_1
veterán
istvankeresz
#51931
Delila_1
veterán
válasz
istvankeresz
#51931
üzenetére
Az eredeti makródban meghatároztad az Ir változót, ami az utolsó (vagy az utolsót követő első üres) sor. Ezt használhatod fel a belső ciklusban.
For Each ws In ThisWorkbook.WorksheetsActiveWorkbook.Sheets("Maradék szabadságok").Cells(Ir,2) = ThisWorkbook.Sheets(ws.Name).Range("A2")Ir=Ir+1Next ws -
#51931
istvankeresz
aktív tag
Delila_1
#51928
istvankeresz
aktív tag
válasz
Delila_1
#51928
üzenetére
Szia!
Na ez már alakul, köszi, de így jobbra lépeget cellánként. De én meg azt szeretném, hogy lefelé lépegessen. Sajnos elírtam a korábbi bejegyzésemben. Nem az a cél, hogy B9, C9 D9, STB:, hanem az, hogy B9, B10, B11, stb. Elnézést a félreinformálásért.
Megcserélem, és módosítom a Cells értékeket és jó lesz.
Köszönöm! Nagy segítség vagy!
-
#51929
Delila_1
veterán
istvankeresz
#51927
Delila_1
veterán
válasz
istvankeresz
#51927
üzenetére
Módosítottam az előzőt, nézd meg!
-
#51928
Delila_1
veterán
istvankeresz
#51927
Delila_1
veterán
válasz
istvankeresz
#51927
üzenetére
Persze próba nélkül.oszlop=2For Each ws In ThisWorkbook.WorksheetsActiveWorkbook.Sheets("Maradék szabadságok").Cells(9,oszlop) = ThisWorkbook.Sheets(ws.Name).Range("A2")oszlop=oszlop+1Next ws -
#51927
istvankeresz
aktív tag
Delila_1
#51926
istvankeresz
aktív tag
válasz
Delila_1
#51926
üzenetére
Hát csak nem sikerül.
Eléggé összekutyultam a sok próbálkozással. Letisztázva ez is azrt csinálja, hogy végiglépked a worksheet-eken és átmásolgatja az A2 értéket a B9-be. Innen hogyan tovább? Hogy a következő ciklusban már B9 helyett C9 legyen?
Private Sub CommandButton7_Click()Dim ws As WorksheetThisWorkbook.Sheets("Maradek_TEMPLATE").CopyActiveWorkbook.Sheets("Maradek_TEMPLATE").Name = "Maradék szabadságok"For Each ws In ThisWorkbook.WorksheetsActiveWorkbook.Sheets("Maradék szabadságok").Range("B9") = ThisWorkbook.Sheets(ws.Name).Range("A2")Next wsEnd Sub -
#51926
Delila_1
veterán
istvankeresz
#51925
Delila_1
veterán
válasz
istvankeresz
#51925
üzenetére
Az Ir értékét a For Each cell cikluson belül kell növelned.
-
#51925
istvankeresz
aktív tag
istvankeresz
aktív tag
Üdv!
Készítettem egy gombot, ami egy üres, template táblázatba (Maradek_TEMPLATE) összegyűjti a worksheet-ekből a kívánt értékeket és beírja a táblázatba. Odáig eljutottam, hogy végigmegy az összes worksheet-en, a megfelelő cellából kiveszi az értéket, de sajnos nem ugrik egy cellával lejebb, hanem a B9-be írja felűl mindig az átmásolandó értéket. A célom az lenne, hogy sorban B9, C9, D9...stb. cellákba másolja át a kiolvasott értékeket.
Private Sub CommandButton7_Click()Dim lr As LongDim cell As RangeDim ws As WorksheetThisWorkbook.Sheets("Maradek_TEMPLATE").CopyActiveWorkbook.Sheets("Maradek_TEMPLATE").Name = "Maradék szabadságok"lr = Sheets(Maradék szabadságok).Range("A" & Rows.Count).End(xlUp).Row + 1For Each ws In ThisWorkbook.WorksheetsFor Each cell In ThisWorkbook.Sheets(ws.Name).Range("B2:B28")ActiveWorkbook.Sheets(ws.Name).Range("B9") = ThisWorkbook.Sheets(ws.Name).Range("A2")cell.Value: lr = lr + 1Next cellNext wsEnd Sub -
#51921
Fire/SOUL/CD
félisten
elttiL
#51920
-
elttiL
senior tag
Üdv. Tapasztaltatok ilyet mostanában, hogy: csinálsz egy másik munkalapról, vagy egy másik excel táblából egy cella hivatkozást. Észre veszed, hogy nem frissül a cella tartalma. Megnézed és a hivatkozáskori érték szerepel a cellában, nem pedig a hivatkozás.
Gépiesen sok ilyen hivatkozást csináltam (nyilván nem nézem meg minden linkelés után, hogy ott van e a hivatkozás) utána, amikor már frissült értékeknek kellett volna szerepelnie akkor vettem ezt észre.
xls kiterjesztésnél tapasztaltam, kínomban xlsx-re mentettem, ott már nem jelentkezett. -
#51919
Win-T
őstag
Fire/SOUL/CD
#51918
Win-T
őstag
válasz
Fire/SOUL/CD
#51918
üzenetére
Értem, köszönöm!
-
#51918
Fire/SOUL/CD
félisten
Win-T
#51917
-
#51917
Win-T
őstag
Fire/SOUL/CD
#51915
Win-T
őstag
válasz
Fire/SOUL/CD
#51915
üzenetére
Teljesen jó, nagyon köszi (Delila-nak is!).
Írod, Excel 2021 esetén... a 2019 ezt akkor nem ismeri? Mert bent a melóban ilyen régi van csak. Bár ha esetleg nem akkor a lenti HAHIBA biztosan jó lesz. -
#51916
Delila_1
veterán
Fire/SOUL/CD
#51915
Delila_1
veterán
válasz
Fire/SOUL/CD
#51915
üzenetére
Másik függvénnyel:
=HAHIBA(INDEX(C:AA;2;HOL.VAN("X";C3:AA3;0));"")
Lefelé másolhatod.Bocsi, nem Neked akartam címezni, hanem Win-T-nek.
-
#51915
Fire/SOUL/CD
félisten
Win-T
#51914
-
#51913
Fire/SOUL/CD
félisten
skyrush7
#51912
válasz
skyrush7
#51912
üzenetére
=HIPERHIVATKOZÁS("#" & KARAKTER(HOL.VAN(MA();A1:E1;0)+64) & SOR(A1);"Mai nap")
Infó:
1. KARAKTER fx-ben azért van a +64 mert a karaktertáblázatban a nagybetűs a ("A") karakterkódja decimálisan 65, tehát 65=A, 66=B, 67=C 68=D stb stb. A HOL.VAN fx azt adja vissza, hogy az adott cellatartomány hányadik oszlopában talált egyezést (példában ez 4. oszlop), ezért 4+64=68, ez meg a "D" karakterkódja lesz
2. a SOR fx-be meg mindig az adott cellatartomány (példábanA1:E1) első celláját add meg (példában ez A1) -
skyrush7
aktív tag
Sziasztok!
Egy, a mai dátumra mutató hiperhivatkozást szeretnék létrehozni, munkahelyi jelenléti táblázathoz van rá szükségem. Az előző évi táblában van egy ilyen gomb, de nem tudom se szerkeszteni, se másolni, hogy működjön...
Ameddig eljutottam, az az hogy vertikálisan már tudok hivatkozni:
=HIPERHIVATKOZÁS("#A"&HOL.VAN((MA();A3:A50;0);"Mai NAP")
Itt lényegében kidobja a az egyezés relatív helyét a kezdősortól (ennek függvényében kell hozzáadni annyit, amilyen messze van az első cellától az első adat) és hozzáfűzi az A-t, így megkapom a mai napra mutató linket.
Horizontálisan ezt hogyan tudnám megoldani? Van valakinek ötlete erre? -
karlkani
aktív tag
válasz
DasBoot
#51908
üzenetére
Meg kellene osztani a követelményeket, akkor tudnának segíteni a fórumtársak, akik értenek a makróhoz. Sajnos ez ügyben nem tudok segíteni (nem igazán értek hozzá), általában itt kérek segítséget, vagy privátban a topikgazdától, ha valamit meg szeretnék oldani makróval.
-
-
karlkani
aktív tag
válasz
Delila_1
#51901
üzenetére
Nem tudom régebbi verziók esetén hogyan működik, 2021-nél egyetlen képlet elég ehhez, igaz a számok egymás alá kerülnek. Cellahivatkozásokkal megoldható az elrendezés, ha így nem megfelelő.
=SORBA.RENDEZ(INDEX(EGYEDI(VÉLETLENTÖMB(6^2;1;1;45;IGAZ));SORSZÁMLISTA(6)))Cellába kattintással frissül (F9-re tenyerelve még jópofa is, akkor áll le, amikor elengedem a gombot). Lehet egy rövid makrót írni, ami egy ideig pörgeti a számokat, majd megáll (gombot kitenni).
-
Delila_1
veterán
válasz
DasBoot
#51899
üzenetére
Kiegészítettem bela85 linkelt makróját úgy, hogy a számokat emelkedő sorrendbe rakja.
Sub LottoSzamok()Dim Rng As Range, WorkRng As Range, xNumbers(49) As Integer, xTitleId As StringDim xIndex As Integer, xNum As Integer, Cim As Range, Lapnev As StringLapnev = Selection.Worksheet.NameOn Error Resume NextxTitleId = "Véletlen számok"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Melyik cellában kezdődjön?", xTitleId, WorkRng.Address, Type:=8)Set WorkRng = WorkRng.Range("A1")For xIndex = 1 To 49xNumbers(xIndex) = xIndexNextFor xIndex = 1 To 6xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)xNumbers(xNum) = xNumbers(50 - xIndex)NextSet Cim = Range(WorkRng.Range("A1"), WorkRng.Offset(0, 5))Range(Cim.Address).SelectActiveWorkbook.Worksheets(Lapnev).Sort.SortFields.ClearActiveWorkbook.Worksheets(Lapnev).Sort.SortFields.Add2 Key:=Range(Selection.Address), _SortOn:=xlSortOnValues, Order:=xlAscendingWith ActiveWorkbook.Worksheets(Lapnev).Sort.SetRange Range(Selection.Address).Header = xlGuess.MatchCase = False.Orientation = xlLeftToRight.SortMethod = xlPinYin.ApplyEnd WithEnd Sub
Mondjuk lehet gyorsabb lett volna megcsinálni, mint ezt begépelni 
Új hozzászólás Aktív témák
Hirdetés
- Komolynak tűnő gamepadekkel gyarapította palettáját a Razer
- Elektromos autók - motorok
- Tőzsde és gazdaság
- Óra topik
- Samsung Galaxy Felhasználók OFF topicja
- Battlefield 2042
- Fali konzol lapos tévékhez
- Építő/felújító topik
- Robogó, kismotor
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Játékkulcsok a legjobb áron: Steam
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- BESZÁMÍTÁS! Gigabyte AORUS B550M R7 5700X 32GB DDR4 1TB SSD RX 6800 16GB Zalman i3 NEO Gigabyte 850W
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- Xiaomi Redmi Note 13 Pro 256GB Kártyafüggetlen 1 év Garanciával
- BESZÁMÍTÁS! 6TB Western Digital WD RED SATA HDD meghajtó garanciával hibátlan működéssel
- BESZÁMÍTÁS! Asus B450 R7 2700X 16GB DDR4 512GB SSD RTX 2070 8GB Rampage SHIVA Thermaltake 500W
Állásajánlatok
Cég: FOTC
Város: Budapest