Szia Imre!

Sok sikert! Azért, ha megvan a megoldás, azt is közre adhatod 🙂 hadd tanuljunk mi is egy kicsit!

üdv’
verax

Sziasztok! Szia Adri!

Köszönöm Imre! Nekem tetszik a megközelítésed. Nem keresgélünk kimutatást a munkalapon, hanem célirányosan odamegyünk, ahol lennie kellene.
Apró kiegészítés: Lehet, hogy a leegyszerűsített példa miatt kerülte el a figyelmemet, hogy vizsgáljam az „K”-val jelölt táblázatok szélességi méretét. Adri leírásában ott van:
„…nem tudjuk hány táblázat lesz és mekkora méretű,…” továbbá: „…készüljön kimutatás pontosan a táblázattal egy vonalba, két oszloppal jobbra.”
Ezek miatt mégis vizsgálni kell a táblázatokat is. Kicsit összetettebb a megoldás de nem reménytelen.

1. Keresed meg a „K”-t!
2. Határozd meg a hozzá tartozó táblázatot! Imre által javasolt, a kimutatás tábla nevére való rákérdezéshez hasonló módon. A táblázatok ListObject típusú objektumok.
3. Állapítsd meg a táblázat szélességét! Ezt az értéket használd a „K”-kat tartalmazó cellákhoz viszonyítottan eltolt kimutatások létezésének vizsgálatához – ahogyan Imre mutatta!

Az On Error Resume Next is hasznos. Én egy String típusú változónak adom át a kimutatás tábla nevére való rákérdezés eredményét. Ezt az eredményt vizsgálom tovább egy Select Case elágazásban. Létező kimutatás tábla esetén (Err.Number=0) a Case 0, nem létező esetén (Err.Number=1004) a Case 1004 irányt választom. Nyilván ez utóbbiban kell a kimutatás tábla elkészítéséről gondoskodni.

üdv’
verax

Szia Gojo-Mann!

Ezzel a jelenséggel találkozhatunk például olyankor, ha valamit rosszul írtunk, valamire hibásan, elgépelve hivatkozunk. Egyébként pedig, mivel nem adtál közre konkrétumot, nagyon nehéz lenne konkrétummal válaszolni.

üdv’
verax

Szia csokesz!

Az Excel 2016 még nem ismeri az EGYEDI() függvényt, ezért kaptad a #NÉV? hibaüzenetet.
A feladat azért így sem megoldhatatlan. Hoztam is egy példát – illetve kiegészítettem az általad hozott fájlt.
Az „Axapta” munkalap „AG6:AK85” tartományát tekintsd át! Ott találod azokat a segéd számításokat, amelyek helyettesítik az említett EGYEDI() függvényt. Megtehettem volna, hogy a külön oszlopokban lévő képleteket összeszerkesztem egy sokkal nehezebben áttekinthető „óriás” képletté. Nem tettem. Így könnyebb elemezned, könnyebb belőle tanulnod.

üdv’
verax

Szia csokesz!

Első kérdés: Az Excel melyik változatát használod?

„…különböző adatokat, hogy lehet egyesíteni…”
Különböző adatokat legegyszerűbben az „&” karakterrel lehet egyesíteni.
="cso"&"kesz"

„…és összeadni?
Különböző adatokat legegyszerűbben a „+” karakterrel lehet összeadni.
=3+4

„Az A oszlopban sokféle azonosító van, a B oszlopban összegek vannak.
Milyen képletet tudok készíteni hozzá?”

Attól függően, hogy milyen eredményt vársz, használhatsz számtalan képletet különféle beépített függvénnyel. Azokon felül amiket Imre javasolt, használhatod akár az ABS(), az ÁTLAG(), az AZONOS(), a BAL(), a CSERE(), a CSONK(), a DARAB(), a DARAB2(), a DARABTELI(), … csak, hogy a leggyakoribbakat említsem és még sorolhatnám.

„Viszont az a gond mellé, hogy az A oszlopban változnak az azonosítók. ”
Tedd írásvédetté az azonosítókat tartalmazó cellákat! Akkor nem tudnak majd változni.

Látod, ugye!?
Meg ne sértődj, de ha a kérdésed nem értelmezhető, a válasz sem lesz értelmezhető!

Remélem azt is látod, hogy a fenti „nesze semmi fogd meg jól” válasz ellenére mégis kaptál segítséget. Imre is és én is abban igyekszünk neked segíteni, hogy megtanulj helyesen kérdezni.

üdvözlettel
verax

Nagyon szívesen!
Igen. Én is úgy látom, hogy az „ÚT” elején jársz. Ezért is részleteztem a javaslatomat, hangsúlyoztam az eltéréseket.

Sziasztok!

Több, mint egy éve felvetett eddig megoldatlan kérdés megválaszolásához mutatok irányt.

1. Az eredeti kérdés mellékleteként megismert fájl „Adatok” munkalapjának „A” oszlopában felsorolt 22 darab terméktulajdonság nem szerepel minden termékhez tartozó tulajdonságlistában. Az „A50” cellában a „Névleges feszültség” szövegnek kellene szerepelnie. Ez könnyen javítható hiba. Azonban az ilyen típusú, az eredeti adatforrás szerkezetében mutatkozó rendellenes eltérések sok bosszúságok okozhatnak. Törekedjünk a szabályos szerkezetre! Ha sikerült elérni, hogy minden termék esetén, minden tulajdonság, mindig ugyanabban a sorrendben szerepeljen, akkor áttérhetünk a végső megoldást adó képlet megfogalmazására.

