-
Fototrend
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
-
hallgat
csendes tag
Sziasztok!
Szeretnék egy parancsgomb - már meglévő makrója elé - egy elágazást tenni.
A dolga az lenne, hogy megvizsgál 3 nevesített cellát, tehát pl.: nem A4-et, hanem a jelenleg A4-ben lévő ALPHA_2X2 elnevezésű cellát, aminek helye változhat, de a makrónak akkor is ezt a cellát kellene keresnie.
Szóval megvizsgálja, hogy üres e. Ha igen, megáll a makró, ad egy msgbox üzenetet, amire kattintva nem folytatja a makrót, hanem visszaáll a futtatás előtti állapotra, azaz end sub lenne az ág kimenete.
Ha nem üres ez a 3 cella, akkor tovább futtatja a makrót, a már most is benne lévő parancsok végrehajtásával.Az if-vel még csak csak elboldogulnék, de erről a nevesített cella hivatkozásról lövésem sincs
No nem mintha a többit nagyon értenémElőre is köszönöm a segítséget!!!
Office 2010 Attól, hogy a verebek alakzatba állnak, az még nem SAS!
-
bozsozso
őstag
Sziasztok,
Van arra valami megoldás, hogy
pl.: A2-A27 cellák tartalma a =Munka1!A2 Az A28 tartalma =A2&" összesen:" Szeretném ha egyszerűen amikor lehúzom a cellákat akkor A28-A51 cellák tartalma =Munka1!A3 A52 tartalma =A28&" összesen:"
és így tovább folyamatosan. Tehát mindig ugyan annyi sorról beszélünk és ugyanolyan tartalomról csak másik munkalapról venné a következő cellát. -
amaps
csendes tag
Sziasztok!
Próbálom megoldani az alábbi gondomat, de eddig még nem jöttek be az ötleteim.
Adott az alábbi munkalap:Ebből szeretnék külön munkalapon egy legördülő menüs választási lehetőséget csinálni, ahol mondjuk az első cellában megadható hogy gyümölcsről, vagy díszfáról van szó. A második cellában már csak azok az elemek jelennek meg, amik beleesnek a kategóriába, pl. gyümölcs kijelölése után már csak az alma, meggy, szilva látható, és így tovább.
A valóságban persze sokkal nagyobb a tétellistámKöszi a segítséget!
amaps -
lappy
őstag
-
Apollo17hu
őstag
törölhető
[ Szerkesztve ]
-
amaps
csendes tag
Szia!
Szuper, köszönöm a tippet!
Annyi csak a gondom, hogy nekem a tételek közt 300+ fajta termék van. Ha ezt a megoldást választom, akkor létre kell hoznom első körben ezt a több, mint 300 különféle termékhez tartozó oszlopot. De ha nincs más megoldás, akkor persze megcsinálom, elég munkás ugyan, mert át kell írnom a jelenlegi struktúrát, de ez van.Valami olyasféle megoldás nincs, hogy a lista paraméterénél figyelembe veszi változóként az előzőleg kiválasztott értéket? Tök láma vagyok excelhez, de valami olyasmi, hogy a Lista/Forrásnál valahogy lehessen szűrni azokra az értékekre, ahol az első oszlop mondjuk gyümölcs?
Köszi,
amaps -
lappy
őstag
-
sztanozs
veterán
Szerintem makróval lehet csak 2-nél több szintet.
Két szinten még megoldottam excel fügvényekkel, de szerintem három szinthez szerintem már makró kell.
Legegyszerűbb úgy megoldani, hogy (oszloponként) a makró bemenete egy olyan terület, amit a következők alapján állítunk elő:
- az előző oszlop szűrése (a kiválasztott szöveg)
- az első elem címe (MATCH-el kinyerhető)
- a hozzá tartozó sorok száma (COUNTIF-fel kinyerhető)
- a választandó terület (OFFSET-el elkészíthető a fentiekkel)A makró csak annyit csinálna, hogy a megkapott listából kitörli a duplikált/üres elemeket és visszaadja a deduplikált tömböt. Ahogy néztem ezt segédtábla nélkül nem lehet megcsinálni.Úgy látom egész nap ültem rajta és már megcsinálta valaki... Sajnos a fájlt nem tudom megnézni, majd este ránézek
[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
amaps
csendes tag
válasz sztanozs #18109 üzenetére
Szia!
Mindenképpen kíváncsi lennék a javaslatodra!
Most volt időm alaposan megnézni lappy megoldását, és sajnos Ő is fix értékekkel dolgozott a forrás megadásánál, ami az én esetemben nem járható, mivel a tétellistám több, mint 300 különféle termékből állLégy szíves, írd meg az elképzelésedet!
Köszi,
amaps -
amaps
csendes tag
válasz sztanozs #18109 üzenetére
Gondolkodtam azon, amit mondtál, hogy két szinten túl már makró kell a függvények helyett.
Az biztos, hogy én makrót nem tudok írni, ezért lehet, hogy feladom a tervemet, és inkább megállnék az első két tétel automatikus kiválasztási lehetőségénél.(pl. ha gyümölcs, akkor az alma, meggy és szilva lista jelenjen meg).
A harmadik oszlopot beáldoznám, és lenne helyette mondjuk egy szabad szöveges mező.Üdv,
amaps -
sztanozs
veterán
No megcsináltam. Nem lesz egy sebességbajnok - főleg több száz sornál, de azért lehet rajta finomítani még.
A kérdés csak, hogy hova tudom felrakni...
Na GDrive-ra ment: link[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
amaps
csendes tag
válasz sztanozs #18115 üzenetére
Szia!
Köszi szépen a megoldást!
Már nézem egy ideje, de még nem sikerült rájönnöm, hogyan csináltad
Ami nem is lenne gond, de a Fajta kitöltése nem jó abban az esetben, ha a Termék1-nél díszfa került kiválasztásra, és gondoltam egy merészet, hogy megpróbálom kijavítaniKöszi mégegyszer
amaps -
bozsozso
őstag
válasz Apollo17hu #18113 üzenetére
Szia,
Próbáltam a SZORZATÖSSZEG() függvényt de nem jó mivel nem biztos, hogy azonos tömbről beszélünk. Eddigi próbálkozásaim mindig #ÉRTÉK hibába ütközött.
A másodiknál ilyet szeretnék elérni:
2
2
2
2 Összesen:
5
5
5
5 összesen:
23
23
23
23 Összesen
stb.Aminél a 2,5,23 értékeket egy másik munkalap A1,A2 illetve A3 stb. cellák tartalma. Ezt szeretném úgy ha egymás alá másolni tudnám bővítés esetén és nem kellene mindig beírnom, hogy honnan vegye a tartalmát.
-
lappy
őstag
-
A_ScHuLcZ
addikt
Sziasztok!
Egy gyors kérdésem lenne csak, én ritkán használom, de az excel guruk csuklóból fognak válaszolni szerintem.
Szóval szeretnék egy kimutatást készíteni, amiben a telefonszámláink alapján szolgáltatónként szétbontom a hívások időtartamát, és összegzem szolgáltatón belül a csúcs, kedvezményes, hétvégi, stb időket. Létrehoztam hozzá a táblázatot és a függvényeket, egyedül a mező formátum beállításával vagyok gondban. Nézegettem a lehetőségeket az "Idő" csoport alatt, de nem találtam olyat, amire nekem szükségem lenne. Olyat szeretnék használni ahol perc:másodperc alapon tudok adatokat bevinni, de a perc lehet több 60-nál is, és emiatt ne kelljen az óra:perc:másodperc formátumot használnom, mert a legtöbbnél nem lesz 60 feletti percérték. Tehát pl tudjak megadni olyat, hogy 125:37, ami 125 perc 37mp-nek felel meg, és összegezni is lehessen ezeket az időintervallumokat szintén ilyen formában.[ Szerkesztve ]
"I'd tell you a joke about UDP, but you probably wouldn't get it."
-
sztanozs
veterán
válasz A_ScHuLcZ #18120 üzenetére
Egy mezőben szerintem csak makróval tudod megoldani.
Két/három mezőben szerintem működhet:
- elsőben beviszed az adatokat ppp:mm alakban
- második (eltüntetett) oszlopba átszámolod a szövegből kizárólag másodperc alapra, ezzel tudsz összeget számolni és ezt tudod majd visszaalakítani ppp:mm alakra - így:
[B2]=INT(A2/60)&":"&TEXT(MOD(A2,60),"00")JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
A_ScHuLcZ
addikt
válasz sztanozs #18121 üzenetére
Csak makróval? Sosem használtam még olyat, írni meg pláne nem írtam, nagyon keveset használok excelt. Sok mindent tudok infóból, de az office alkalmazások nem tartoznak ezek közé, alig használom őket.
Nem csak összegzésnél lenne rá szükség, hanem a bevitelnél is. Tehát szépen beviszem az adatokat egy oszlopba, és lent összegzem, de bevitelnél is pp:mm és összegzésnél is pp:mm formátumra lenne szükség, mivel a forrásomban is így vannak feltüntetve. Tehát ha pl be kell vinnem 74 perc 13 mp-et, akkor ne kelljen számolgatnom, hogy az 1:14:13, mert abba rövid úton bele fogok zavarodni, és nem kevés plusz munka. 2010-ban egy ilyen funkciót igazán elhelyezhetett volna az MS az excelben
"I'd tell you a joke about UDP, but you probably wouldn't get it."
-
amaps
csendes tag
válasz sztanozs #18118 üzenetére
Szia!
Köszi még egyszer a fáradtságodat!
Ma különben egész nap azon küzdöttem, hogyan tudnám átrakni a képleteidet a saját táblázatomba. Mondanom sem kell, hogy nem ment
Csak kérdezem, hogy azért, mert levédted, vagy maga a megoldás ragaszkodik ennyire az általad gyártott sheethez?
Egyébként egyetlen dolgot szerettem volna módosítani rajta, méghozzá azt, hogy a rendezett lista ne csak kb. 14 sorra vonatkozzon, mert vannak olyan tételek, ahol nyolcvannál is több altétel van. De persze ez sem sikerült
Tehát csak az a kérdésem lényege, hogy levédted a képleteket, vagy én vagyok rettentő béna?Köszi,
amaps -
sztanozs
veterán
Az alább linkelt cikk alapján csináltam - csak a több oszlophoz kellett plusz egy kis szűrés - no meg némi módosítás az eredeti képleteken. A cikkben szépen el van magyarázva miért és hogy működik a dolog.
[link]Elméletileg amúgy ha a Sheet1 A - C - E oszlopaiba belerakod a megfelelően struktulát adataidat, akkor bármennyi adatot (max 999 sor a jelenlegi képlet alapján) fel tudsz dolgozni, feltéve hogy a B - D - F oszlopokban a képletet lehúzod az A oszlop aljáig...
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Mutt
aktív tag
válasz A_ScHuLcZ #18123 üzenetére
Hello,
...ha pl be kell vinnem 74 perc 13 mp-et, akkor ne kelljen számolgatnom, hogy az 1:14:13, mert abba rövid úton bele fogok zavarodni...
Simán számformátummal ahogy látod nem fogod tudni elérni, hogy 1:14:13 helyett 74:13-at jelenítsen meg az Excel. Alternatív megoldás lehet, hogy mondjuk A oszlopba viszed be csak a percet (pl. 74) és B oszlopba a másodpercet (13). Utána C-oszlopban az összefűz függvénnyel meg tudod jeleníteni a kívánt formátumban (azonban ezzel számolni nem vagy csak nehezen fogsz tudni).:
=A1&":"&B1
Ezzel a móddal az összegzést simán az A és B-oszlopra el tudod végezni (B-nél természetesen az eredményt 60-al osztod hogy a percekhez hozzá tudd adni).
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz bozsozso #18079 üzenetére
Hello,
Ezekkel meg tudod oldani:
=MSZORZAT(Rendelt!B3:F3;Termekek!D3:D7)
{=SZUM(Rendelt!B3:F3*TRANSZPONÁLÁS(Termekek!D3:D7))}A második ahogy látod tömbképlet.
üdv.
[ Szerkesztve ]
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
Szia,
Csináltam én is egy változatot rá, amely segédoszlopokat használ és dinamikus tartományokat.
A minta felkerült ide.
A lényeg, hogy ha meg van az első két szűrés akkor már az utolsó listát egyszerűen elő lehet állítani ezzel a képlettel:
=ELTOLÁS($C$4;HOL.VAN(L2;B:B;0)-1;0;DARABTELI(B:B;L2))Az ELTOLÁS függvénnyel lehet ún. dinamikus tartományt létrehozni, amely lehet egy cella, vagy egymás melletti cellák sora ugyanazon sor vagy oszlopon belül. A C4-es mezőből indul el mindig és attól függőn hogy éppen almát vagy szilvát választottak ki lemegy az odaillő első sorba és kijelöli a szükséges elemeket.
Ami viszont nem megy ilyen egyszerűen az a megadott formátumod alapján kiválasztani a lehetséges típusokat (pl. gyűmölcs) és az ahhoz tartozó altípusokat. Ehhez vagy makró vagy segédoszlopok kellenek.
Az első segédoszlopok (D és E) megjelenítik a kiválasztható elemeket, az F és G ahhoz kell hogy ABC sorrendbe rendezhetőek legyenek a választható elemek. A H és I oszlopok pedig ABC sorrendben és üres sorok nélkül tartalmazzák a végleges választható elemeket.
A D-I oszlopban a képleteket legalább másold le addíg, amíg van A-C oszlopban adatod. Én csak az első 17 sorba írtam be őket. A többi képlet univerzális, tehát ha bővíted a listát akkor is műkődni fognak.
üdv.
[ Szerkesztve ]
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz hallgat #18101 üzenetére
Hello,
A nevesített cellákra makróban az alábbi módokon tudsz hivatkozni:
Range("ALPHA_2X2")
[ALPHA_2X2]A lenti makró az ALPHA_2X2, 2X3 és 2X4 nevű cellák tartalma alapján vagy adja a felugró ablakot, vagy futtatja a kódodat. Ha legalább az egyik cella üres, akkor leáll, vagyis csak akkor enged tovább ha minden mezőben van vmi (hogy az szám, szöveg, képlet stb. nem nézi).
Sub Elagazas()
Dim blnUres As Boolean
Dim cell As Range
blnUres = False
For Each cell In Range("ALPHA_2X2, ALPHA_2X3, ALPHA_2X4")
If IsEmpty(cell.Value) Then blnUres = True
Next cell
If blnUres Then
MsgBox "Hiányzó értékek!", vbOKOnly, "Hiba"
Else
'ide jön az eredeti kódod
End If
End SubEbből tudsz építkezni ha nem lenne elég.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
motinka
tag
sziasztok ismét,
természetesen problémával fordulnék hozzátok, ami a következő:
van egy rengeteg adatból álló adat tábla, ami naponta frissül.
Ebből kellene nekem oszlopokat kiszedni rendezni, sorba rakni.
Lehet, van-e olyan megoldás hogy ez automatikusan megtörténjen, azaz én megadom melyik oszlopokat hova rakja be, esetleg szűrje, egy új fülre.
Előre is köszönöm a segítségetMoTiNka
-
lapa
veterán
uh, hát lehet, hogy ezt benézem, de lényeg, hogy van egy hosszú listám, és szeretnék részmaximumokat kivenni. azaz, hogy minden cellába írja ki, hogy "ahol ugyanaz a dátum, mint ebben a sorban, abból melyik a legnagyobb".
van mindenféle halovány emlékem, én valahogy abban voltam, hogy a dmax-ra rá lehet erőltetni, hogy ne fix A1 : A2 tartományt nézzen, hanem valahogy így: =DMAX(A : R;Flaeche;Datum=A2)
ahol A2, A3.... az adott sor.
node ez így nem működik... bogarásztam tömbképletet, egyelőre az se akar. más kérdés, hogy eltekintenék tőle, ha lehet.
az is lehet, hogy lemakrózom, már negyedik napja ezzel a táblával küzdök. elég uncsi. ha valakinek jobban sejlik a dmax vagy más szintakszis, ne kíméljen.
[ Szerkesztve ]
-
-
m.zmrzlina
senior tag
Itt egy lehetséges megoldás makróval:
Sub legnagyobb_hol()
For Each cella In Selection.Cells
datum = cella.Value
For Each cella_1 In Selection.Cells
If cella_1.Value = datum And cella_1.Offset(0, -1).Value > temp Then
legnagyobb_sor = cella_1.Row
temp = cella_1.Offset(0, -1).Value
End If
Next
For Each cella_2 In Selection.Cells
If cella_2.Value = datum Then
cella_2.Offset(0, 1).Value = temp
End If
Next
temp = 0
Next
End Sub"A" oszlopban vannak az értékek, "B" oszlopban a hozzájuk tartozó dátumok, "C"-ben pedig, hogy az adott dátumnál mi a legnagyobb érték.
Úgy indulsz, hogy kijelölöd a dátumokat tartalmazó cellákat az elsőtől az utolsóig. Ha a te munkalapod szerkezete nem ilyen (amire jó esély van ) akkor tegyél be egy képet és hozzáfaragjuk a makrót.
[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz motinka #18135 üzenetére
Arra gondol, hogy ha tudod, hogy miből mit szeretnél csinálni akkor elindítod a makrórögzítést itt: (Excel2007 vagy újabb esetén)
Adsz neki egy nevet és végigcsinálod amit szeretnél majd leállítod. Ezután ha bármikor el szeretnéd végezni ugyanezt a feladatot csak kiválasztod az előbb rögzített makródat itt:
és lefuttatod.
De írd le pontosan mit szeretnél (esetleg képpel), hátha tudunk ötletet adni!
[ Szerkesztve ]
-
motinka
tag
válasz m.zmrzlina #18137 üzenetére
köszönöm ezt mindenképpen megpróbálom.
Közben keresgettem és ha jól olvasom/értem nekem egy template-t kell csinálnom amiben megadom a kívánságaimat, ezt berakom az egyik fülre.
Amikor érkezik a napi adat file, az mellé beteszem a másik fülre ezt a template fület és hogy mitől indul el azt nem tudom ) Hol lehet ezután magyarul olvasni okosakat?
Közben felmerült egy kérdés, ebben a template-ben ami táblázatnak van megformázva, azaz nem csak itt érvényes, bárhol, hogyan tudok egy fülön rákeresni egy másik fül oszlopnevére (ez adott), hogy azt gyűjtse? kösziMoTiNka
-
Pacsaj
csendes tag
Sziasztok,
Segítségre van szükségem excel file-ok adatainak összefésüléséhez.
A táblázatok különböző és file-onként nem ismétlő termékekhez anyagokat rendelnek, hozzátartozó mennyiségekkel. Egyforma anyag szerepelhet bármelyik táblázatban. Egy helyre szeretném rendezni az adatokat úgy, hogy minden termék együtt szerepeljen, a hozzá tartozó anyagokkal, ismétlődés nélkül, és a mennyiség természetesen összeadódjon ott, ahol az ismétlődés fenn áll.
Segítségeteket köszönöm,
Pacsaj -
Mutt
aktív tag
Hello,
...ahol ugyanaz a dátum, mint ebben a sorban, abból melyik a legnagyobb...
m.zmrzlina megoldása mellett itt van tömbképlettel is egy változat (A-oszlopban a dátumok; B-oszlopban az értékek; A2-ben a dátum melyhez keresed a maximumot):
{=MAX(HA($A:$A=A2;$B:$B))}üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz motinka #18132 üzenetére
Hello,
...egy rengeteg adatból álló adat tábla, ami naponta frissül.
Ebből kellene nekem oszlopokat kiszedni rendezni, sorba rakni...Több megoldás is lehetséges, de esetleg egy mintát meg tudsz osztani velünk?
1. Makró létrehozása (egy Worksheet.Change eseménnyel teljesen automatikus lesz).
2. Ha a sorbarendezés oszlopa EGYEDI SZÁMOKAT tartalmaz (nincs ismétlődés és nem szám), akkor a Kimutatás (Pivot) is segít és a többi oszlopot FKERES-sel mellé lehet tenni. A kimutatást be lehet állítani, hogy a fájl minden megnyitásakor automatikusan frissüljön.
3. Végső megoldás pedig segédoszlop és a KICSI + FKERES függvények használata.üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz Apollo17hu #18143 üzenetére
Hello,
Hivatalosan a tömbképletet úgy kell bevinni, hogy előbb kijelölöd a tartományt ahova a képletnek kell mennie,
majd beírod a képletet és jön a CSE billentyűkombináció. Ezzel csak az a gond, hogy a relatív hivatkozások nem fognak módosulni. Tehát itt nem fog műkődni ez a módszer.Marad a hagyományos, vagyis 1 db cellába viszed be a tömbképletet, és onnan lehúzással/másolással töltöd fel a többi cellát. Ekkor a relatív hivatkozások módosulni fognak.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
motinka
tag
hello,
http://www.hunsurf.hu/teszt_20130524.xlsx
ide felraktam a táblázat egy részét, természetesen sokkal több sorbó és több oszlopból áll.
A lényeg az lenne hogy az adat fül érkezik minden nap és az adat2 fül első sora szerinti oszlopokra lenne szükségem, ami az eredeti adat fülön lévő megnevezése az második sorban látható.
És miután átrakta a kívánt oszlopokat, rendezze be dátum szerint.
Ezzel nem is lenne gondom, csak az lenne a kívánalom, hogy másnap jön egy újabb fájl aminek az adat fülében benne vannak az aznapi adatok, és akkor is kellene egy adat2 fül belőle, és így tovább minden nap.MoTiNka
-
cserma
csendes tag
Sziasztok!
Valaki, ha ráér, kérem oldja meg a lenti feladatot és küldje el nekem.
Nagyon köszönöm Mindenkinek!Számítás
Paraméter 1 3,3
Paraméter 2 4
Paraméter 3 5
Paraméter 5 7
Eredmény 1 -104,05
Eredmény 2
Eredmény 3Feladat 1
A fenti tábla szürke mezőjébe illessz be egy funkciót, amit Te írtál, ugyanazokból a számokból számol és pontosan ugyanazt az eredményt hozza ki, mint a felette lévő szám.
A feladathoz nem elég az, amit átbeszéltünk, gondolkozz, legyél kreatív ill. keress rá Interneten. Ha nagyon elakadsz, szólj!Feladat 2
Ha megnyomom a fenti gombot, akkor a fenti tábla narancssárga mezőjébe kerüljön be annak a számnak a négyzete, amelyiket a gomb megnyomása előtt kijelöltem!
(pl. kijelölöm a D7 mezőt, majd megnyomom a gombot, akkor a narancssárga mezőbe kerüljön 25, stb.) -
Mutt
aktív tag
válasz motinka #18145 üzenetére
Hello,
Itt vannak a kész változatok.
Szóval ahogy írtam több megoldás is lehetséges.
1. Írtam egy makrót, amely minden egyes adatbevitelkor megnézi hogy van-e mit mozgatni és ilyenkor az egészet átviszi és sorbarendezi. A beviteli lap Change eseménye hívja meg. A beviteli lap tartalma az adat2-n jelenik meg.
Sub Adatmasolas()
Const wsEredeti = "adat"
Const wsCel = "adat2"
Dim vLastRowEredeti As Long
Dim vLastRowCel As Long
'megnézzük az eredeti lapon az utolsó sor helyét
vLastRowEredeti = ThisWorkbook.Sheets(wsEredeti).Range("B" & Rows.Count).End(xlUp).Row
'megnézzük az cél lapon ahova másolunk az utolsó sor helyét
vLastRowCel = ThisWorkbook.Sheets(wsCel).Range("B" & Rows.Count).End(xlUp).Row - 1
'ha több sor van az eredeti lapon akkor lehet másolni a másikra
If vLastRowEredeti > vLastRowCel Then
'képernyőfrissítés kikapcsolása
Application.ScreenUpdating = False
With ThisWorkbook.Sheets(wsEredeti)
'naptár kód másolása
.Range("X2:X" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("A3")
'dátum másolása
.Range("B2:B" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("B3")
'munkalapszám másolása
.Range("C2:C" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("C3")
'munka kezdete másolása
.Range("T2:T" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("D3")
'munka vége másolása
.Range("U2:U" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("E3")
'munkakód másolása
.Range("I2:I" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("F3")
'lezáró kód másolása
.Range("W2:W" & vLastRowEredeti).Copy Destination:=Sheets(wsCel).Range("G3")
End With
'sorbarendezés dátum szerint
Sheets(wsCel).Activate
With ThisWorkbook.Sheets(wsCel)
.Columns("A:G").Select
.Columns.AutoFit
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("B2:B" & vLastRowEredeti), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange Range("A2:G" & vLastRowEredeti)
.Sort.Header = xlYes
.Sort.SortMethod = xlPinYin
.Sort.Apply
End With
Sheets(wsEredeti).Activate
'képernyőfrissítés visszaállítása
Application.ScreenUpdating = True
'kijelölés megszüntetése
Application.CutCopyMode = False
End If
End Sub2. A másik megoldás pedig beépített függvényeket tartalmaz, kell hozzá egy ségédtábla és a függvényeket legalább addig le kell másolnod amennyi lesz a várható adatsor (én csak az első 300 sorba másoltam őket).
A megoldás a 3. lapon van.3. A Kimutatás is használható lehet, azonban a megadott mintában nem volt elegendő egyedi érték, így az ismétlődéseket nem tudja kezelni.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
Új hozzászólás Aktív témák
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Eladó Steam kulcsok kedvező áron!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest