Hozzászólások
-
Nem tudom, hogy érted-e mit csináltál, de a tanácsom az, hogy ezt a usedrange dolgot felejtsd el, nagyon bizonytalanul működik. Ezzel próbálja meg megállapítani, hogy hol van a vége a használt tartománynak.
De például, ha kitörölsz sorokat, attól még azt hiszi, hogy a régi méret a helyes.Elvileg gondolom úgy működik, hogy a célmunkalap első sorában van a fejléc, és az első üres sorba szeretnéd rakatni vele az aktuális darabot.
Próbáld ki ezt kicserélni:
Destination:=wb.Worksheets("Célmunkalap").Range("A" & _ wb.Worksheets("Célmunkalap").Range("A1").Currentregion.Rows.Count + 1)Imre
Szia!
Mégis a makró mellett döntöttél? Nem jó döntés, de te tudod 🙂
Te írtad, vagy találtad, és próbálod faragni?
Modjuk leírhattad volna, hogy mit csinál, ahelyett, amit szeretnél.
Teszt adatok nélkül pedig egy csomó időmbe tellene próbálgatni.Tehát tesztelés és debug nélkül első ránézésre a folyamat nem tűnik rossznak, de a következő problémát látom:
Olyan, mintha kétszer próbálná megcsinálni az átmásolástEgyszer van egy Copy parancs, ami utána a Destination-ben mondja meg, hogy hová kellene másolni. (Itt különben a Destination:= kellene, tehát kimaradt egy kettőspont
Aztán lejjebb átvált az „órák” makrófüzetbe és a „Célmunkalap”-ra szintén bemásolná megint.
ha jól látom, akkor a makrós füzetben állva kell elindítani, különben nemlesz jó a működés.
Próbáld meg F8-al lépésenként futtatni és figyelni, hogy mi történik, fogod látni, hogy hol a hiba az algoritmusban. Persze ha elindul.Imre
P.S
ha kódot másolsz a post-ba, akkor miután bemásoltad, jelöld ki, és nyomd meg a formázó gombok közül a code felratot. Ez formázatlan állapotban hagyja, és simán lehet másolni az Excel VBA editorába, nem kell cserélgetni a rossz idézőjeleket jóra, stb…Hány évet akarsz egyszerre figyelni?
Minél többet, annál bonyolultabb a dolog, mivel a fenti logika alapján, ha több évig nem sikerül a határt átlépni, aztán egyszer csak igen, akkor a több évvel ezelőtti bonusz járna neki, amit még meg is kellene tudni állapítani, hogy melyik is az.Ja, és még az sem világos, hogy ha bármelyik évben alulmarad a teljesítménye még az előző évi határhoz képest is, vagy 300-nél is, akkor csak 1000 jár neki, vagy az előző évben kiharcolt bónusz?
3-4 évig talán le lehet követni képletekkel, és persze utána is, de egyre bonyolultabb lesz.
Apropó, negyedik évhez nem adtál feltételeket.Magánvéleményem szerint ez nem motiváló bónusz rendszer, én biztosan harcolnék ellene.
Az aktuális év teljesítményét kellene csak figyelni.
Sőt, mi van akkor, ha az első ében rögtön 800+-t csinál?Egy lehetséges megoldás lehet az, hogy évről évre csinálsz egy másik segédtáblát a határértékekkel, és onnan FKERES-el szeded ki az aktuálism éb bónuszát. Tehát évenként változik a képlet.
Első év
0 1000
300 2000Második év
0 1000
300 2000
500 3000Harmadik év
0 1000
300 2000
500 3000
800 4000Az eredmény tábla meg ilyesmi:
2015 2016 2017 2018 B_20115 B_2016 B_2017 Kiss József 350 537 801 2000 3000 4000 Nagy Pál 250 400 801 1000 1000 2000 Alacsony Nándor 330 130 543 777 2000 1000 3000 Magas Andor 240 350 490 527 1000 2000 2000Imre
Most készült a legújabb oktatóanyag itt a bázison.
http://excel-bazis.hu/tutorial/vba-projekt-makro-jelszo-kiszedese
Nézd meg, neked csináltam ?Imre
Szia!
Tulajdonképpen itt a legkisebb nagyobb vagy egyenlőt keresed.
ha az adatoszlop alapján lehet sorbarendezést csinálni, vagy már eleve sorban van, akkor van megoldás.Csökkenő sorrend
Ebben az esetben a sima HOL.VAN megcsinálja amit akarsz, mert ha az utolsó paraméter -1, akkor a legkisebb nagyobbat adja vissza, ha a keresési oszlop csökkenőben van.=HOL.VAN(F2;$D$2:$D$6;-1)Növekvő sorrend
Hát, itt tömbképlet kell, mert meg kell keresni az összes olyat, ami nagyobb vagy egyenlő, és azok közül ki kell venni az első pozícióját.
Ez nekem tömbképlettel volt lehetséges:=HOL.VAN(1;--(F2<=C2:C6);0)Az F2 tartalmát nézzük a C2:C6 tartományban, ami rendezett. A képletet CSE-vel (Ctrl-Shit-Enter-rel) kell lezárni.
Működése
– Az F2<=C2:C6 egy tömböt ad, ahol ott lesz TRUE, ahol igaz a reláció: {HAMIS;HAMIS;HAMIS;HAMIS;IGAZ}
– A dupla mínusz ezeket 1-re és nullára alakítja (Meg is szorozhattam volna 1-el, ugyanaz: {0;0;0;0;1}
– Ebben keresem HOL.VAN-al az első 1-est
Rendezetlen eset
Itt valóban le kell írni, hogy a legkisebbet keresed a nagyobb vagy egyenlők közül. Ez is tömbképlet.
=HOL.VAN(MIN(HA($G$2<=E2:E6;E2:E6;""));E2:E6;0)Csatoltam a munkafüzetet.
Imre
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
.
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
Röviden a válasz: NEM
Hosszabban: Ezt a színezgetest el kellene felejteni úgy általában.
Csábító, hogy lehet szín szerint szűrni, de a helyes út az, hogy egy külön oszlopot csináltok erre a célra. Ebben vagy képlettel határozzátok meg a kategóriát ( HA függvény pl.), Vagy kézzel írjatok be.
Ez adni fog egy új Pivot mezőt, ami már használható csoportositasra.Imre
P.S
Ha egy kérdésre kapsz választ, kérlek jelezd egy kommentben!
Az előző kérdésedre gondolok.
Így a többi látogató látja, hogy a válasz megfelelő, es en is le tudom zárni, hogy RESOLVED.
KösziSzia!
A csatolmány nem mentz fel, mert 512k-nál nagyobb volt.
Csinálj egy akkorát, ami belefér.Minta nélkül (de még mintával is) eléggé homályos amit szeretnél, nagyjából értem:
– Az ALAPADAT lapon van egy vonalkód-cikkszám összerendelés
– A SZÁMLA lapra bemásolsz számla adatokat valahonnan
– A FELTÖLTÉS lapra valami képletezős megoldással gondolom ki akarod keresni a cikkszámokhoz rendelt vonalkódokat.
– De lehetnek olyan (új) cikkszámok, aminek nincs még kódjuk. Ezekhez az FKERES hibaüzenetet fog adni a FELTÖLTÉS lapon.
– Ki akarod gyűjteni ezeket a cikkszámokat, majd az ALAPADAT lapon új, még nem szereplő kódokat szeretnél hozzájuk rendelni. Ettől meggyógyul a FELTÖLTÉS lapon az FKERES.Az elgondolás nem rossz, kiindulhatsz a 2019000000000 kódból, de szövegesen írd be, ne szám legyen.
Az oszlopát még üresen szövegesre állíthatod, vagy az első adatsorban a kezdő kódot aposztróffal kezdve írod be.Kézi munkafolyamat Makró nélkül
1. Bemásolod az új számla adatokat
2. A feltöltő lapon alkalmazod a képleteket, vagy azok már maguktól működnek
3. Leszűrod azokat, ahol az FKERES nem találta a cikkszámot
4. A nem talált cikkszámokat átmásolod az ALAPADATOK lapra a már ott lévő cikkszámok alá
5. A kitöltővel lehúzod az előtte lévő vonalkódot, ami magától nővekedni fogAutomatizálás makróval
A fenti lépéseket a 2. ponttól lehet automatizálniHa nem jól értettem valamit, akkor jelezd!
Imre
Na.
Az irodai gépemen 2019 van.
Azon is megy.Szóval itt valami más lesz a probléma.
Nem nagyon tudom, hogy mi, de a leveszem a régit és felteszem az újat környékén keresgélnék.
Nálam olyan telepítés volt, hogy nem volt előtte másik office.
Javaslatom:
A makró szerkesztőben:Tools-> References
Itt nézd meg, hogy van-e olyan tétel, ahol van pipa, de mellette az van, hogy Missing.ha van ilyen, vedd ki a pipát.
Mentés, bezárás, újra nyitás
???
Imre
Szia Ági!
Hát nem teljesen világos, hogy mi a probléma, de megpróbálom kitalálni:
Szóval van egy Excel, amiben voltak adatok, és volt egy PIVOT tábla.
Ezt feltöltöttétek Online Excel-be (OneDrive)Új sorokat vettetek fel az adatokhoz, amiből a PIVOT készült, és ezek a PIVOT frissítésekor nem jelentek meg a PIVOT táblában?
Ha a régi adatokat módosítod, és frissítesz, akkor változik?Egyáltalán az a probléma?
Az Online Excel-ben 2018 tavasz óta van PIVOt tábla lehetőség.
Ha a PIVOT adatforrása egy sima tartomány, és az alapján készült a PIVOT, akkor az Excel Online nem fogja felvenni az újonnan bekerülő rekordokat.
A forrás tartományt táblázattá kell alakítani. Ezt Online verzuióban is meg lehet csinálni.1. Belekattintasz az adatforrásba (Bármely cella)
2. Beszúrás menü -> Táblázat
3. Elfogadod a címtartományt, amit felajánlHa sikerült, akkor zebra sávossá változik.
Na, most jön a lényeg, hogy ezután meg kell magyarázni az Excel-nek, hogy ezentúl a Táblázat legyen az adatforrása, ne a sima tartomány.
Ehhez meg kell nyitni a Desktop Excelben. Van egy ilyen menüpont, e szerintem tudod.
A Desktop Excelben ha belekatintasz az adatforrásba, akkor fent lesz egy sötétzöld Táblázateszközök gomb, és ha rákattintasz, lesz saját szalagja.
Annak a bal oldalán lesz a táblázat neve (Táblázat1)Ezt jegyezd meg, vagy copy-zd ki.
Ezután menj a Pivot táblára, és az Elemzés lapon módpsítds az adatforrást a táblázat nevére.
Végül mentsd el a OneDrive-ra.
Ezek után a végére kerülő új sorokat is magától felveszi majd, csak frisíteni kell a PIVOT táblát.
Remélem ez a gond, és segít a leírás
Mivel az Online Excel-ben jelenleg nem lehet változtatni a PIVOT adatforrását, igazából már eleve úgy kellett volna feltölteni, hogy az adatforrás táblázat.
Itt írtam erről pár éve:
http://excel-bazis.hu/tutorial/tablazatok-az-excelbenImre
Ha viszont a Redim a lényeg, akkor beállítható, hogy a tömböket ne nullától, hanem 1-től indexelje, csak nme javasolt.
A modul tetejére (ahová az option explicit szokott kerülni) be kell írni, hogyOption Base 1De ez nem a legjobb megoldás, inkább deklarációkor szokták megadni, hogy a tömb mettől meddig megy alapból.
Dim Sh() as string 'Dinamikus tömb Megy a progi ... majd egyszer csak méret növelés, az eddigiek megőrzésével Redim Preserve sh(1 to új méret)Preserve nélkül újra dimenzionálja a tömböt, de eldobja a tartalmát. Ja, és az 1-el megadod azt is, hogy 1-től fogja indexelni.
Amíg még nincs tartalma, elég a Redim önállóan.
Ciklusban feltöltögetve dinamikusan már kell a Preserve is.Imre
Na, nagyjából értem mit akarsz csinálni.
Elég rettenetes öszebarkácsolmány amit csináltál, és nem is lesz ez így jó.Előbb leírom, hogy mit értek eddig:
- A beviteli munkafüzeteken felvitt rekordokat egy közös fejléccel szeretnéd összemásolni egy összesítő munkafüzetbe.
- Az összesítő munkafüzet folyamatosan nyitva van.
- Azt szeretnéd, hogy ha valamelyik beviteli füzetben módosítanak vagy újat visznek fel, az összefűzött eredmény is frissüljön.
- Az összefűzött lista alapján generált egyedi azonosítók kerüljenek át a beviteli munkafüzetekbe rekordonként.
Ha jól gondolom a beviteli munkafüzetek más-más kolléga gépén lesznek használva, és lesz egy gép, amin az összesítő munkafüzet van, és folyamatosan nézi valaki.
A problémák, amiket látok (lehet, hogy rosszul)
A gyűjtő munkafüzetben generált egyedi kódok csak akkor kerülnek vissza a beviteli füzetekbe, ha a gyűjtőt frissíted, hogy kerüljenek át az új rekordok, majd elmented, és a beviteli munkalapok külső linkjeit is frissíted. Ez nem nagyon automatizálható, mivel külön-külön gépen vannak.A beviteli lapokon előre lehúztad 1000 rekordig a képleteket, generálva a hibaüzeneteket.
Én ezeket is táblázattá alakítanám, és akkor magától kiterjed.Nem fog így normálisan működni.
Kérdések és javaslatok
Mi lenne, ha az egyedi rekord azonosítót a beviteli lapokon képeznéd úgy, ahogy egy korábbi kérdésednél javasoltam, de belevennéd azt, hogy az adott rekord melyik beviteli fájlból származik. Ezt lehetne úgy, hogy a számozás máshonnan indul az egyes beviteli lapokon.
pl. az első 1001, 1002, stb, a második 2001, 2002, stb, és így a többire is.
Így csak simán össze kellene fűzni a táblákat, és nem kellene új rekord azonosítót gyártni, és azt valahogy visszajuttatni az eredeti beviteli fájlokba.Ekkor már csak a frissítés kérdése maradna, ami automatikusan soha nem fog megvalósulni így, tehát
1. A beviteli lapokat menteni kell
2. Az összesítő lapot kézzel vagy makróval frissítgetni bizonyos időnként.Teljesen másik út lehet esetleg az, hogy ha minden egy munkafüzetben van, és kísérletezel a közös használattal, de ez újabb problémákat rejt, ezért csak megemlítem.
Csináltam egy ilyen modellt és csatoltam
– A beviteli lapokat kitakarítottam, csak a táblázat van rajtuk, mindenhol ugyanaz a neve (ez fontos)
– Mindegyikben máshol kezdődik a számozás (A SZÖVEG+DARABTELI képletben van, hogy honnan kezdje)
– Külön mappába tetten őket
– Egy eredmény munkafüzetbe összefűztem mappából Power Query-vel
– Betöltöttem őket.
Beállítottam, hogy megnyitáskor, illetve 1 percenkét automatikusan frissítsen. Működik.
Tehát ha dolgoznak a beviteli munkafüzeteken és ott rendesen mentenek minden bevitel után, akkor 1 percen belüllátszódni fog ez az összefűzött fájlban is.Testreszabás
Ha letöltöd, akkor csomagold ki, és a gyűjtó fájlban módosítsd a lekérdezések első lépésében (forrás) az utvonalakat, (ahol találsz) a sajátra.
A lekérdezéseket dupla klikkel tudod megnyitni.December 27-én leszek legközelebb.
Boldog Karácsonyt!
Imre
Sziasztok!
Ha jól értem, akkor a 11. laptól a végéig minden lapon ugyanazt a ne összefüggő tartományrendszert akarod kiválasztani, és beilleszteni a gyűjtő lapra, gondolom egymás alá.
Ha ezt jól gondolom, akkor
– a beillesztés helye nem lehet mindig a B3, hanem a B oszlop első üres cellája.
– Ha egy menetben működött, akkor ciklusban is működnie kell.
– Szerintem hagyjuk a With .. End With szerkezetet, mert magyarázat nélkül nem érted, hogy hogy működik.
– A ciklusban inkább legyen benne az aktuális lap .SelectFor lap = 10 To Sheets.Count Sheets(lap).Select Ide a sok Set egymás alá union(....).copy destination:=sheets("gyujto").range("B3").End(xlDown).offset(1,0) NextEz akkor lehet jó, ha a bemásoláskor a B oszlopban mindig van adat.
Imre
-
A hozzászólás módosításra került: 6 years, 2 months telt el-
-
A hozzászólás módosításra került: 6 years, 2 months telt el-
-
A hozzászólás módosításra került: 6 years, 2 months telt el-
-
A hozzászólás módosításra került: 6 years, 2 months telt el-
-
A hozzászólás módosításra került: 6 years, 2 months telt el-
Szia!
Ez valami BUG lehet.
Kipróbáltam, nálam is ezt csinálja.DE TALÁLTAM EGY ÉRDEKES MEGOLDÁST.
Ha így írod be
R[]C1 vagy R[]C14vagy ígyR[0]C1 vagy R[0]C14akkor jól értelmezi. Utóbbinak több értelme van.
Ezt is kipróbáltam, és megy.
beszarás.
Imre
-
A hozzászólás módosításra került: 5 years, 6 months telt el-