2. Transzponálást használva másoljuk át a terméktulajdonságok listáját egy új munkalapra!
3. Használjuk az INDIREKT(), az OSZLOP() és SOR() függvényt! A képlet:
=INDIREKT("Adatok!B"&(OSZLOP()+1)+(SOR()-2)*22)
Ezt a képletet kell vízszintesen elhúzni a terméktulajdonságok számának megfelelő (a példában a „V”) oszlopig , függőlegesen a termékek számának megfelelő sorig.
4. Végül erősen ajánlott a képleteket másolás és irányított beillesztés – értékek beillesztése utasítással konkrét értékekre cserélni.

üdvözlettel
verax

Köszönöm Imre!
Ez esetben… noha csak a Google Táblázatban tudtam kipróbálni, mégis javaslom a TRANSZPONÁLÁS() [ TRANSPOSE() ] és SZŰRŐ() [ FILTER() ] függvényből megalkotott tömbképlet használatát.
{=TRANSZPONÁLÁS(SZŰRŐ(szamok;SOR(szamok)<>SOR()))}

Itt a SZŰRŐ() [ FILTER() ] függvény végzi el azt a feladatot, amire a fentebb említett két másik függvény nem alkalmas. Ezután itt is a TRANSZPONÁLÁS() függvénytől várjuk az adatok végső elrendezését.

üdv’
verax

Szia Gojo-Mann!

Bármelyik parancsgomb írja át Image1 vezérlő Picture tulajdonságát, egyúttal tárold el a kép forrására való hivatkozást! Nyomtatás előtt így mindig tudni fogod, hogy melyik diagramot kell nyomtatni.

üdv’
verax

Sziasztok! Szia Gergő!
15-én 20:10-kor kérdezted, hogy van-e közzétett videó a több szintű érvényesítési lista készítés általam sugallt más módon való megvalósításáról. Eddig nem találtam. Nem állítom, hogy nincs. Mivel megüzented, hogy valami baj van a küldött fájllal, ezért most leírom a teendőket lépésről lépésre.

Jelöld ki a „Menülépcső” munkalapot!
Jelöld ki az „A” oszlopot!
Adj nevet a kijelölt tartománynak! Írd a Név mezőbe: Forrás (Más nevet is adhatsz, csak következetesen használd a későbbiekben.)
Jelöld ki a „B” oszlopot!
Adj nevet a kijelölt tartománynak! Írd a Név mezőbe: Eredmény
Jelöld ki a „B1:B7” tartományt!
Adj nevet a kijelölt tartománynak! Írd a Név mezőbe: A_szint

Jelöld ki a „Lenyílók” munkalapot!
Jelöld ki a „B2” cellát!
Nyisd meg a Névkezelőt! (Ctrl+F3)
Hozz létre egy új nevet! Kattints az „Új …” feliratú gombra!
{Név: Lista_eleje;
Hivatkozás: =HOL.VAN(Lenyílók!A2;Forrás;0)}
Kattints az „OK” gombra!
Hozz létre még egy új nevet! Kattints az „Új …” feliratú gombra!
{Név: Lista_vége;
Hivatkozás: =DARABTELI(Forrás;Lenyílók!A2)+Lista_eleje-1}
Kattints az „OK” gombra!

Jelöld ki az „A2” cellát és állíts be rá érvényesítést!
{Megengedve: Lista;
Üres cellák mellőzése: Bejelölve;
Legördülő lista: Bejelölve;
Forrás: =A_szint}
Jelöld ki a „B2” cellát és állíts be rá érvényesítést!
{Megengedve: Lista;
Üres cellák mellőzése: Bejelölve;
Legördülő lista: Bejelölve;
Forrás: =INDEX(Eredmény;Lista_eleje):INDEX(Eredmény;Lista_vége)}

Állítsd be a „C2:D2” tartományra is a „B2” cellára beállított érvényesítést!

Jelöld ki a „B2” cellát!
Jobb alsó sarkánál fogva húzd át a „D2” celláig!
vagy
Jelöld ki a „B2:D2” tartományt!
Használd a jobbra kitölt (Ctrl+J) gyorsbillentyűket!
vagy
Egyszerűen használd a Másolás (Ctrl+C) és Beillesztés (Ctrl+V) parancsokat!

üdv’
verax

Szia Imre! Sziasztok!

Köszönöm! Én is érdeklődve várom Gergő válaszát. 😉

Az IDBE Ribbon Creator shareware változatát (2 tabs, 3 groups, 10 controls) használom az alapok gyors elkészítéséhez, azután az így létrehozott fájl customUi.xml állományát módosítom, ahol szükséges. Néha más állományokhoz is hozzá kell nyúlnom. Erre példa, ha az IDBE Ribbon Creator által nem ismert ikonokkal szeretném különlegessé tenni a menüszalagot.

Sok munkát tettem bele? Nekem kedves időtöltésem az Excellel foglalkozni. Ez sok minden megmagyaráz. Remélem a példá(i)m nyomán többen kedvet kapnak, hogy mély barátságot alakítsanak ki a VBA nyelvvel! 🙂

üdvözlettel
verax

Szia Gergő!
Néhány kiragadott gondolatodra reagálok.

„ezt az excelt nagyjából nyolcan fogjuk szerkeszteni”
Jól gondoltam. Ezért tartanám távol a munkalaptól a felhasználókat és irányítanám a munkájukat párbeszéd ablakokkal.

„…ennek egy hátránya, hogy ha bejön egy már meglévő gyümölcs típusból egy új adagszámú, akkor bele kell könyvelni egyszer a raktárban lévő mennyiségekhez… illetve bele kell könyvelni a rejtett munkalapra.
A termékeket csak a Termék törzsbe kell felvenni. A mennyiségi adatok rögzítésekor először a Termék törzs egy-egy elemét választjuk ki, majd ezután rögzítjük a készlet mozgás jellegét (növekedés vagy csökkenés) és mennyiségi adatát. Ezzel biztosítjuk, hogy csak létező termékhez rendeljünk mennyiségi adatokat.

„Illetve ha esetleg valamelyik adagszámú gyümölcs selejtezésre kerül, akkor innen manuálisan kell majd kitörölni.”
Adatokat nem törlünk, csak elérhetetlenné tesszük a további műveleteket, lezárjuk a hozzáférést.

„…ha megjelenik egy teljesen új fajta „gyümölcs” akkor pedig egy új táblázatta kell bővíteni ezt a 3. munkalapot…”
Más szerkezettel is megvalósítható a függő lenyílók rendszere.

„…az adagszám egy 10 jegyű számkód …”
Ezzel kapcsolatos kérdés: Előfordulhat-e, hogy ugyanaz az „adagszám” egynél több termékkel (almával és barackkal) is kapcsolatba kerüljön? Azt feltételezem, hogy ilyen nem fordulhat elő.

„… ez később a végtelenségig fog bővülni …”
Időszakos zárásokkal észszerű határok között lehet tartani a táblázat méretét.

„… elkészítettem már úgy, hogy ezeket kiszürkíti …”
Talán jobb lenne teljesen láthatatlanná tenni a lezárt tételeket. El tudom képzelni, hogy egy kritikus mennyiség felett milyen bosszantó lehet a passzív tételek kerülgetése.

Természetesen ezek csak javaslatok. Ha valamelyiket mégis megfontolásra alkalmasnak tartod, de nem ismered a megvalósítás módját, írj bátran!

üdvözlettel
verax

Nagyon szívesen!

Sziasztok!
Akkor ez így meg is oldódott?
Akkor most lemaradtam valamiről!? …és a kimutatás táblából, hogyan kerülnek át az adatok az adatbázisba? Mert ez volt az eredeti kérdésfelvetésben. Ugye emlékezünk rá:
„…egy adatbázisba kellene összegyűjtenem.”
Továbbra is fontosnak tartom a pontos fogalom használatot, a pontos kérdés felvetést. Még akkor is, ha Imrének hatalmas rutinja van a rosszul megfogalmazott kérdések mögött húzódó valódi kérdések felismerésében. Hiszen az eredeti kérdésben még ezt is olvashattuk:
„…
Feladat:
„Termék ID” oszlopban az azonos számok (Termék ID-k) mellett lévő darabszámok ( teljes készlet) összeadása.
Röviden: Termék ID darabszámának összeadása.
…”
Nos: Ez így érthető is lenne … csak háááát, van vele egy kicsi baj. Az a kifejezés, hogy a „TermékID darabszámának összeadása” az jelenti, hogy összeszámláltatom (nem mást!) a TermékID oszlop sorait. Igen értem, Imre is értette már elsőre is.

Később Csaba kiegészítette és pontosította a kérdést:
„Az a cél, hogy az azonos Termék ID darabszámai összeadódjanak, és az így összeadott TermékID-k, az egységárból már felszorozható az összértékeket megkapva.”

A fogalmazás továbbra is pontatlan.
„…azonos TermékID darabszámai összeadódjanak…” (jelentése az egy-egy féle termék, TermékID oszlopban lévő sorainak darabszáma adódjon össze) helyett az azonos TermékID-khez tartozó készletek darabszámai összeadódjanak
„…az így összeadott TermékID-k…” (jelentése az egyedi termékek TermékID oszlopbeli sorainak száma) helyett itt is a „TermékID-khez tartozó készletek összesített darabszámai” lenne a helyes meghatározás
„…egységárból már felszorozható az összértékeket…” Szerencsére a képmelléklet segítségünkre van. Jól látható, hogy ezt a szorzást a táblázat „G” oszlopa már tartalmazza. Tehát teljesen felesleges volt eddig a darabszámokkal bajlódni. Nem a készletek darabszámait kell összeadni, hanem az „Áru nettó összértéke” oszlop TermékID-k szerint összetartozó értékeit.
Végezetül: a „megkapva.” szó valami további műveletet sugall. Például: „… összértékeket megkapva kördiagramon ábrázolni azokat.” Helyesen: megkapni.
Összefoglalva: A cél:Az egyedi TermékID-khez tartozó összesített nettó nyilvántartási értékek meghatározása.
Kulcskifejezések:
-egyedi TermékID
-…hez tartozó
-összesített
-nettó nyilvántartási értékek (a táblázatban: Áru nettó összértéke)
Tanulság: A pontos kérdésfelvetés szinte lépésről lépésre meghatározza a megoldást menetét is.
Biztosan sokaknak nem tetszik ez a „szőrszálhasogatás”. Azt azonban meg kell érteni és el kell fogadni, hogy a számítástechnikában nem engedhető meg a kétértelmű fogalmazás.

(10 féle ember van. Az egyik, aki érti az informatikát és a másik, aki nem. valamint: Hibát ejteni nem bűn, beletörődni igen.)

A lényeg, hogy Csaba elkezdett barátkozni a kimutatásokkal.

üdv’
verax

Sziasztok! Szia elaci!

Delila gyors válasza megoldotta a problémát. De ha nem szeretnél segédoszlopot beiktatni, akkor az Excel2019-es változatától már kihasználhatod a FŰZ() függvény tulajdonságát, amely tartományként megadott cellák értékeit is képes összefűzni.
1. =FŰZ(Forduló.$C$2:$G$5)
Az így előállított szövegben az 1. karaktertől kezdve keressük például az „A2” cella értékét.
2. =SZÖVEG.KERES($A2;FŰZ(Forduló.$C$2:$G$5);1)
A megkapott számot elosztjuk az egy sorban lévő karakterek számával (5×4) és egészszámmá kerekítjük felfelé.
3. =KEREK.FEL(SZÖVEG.KERES($A2;FŰZ(Forduló.$C$2:$G$5);1)/20;0)
Ezzel megkaptuk, hogy a „Forduló” munkalap melyik sorában szerepel a példa szerinti „A2” cella értéke. Ezután nincs más dolgunk, mint használni az INDEX() függvényt.
4. =INDEX(Forduló.$A$2:$A$5;KEREK.FEL(SZÖVEG.KERES($A2;FŰZ(Forduló.$C$2:$G$5);1)/20;0))

Ezt a képletet azután szépen végighúzhatjuk az oszlopon.
Természetesen ez csak akkor működik, ha amint írtad, a keresett értékek (1001 és 1020 közé esnek) mindegyike ugyanannyi karakterből áll és ez a karakter mennyiség minden cellában ott van.
Tehát minden sor is ugyanannyi – itt 20 – karakterből áll.

üdvözlettel
verax

Szia Adri!

Annyit még hozzátennék, hogy biztosan tudnánk neked segíteni az „adatbázis” szerkezetének optimalizálásában, az érvényét vesztett adatok kezelésében ha küldenél egy sematikus szemléltetést a jelenlegi állapotról.

üdv’
verax

Sziasztok!
Sajnos nem mindenkinek áll rendelkezésére az Office365. Nekik sem kell búslakodniuk.
A fenti példafájlban az
=INDIREKT("A"&KICSI(HA($B$2:$B$6=$D$1;SOR($B$2:$B$6);"");$D$2))
képlet tömbképletként (C.S.E – azaz Ctrl+Shift+Enterrel) érvényesítve, szintén választ ad a kérdésre.

új évi első üdvözlettel
verax

Sziasztok! Szia tboy72!

Mi lehet a hiba? Inkább: Melyek lehetnek a hibák?!

Az első észrevételem, hogy csak a legvégső esetben használj GoTo utasítást! Bár ha körültekintő vagy, írhatsz használható kódot, csak sokkal nehezebb áttekinthetővé tenni. Figyelni kell arra, hogy a GoTo utasítás nem elágazás. Odaugorhatsz a programkód cimkével jelzett helyére, de a feldolgozás tovább folytatódik (az összes többi cimkén át) az eljárás végét jelző utasításig. Ezért érdemes inkább külön eljárásokba „kiszervezni” a különböző feladatokat.

A következő, hogy bár Imre javasolta az adatok átszervezését, te ezt a munkalapon nem tetted meg viszont a VBA kódban már az új szerkezet szerint hivatkozol a cellákra.
If Cells(x, 4) … – a „Munka1” munkalap „D” oszlopában nincsenek adatok.

Továbbá…
If Cells(x, 4) > „22:00” And Cells(x, 4) < „06:00” Then – hááát, ilyen időpont pedig nincs.

A kategória változóidat (a, b, c, d és e) ugyan kiíratod a „G2:K2” tartományba, de nem (jól) gondoskodsz a változók értékének frissítéséről – csak nullázod azokat.

Elkerülte a figyelmedet, hogy a hétfőt másként kell kezelni, mint a többi munkanapot, tekintettel arra, hogy a hétfő előtt munkaszüneti nap van. (Vagy nem következetes az időszakok kategorizálása.)

Létrehoztad a változókat. Ez rendben van. Nem adsz nekik értéket. Ez nincs rendben. Később mégis adsz értékeket. Ez sincs rendben, hiszen megfeledkeztél róla, hogy az x változód a munkalapon lévő cellák sorértékét hivatott tárolni. Az x=0 (Cells(0. sor, 4. oszlop) érvénytelen címet eredményez.

Két hozzászólásodban ellentmondásba keveredtél (de legalábbis nem egyértelmű):
„Ha az időintervallumból esetleg átlóg egy következő kategóriába, akkor már oda kellene elkönyvelni, mint eredményt.”
és
„A … 07:30-16:00 idősávot vehetjük bázisidőnek, mert ha lefelé, vagy felfelé kilóg belőle akkor már a másik idősávba kellene számolni.”

Egy másik ellentmondás a 6:00 és 7:30 közötti időszakkal kapcsolatos. A „Munka1” munkalapon színkódolt időszakok között nem szerepel, de a VBA kódban egyértelműen jelzed, hogy mi a szándékod vele. Ezért én is úgy kezelem ezt a másfél órát, hogy „hozzácsaptam” a 22:00 és 6:00 közötti időszak végéhez. Így tehát 22:00 és 7:30 közötti időszakról gondolkodtam.

A kezdő és a záró időpont is valamelyik tartományba fog esni. Melyik legyen a döntő?
Az is lehet egy szemlélet, hogy csak akkor tartozik egy bejegyzés a „bázis időszakba”, ha a kezdő és a záró időpont egyaránt az aktuális nap „bázis határai” között marad.
Ha
…a kezdő időpont a „bázis időszak” előtt van, de a záró már a „bázis időszakon” belülre esik, akkor az eredmény a „Bázis időszak előtt”
…a kezdő és a záró időpont a „bázis időszakon” belülre esik, akkor az eredmény a „Bázis időszaki”
…a kezdő időpont a „bázis időszakon” belülre esik, de a záró már a bázis időszak utánra, akkor az eredmény a „Bázis időszak utáni”

Készítettem egy példát, amelyben csupán a záróérték szerint osztályozom az időszakokat. A fenti dilemmát feloldhatod az „áttekintő” munkalap sorainak helyes kitöltésével.
A „Statisztika” nevű makrót futtasd – illetve tanulmányozd, módosítsd igényeid szerint.
Mivel a fórum nem fogad *.xlsm fájlokat, ezért tömörítve csatoltam a példa fájlt.

üdvözlettel
verax

Szia Speter!
Több félreértés nehezíti az életedet.
A példád bár nem tartalmazza az általad helyesnek vélt eredményt, mégis sejthető, hogy mit várnál.
Ne feledkezz meg arról, hogy előbb a zárójelen belüli műveletet kell elvégezni!
Nem vagyok benne biztos, de azt hiszem, a kerekítés szabályát az általános iskola 3. osztályában tanultuk, a negatív számokról pedig csak a 4. osztályban. Ebből következik, hogy amikor a kerekítésről tanultunk a „felfelé” kerekítés látszólag a „jobbra kerekítést” jelentette, hiszen jobbra egyre nagyobb számok találhatók, mégis ahogy Imre szabatosan írta a nullától távolodó irányt kellene értenünk. Ez az elv a negatív számok esetén is érvényes. Tehát a „lefelé” a nullához közelítő, a „felfelé” a nullától távolodó irányt jelzi.
Ha nem így lenne, akkor furcsa kerekítési értékeket kapnánk a negatív számok esetén.
-0,9 < -0,1
kerekítés(-0,9;0) <=>? kerekítés(-0,1;0)
-0,9 (felfelé kell kerekíteni) akkor tehát 0?
-0,1 (lefelé kell kerekíteni) akkor tehát -1?
0 > -1

Sziasztok! Szia Vilmos!
A példában szereplő képletek nem sérülnek, ha a teljes sort törli a felhasználó.
Nem tudom miféle képletek lehetnek az egyes sorokban, amelyek más sorok tartalmától függenek!?
Telefonkönyvben nem szokott ilyesmi előfordulni. Általában nem is indokolt képleteket használni ilyen nyilvántartásokban.
Továbbá attól, hogy lesz egy makró kód a már szükségtelen adatok törlésére, még nem lesz megoldva a sorok törlése elleni védelem; azaz nincs kiküszöbölve a véletlen törlés esete.
Tehát először érdemes átgondolni a munkalapok és a cellák védelmét. Következő lépésben a cellák (a sorok) közötti kapcsolatokat. Egyébként pedig adatbázisokból nem szoktunk adatsorokat törölni, hanem bejegyzéseket készítünk, amelyek jelzik hogy az adott rekord érvényét vesztette.
Azért ha mégis ragaszkodnál a makró kódos megoldáshoz, mellékelek egy egyszerű példát.

üdvözlettel
verax

Sziasztok!
Ne bántsátok az Excelt! 😉
A számolási hiba a tízes és a kettes számrendszer különbözőségéből és a számábrázolás során használt helyiértékek véges számából adódik.

További részleteket például itt is találsz.

üdv’
verax

Szia Miklós!

Végeredményben miért is van szükséged a nyomtatási oldalszám meghatározására?
Szeretnéd gyorsan megüzenni a nyomtatódnak, hogy melyik oldalt nyomtassa?

Én talán másképpen járnék el. Kiválasztanám a nyomtatandó termék(ek) cikkszámát, majd a hozzájuk tartozó adatokat összehordanám egy nyomtatási területre. Így nem a nyomtatandó oldal sorszáma, hanem a mindig ugyanazon nyomtatási terület adattartalma változna.

üdv
verax

Szia Miklós!

Esetleg mellékelnél egy fájlt, egy képet … valami szemléltetőt, egy „ebből szeretném, ezt az eredményt megkapni” félét?
Ha nem látjuk az adatszerkezetet, – nekem legalábbis – nehéz kitalálni, hogy pontosan mire is gondolsz. Lehet, hogy egy kis matekkal megoldható a kérdésed.
De így… hmm.. cikkszámok oldalszáma? … cella nyomtatási oldalszáma??
Továbbá megadni akarod a cella nyomtatási oldalszámát vagy megkapni? Nem mindegy. Fontos a pontos fogalmazás.

üdvözlettel
verax

Sziasztok!
Felesleges megvizsgálni, hogy egy cella nem üres-e, majd ezt követően, hogy mi az ami benne van.
Jelen esetben elegendő azt ellenőrizni, hogy ami benne van, az egyezik-e az „oszlopfejjel”
Így tovább „karcsúsodik” a képlet. Például a „B2” cellába írt (majd onnan az „O” oszlopig és a szükséges sorokig „tovább húzott”) egyszerű HA() függvény választ ad a kérdésre:
B2 cellába:
=HA($A2=B$1;MOST();"")

üdvözlettel
verax

Hoztam egy példát az eredeti kéréshez. Szöveg áthelyezése makró nélkül, képlettel… és nincs takarás sem.
Ehhez mit szóltok? 😀

üdvözlettel
verax

Kérdések:
1. „C1” cella képletének hol vannak az előzményei?
2. „C1” cella (és társai) minden esetben képletet tartalmaz(nak)?

Válaszok:
1. Azokat a cellákat kell figyelni, amelyek a „C1” cellában lévő képlet értékének változását előidézik, vagy …
2. segíthet a Worksheet.Calculate() eseménye is. Ez utóbbit is a (példa szerinti) „Munka1” munkalap kódlapjára kell elhelyezni, ahogyan a Worksheet_Change() esemény kódját.

3. De nemes egyszerűséggel elhelyezhetsz valahová egy nyomógombot és kattintással indítod a kódot.

Szia Adri

Abból, amit írtál azt feltételezem, hogy az „Állapot” munkalap „D” oszlopából hiányoznak olykor az ID (érték) adatok. A „C” oszlop mindig tartalmazza a „Nyers export” munkalap „D” oszlopának PLU azonosítóit. Így tehát „C” oszlopot segítségül hívva megállapíthatjuk utolsó, még adatot tartalmazó celláját és ebből az értékből indulva egy egyszerű, de praktikusan visszafelé haladó ciklussal végig lehet lépkedni a 2. sorig. Közben pedig minden körben megvizsgáljuk az azonos (i-edik) sorban, de a „D” oszlopban lévő cella értékét. Ha ez üres vagy nulla értékű, akkor töröljük az aktuális sort. Valami ilyesféleképpen:

Sub ÜresIDÉrtékSorokTörlése ()

  dim i, utolsóSor as Integer
  utolsóSor = WorksheetFunction.CountA(Range("C:C"))
  For i=utolsóSor to 2 step -1
    If Cells(i, 4)=0 Then
      Rows(i & ":" & i).Select
      Selection.Delete Shift:=xlUp
    End If
  Next i

End sub

Na persze, … a makró futása előtt (vagy a futás elején) gondoskodni kell arról, hogy a soron következő utasítások az „Állapot” munkalapon hajtódjanak végre. Egy ügyesen elhelyezett

Worksheets("Állapot").Select

parancs éppen megfelelő erre a célra.

üdvözlettel
verax

Szia kovacsl1968!

A dátumok tulajdonképpen sorszámok, csak nem sorszámként vannak megjelenítve. Ennél fogva mint bármely két szám, a két dátumérték is kivonható egymásból.
Egy példa (bár itt egy oszlopba és nem egy sorba írtam a dátumokat… 😉

A1: =MA() [=2023.06.07]
A2: 2023.01.01
A3: =A1-A2 [=157]

Az még előfordulhat, hogy a 157 helyett 1900.06.05 dátumértéket jelenít meg a gép. Ettől sem kell kétségbe esni! Állítsd be A3 cella számformátumát „általánosra” és már láthatod is a 157-es értéket.

üdvözlettel
verax

Kedves Adri!

Tábla végére beszúrni sorokat? Ott eleve vannak sorok. Tudnál egy példa fájlt mellékelni? Kézzel elkészíted az előtte – utána állapotokat és akkor már látjuk, hogy mit is kellene automatizálni.
(Egyébként a makró rögzítés lehetőséget használva , majd a létrejött kódot elemezve sok tapasztalatot lehet szerezni.)
Táblázatként formázott adattárolásban gondolkodtál már? Azzal a megoldással egy újabb adat felvitelekor automatikusa bővül a kezelt tartomány.

Az előre meghatározott mennyiségű sor beszúrására két lehetőség is kínálkozik. ÉS hogy mitől tud lefutni az utasítás? Kattintásra, munkalap eseményre (változásra) vagy ahogy magad is sejted, akár kilépéskor.

üdvözlettel
verax

Szia kovacsI1968!

Már nagyon régi a kérdés.

Range (Cells(1,1), Cells(27,10)) ' A1:J27

„…csak az utolsó hét sort szerettem volna másolni…”

Range (Cells(1,1), Cells(7,10)) ' A1:J7

Hát, … ez így éppen az első(!) hét sor.
Az utolsó hét sor így nézne ki:

Range (Cells(21,1), Cells(27,10)) ' A21:J27

üdvözlettel
verax

Szívesen… azonban
A sormagasság beállítása munkalap esemény, ezért hiába számoltatnád ki az optimális megjelenítéshez szükséges sorok számát. Ettől még nem történne semmi érdemi változás. Kódolni kell. Ha pedig kódolsz, akkor arra az esetre léteznek megoldások.
Én játszottam egy kicsit. Nem állítom, hogy hibátlan, de legalább lehet tanulni a hibáimból. 😉

üdvözlettel
verax

Szia Adri0324!

…enFeri alapötletéből elindulva…
A sortörés karaktere a nem nyomtatható karakterek közé tartozik. A nem nyomtatható karakterek eltávolítására létezik egy függvény. Tisztít()
Ha nincs a cellában más nem nyomtatható karakter(a szóköz nem számít annak), akkor ezzel a képlettel megszámlálhatod a sortöréseket: =Hossz(szöveg)-Hossz(Tisztít(szöveg))

üdvözlettel
verax

• A hozzászólás módosításra került: 11 months telt el-verax.

Ez számomra is egy értékes információ! Erről sem tudtam eddig. (Köszönöm! 🙂 )
Még jobb, hogy már a 2007-es változatban is elérhető.
Ha valaki magyar nyelvű Excel környezetben a képletmegadás ezen módját szeretné használni, akkor viszont célszerű az alábbiak szerint fogalmazni:

.Cells(iRow, 9).FormulaLocal = "=HAHIBA(FKERES($C" & iRow & ";Segédtáblák!$I$4:$J$174;2;0);""0"")"

üdv
verax

… és még a szóközökről is illik gondoskodni … 🙂
„=IFERROR(VLOOKUP(INDIRECT(ADDRESS(” & irow & „,9,1)),Segéd!R4C9:R174C10,2),””0″”)”

és ez végleges 🙂

üdv
verax

Sziasztok!
Ajánlom az alábbi képletet szíves felhasználásra: „=IFERROR(VLOOKUP(INDIRECT(ADDRESS(irow,9,1)),Segédtáblák!R4C9:R174C10,2),””0″”)”

üdvözlettel
verax

Szívesen! 🙂

… ezen pedig nem csak nézegetni lehet, de ki is lehet próbálni 🙂

üdv
verax

Sziasztok!

Az ilyen típusú kérdések megoldására egy lehetőség, hogy egy segédoszlopot vezetünk be, amelyben az ÖSSZEFŰZ() segítségével soronként létrehozunk egy-egy olyan értéket, amely immár két paramétert tartalmaz. Ezzel a módszerrel több feltétel egyidejű teljesülését lehet vizsgálni egyetlen keresési feltétellel.
Legyenek a „D” oszlop cellái rendre … (delila képmelléklete alapján)
D2 = Áru1Vevő1;
D3 = Áru2Vevő2;
…
D6 = Áru5Vevő2;
…

Ha ezzel megvagyunk, kicsit vizsgáljuk meg a delila által javasolt tömbképletet! Nagyon jó irányt mutat, de érdemes egy kicsit igazítani rajta…
Írjuk az „E3″ cellába az
=HA(C3-MAX(HA($D$2:D2=D3;$C$2:C2))>400;”nincs előzmény”;C3-MAX(HA($D$2:D2=D3;$C$2:C2)))
képletet! (Ne felejtsük, hogy a tömbképletet Ctrl+Shift+Enter kombinációval kell érvényesíteni.)
Ezt fogjuk látni:
{=HA(C3-MAX(HA($D$2:D2=D3;$C$2:C2))>400;”nincs előzmény”;C3-MAX(HA($D$2:D2=D3;$C$2:C2)))
}
Húzzuk le a képletet addig a celláig, ameddig szükségünk van rá! Egyszerűbb megoldás, ha a kijelölt „E3” cella jobb alsó sarkában látható kis fekete négyzetre duplán kattintunk.

üdvözlettel
verax

köszönet delilának! 🙂

Szia Attila72!

A kilencvenből öt szám sorsolás esetén ahhoz, hogy biztosan(!) legyen telitalálatos szelvényed
(90! / 85!) / 5! azaz (90×89×88×87×86) / (1×2×3×4×5) azaz 43 millió 949 ezer 268 kombinációt kell megjátszanod. Tehát a nálunk legismertebb ötös lottónak ennyi különböző kombinációja létezik.
Számold ki! Ha csak tíz szám közül húzol ötöt, arra hány féle megoldás létezik? (0h0S)
Tehát feltételezve, hogy van egy olyan dekádod amely biztosan(!) tartalmazza az öt nyerő számot, akkor abból a tíz számból ennyi variációt megjátszva lesz egy telitalálatod.

„A szerencsejáték a vesztesek sportja.” Egy-egy szerencsejáték szervező célja mindig(!) az, hogy a hatalmas mennyiségben megmozgatott pénztömegből legalább egy viszonylag szerény jutalékot a maga számára eltegyen. Ennél fogva olyan matematikai megoldásokat alkalmaznak, ahol nincs szisztéma a biztos nyerésre. Biztosan ismered a roulettre kitalált biztos(!)nyerés stratégiáját. Kezdd a legkisebb téttel és ha nem nyertél, duplázd meg! Igen ám, de a játéktermek szabályzata nem enged bármekkora nagy tétet megjátszani. 🙁 …
Ajánlott filmirodalom: Catch Me If You Can
Egyébként pedig: SOK SIKERT!

… tovább gondolva … 🙂

Sziasztok!

Én is Imre megoldásához hasonlóval hozakodok elő. Azonban én csupán a feltételes formázásra hagyatkoztam.
A korábban sorsolt számokat tartalmazó teljes tartomány (B2:K51) egyidejű kijelölése mellett az =B2=$B$1 (a többi szám esetén $C$1, $D$1, …) képletet használtam.
A formázás ízlés szerint változtatható. 🙂

üdvözlettel
verax

… és egy kis magyarázat

Option Explicit – Segít a hibakeresésben.
A Dim sor as Integer felesleges, mert a Jaavsor tökéletesen helyettesíti.
A Jaavsor-nak szándékosan nem adtam típust, mert az InputBox-nak többféle értéktípust adhatsz.
Igen, látom, tudom… ott van a Type:=1! Na, pont az okozza a problémát.
Dim eee nem volt definiálva.
On Error Resume Next – Hiba esetén, ne problémázz! Bízz bennem! Kezelni fogom.
InputBox: Ha nem határozod meg típuskódot, akkor elfogadja a NULL visszatérési értéket is. Tehát nem fog problémázni a ki nem töltött beviteli mező miatt.
…és akkor most, ahogy ígértem, kezelem a hibát: If … Then … ElseIf … Then … End If
A végére pedig egy utolsó módosítás. FormBevitel.Hide helyett Unload FormBevitel. Az előbbi utasítás csupán elrejti az űrlapot, de továbbra is tárolja a memóriában, míg az utóbbi a memóriát is felszabadítja.

üdvözlettel
verax

Szia klmnptr!

A kérdés felvetésedet kissé hiányosnak érzem. Bár Imre kérésére töltöttél fel egy fájlt, de még mindig nem pontosítottad, hogy mi lenne a végső célod.
Meg próbálom kitalálni…
1. A mintaként küldött fájl első (Munka1) munkalapjának „C” oszlopába szeretnél adatot rögzíteni, de azzal a feltétellel, hogy itt csakis az Adatok munkalap „C” oszlopában is szereplő értékek használhatók.
2. A Munka1 munkalap „C” oszlopába rögzített adat formátuma egyezzen meg egy másik, azonos értékű cella formátumával. (például a cdc-k esetén legyen a kitöltőszín sárga)

Válaszok:

1. Használj érvényesítést a „C” oszlopra! Adatok – Érvényesítés – Lista – Forrás: =Adatok!C1:C13
Ügyelj arra, hogy az adatokat tartalmazó tartományodat egybefüggőnek láttasd az Excellel! Ne legyen olyan sor, amelynek egyetlen cellája sincs kitöltve! Így működni fog az automatikus kiegészítés szolgáltatás, tehát ahogy te fogalmaztad meg, le fog válogatódni a háttér lista állománya a lehetséges maradék elemekre. (Próbáld ki az Alt+Le billentyűkombinációt!)

2. Használj feltételes formázást! Kezdőlap – Stílusok – Feltételes formázás – Új szabály – A formázandó cellák kijelölése képlettel – … (esetleg használj más, kedved szerinti szabályt!)

üdvözlettel
verax

• A hozzászólás módosításra került: 3 years, 3 months telt el-verax.

Szia Gabor733!

Milyen jó lenne, ha nem csak egy üres sablont mellékelnél, hanem egy-két példán bemutatnád, hogy milyen végeredményre számítasz! Milyen adatok alapján, mi jelenjen meg?

„… Az ábrázolandó járatokat (több lenne, mindkét irányban) úgy szeretném, hogy az alakzatok menüből vonal húzásával (???), melynek a konkrét időadatok függvényében a rácsvonalak metszéspontjából kéne indulnia, ill. oda érkeznie. …” (???)

A járatokat vonal alakzattal szeretném ábrázolni, mégpedig úgy, hogy a vonal két vége az indulás és az érkezés időpontját tartalmazó oszlopban található celláknál legyen.
Egy példa:
1. járat indul 4 óra 10 perckor, érkezik 8 óra 45 perckor,…
tehát a vonal az IR4:TG4 cellatartományba legyen belerajzolva.

Ha jól értem.

Nem értem, miért vonalban gondolkodsz?
Miért nem jó neked, ha a cellákat színezed makróval? Feltételes formázással is lehetne, de arról lebeszélnélek, mert rengeteg számítást fog igényelni. Soronként 1440 cella!!
…

üdvözlettel
verax

Sziasztok!

„…
3. Írd be, hogy =INDIREKT(“Nevek!A”&LAP())
…”

Egy apró módosítással…
…vagy az eredeti forrás munkalapon készíts az A1 és B1 cellákba oszlopcímeket…
…vagy horvimi képletét módosítsd: =INDIREKT(“Nevek!A”&LAP()-1)

És Imre azon tanácsa is megfontolandó, hogy jó lenne a végső „miért”-et ismerni.

üdvözlettel
verax

Szia babakitti!

Ragaszkodsz a Google Sheets formához vagy elfogadsz Excel fájlt is?
Készítettem egy mintát. Csatolom a rá mutató hivatkozást.

https://docs.google.com/spreadsheets/d/1i_o79PWUV97UmC9MNoQ4Lq_x4Ti2Axn37snEoDby5VI/edit?usp=sharing

Magyarázat:
Az adatokat gyakran érdemes más szerkezetben tárolni, mint ahogyan később szeretnénk megtekinteni azokat. Erre való a kimutatás nézet.

„A cél az lenne…”
Ezt a célt a KIMUTATÁS lap Szűrők opciójának használatával tudod elérni.

(Azért az Excel erre a feladatra látványosabb megoldást nyújt. …és innentől kezdve sorolhatók az érvek és ellenérvek…)

üdvözlettel
verax

Kedves Kati és Péter!

Apró, de fontos javítást javasolnék a teljesítménydíj táblázat módosításával kapcsolatosan.
A határértékeket Péter eredeti változatához hűen
1,19 helyett 1,2 1000
1,29 helyett 1,3 2000
1,39 helyett 1,4 3000
szerint javaslom beállítani.

üdvözlettel
verax

Kedves Kati!

…folytasd…
Nálad: M, I és C 3-3 ponttal (TOP 5?)
nálam: semmi. (TOP 5!)
Nálad: L, J és B 2-2 ponttal (TOP 5?)
nálam: semmi. (TOP 5!)
Nálad: K és A 1-1 ponttal (TOP 5?)
nálam: semmi. (TOP 5!)

A zöld színnel kiemelt tartomány valóban azonos, csakhogy te nem csupán az első öt legmagasabb értékkel (6,5,5,4,4) rendelkező (összes) nevet jelenítetted meg. Ennyi erővel akár pontok szerint sorba is rendezhetnénk az adatokat, aztán a felhasználó annyi legjobbat vizsgál amennyit akar. Ahhoz még képlet sem kell.

Egyébként te mit szólnál egy olyan eredményhirdetéshez, ahol azt tapasztalnád:

1. Zsófia 67,000100 pont
2. Anna 66,000001 pont
3. Réka 65,000074 pont
további helyezések…
…
18. Kati 65,000012 pont
Érted már, hogy mi a probléma a megoldásoddal?
A bemeneti adatokat, ebben az esetben, nem szabad az általad javasolt -egyébként frappánsnak látszó- gordiuszi módon megváltoztatni, mert torzítja az eredményt.

üdvözlettel
verax

… illetve hármat. 🙂

• A hozzászólás módosításra került: 3 years, 5 months telt el-verax.

Sziasztok!

Általában azért lassanként kiszokott derülni, hogy tulajdonképpen mi is a vágyott cél.
Megint az látható, hogy Levente nem a végcélt fogalmazta meg, hanem egy gyakorlatilag felesleges kört fut.
Két eltérő szerkezetű, de azonos adatcsoportokat tartalmazó listát kell összehasonlítani.
Kérdés:
A fenti melléklet melyik forrás szerkezetét mutatja?
Milyen szerkezetű a másik?
Gondolom a saját bérszámfejtő program exportját tekintjük bázisnak, ez alapján vizsgáljuk, hogy a NAV nyilvántartásban is szerepelnek-e az egyes adatsorok. Ugye?

üdv
verax