- Gurulunk, WAZE?!
- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- sziku69: Fűzzük össze a szavakat :)
- Sgr_A: Számítógépeim aktualizálása cseréje
- Geri Bátyó: Agglegénykonyha 3 – Paradicsomos káposzta (amit amúgy utálok)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Parci: Milyen mosógépet vegyek?
- eBay-es kütyük kis pénzért
-
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
-
-
RAiN91
őstag
Sziasztok,
ha egy For...Next ciklus egyfolytában fut, belassítja az Excel-t.
Ez 0-69 ig megy cellánként felülről lefelé. Ha soronként bepötyögöm, simán IF paranccsal, akkor azzal gyorsabb lenne a rendszer, vagy az ugyan úgy lelassítja, mert egyfolytában figyeli egyidőben ezeket a sorokat? -
-
KBaj
kezdő
válasz
Fferi50
#45684
üzenetére
Szervusz!
Ez nagyszerű!
- A sok pont megtette a hatását. Mindig is küzdöttem a Range-vel, de kezdem érteni. Hurrá működik. A jó öreg With segített és megtette amit tudott és erre Te vezettél rá. Nagyon szépen köszönöm.
- Persze tudom ugyanolyan szerkezetű több sort is tudok mozgatni.
A "Pontosvessző" még "sima". Manuálisan: Excelben: kijelölök egy cellaterületet, CTRL+C vágólapra másolom - Nyitok egy új munkafüzetet - megnyíló lapjára CTRL+V bemásolom - mentem Másként az új munkafüzetet CSV UTF-8-ként - Totál Commander Nézőke=adatelválasztó pontosvessző>>>hát persze, hogy nem érti az angol. (Többször is kipróbáltam). Vajon mit csinálok rosszul?
Üdvözlettel. -
mulli86
tag
-
-
mulli86
tag
Sziasztok! Egy teszt eredményt szeretnék ábrázolni olyan pont diagramban, ami görbített vonallal és jelölőkkel van ellátva. Ezzel nincs is gond. A problémám ott kezdődik, hogy amiket ábrázolni tudok azok az átlag értékek, de én szeretném, ha hibasáv "helyett" a mérési eredmények minimum és maximum értékeit jelenítse meg úgy a diagram, mintha hibasávot adnék hozzá. Biztos meg lehet valahogy csinálni csak én nekem nem sikerül, mert már láttam ilyet. Köszi előre is a segítséget!
Kicsit pontosítanék. Azok az értékek már táblázatban szerepelnek, hogy min meg max, csak nem tudom ezeket az értékeket beállítani hibasávnak. A fő problémám az, hogy nem középérték az átlag, így nem tudok simán százalékos vagy rögzített értéket beállítani. Ha pedig beállítom egy adott vonalhoz, akkor automatikusan felveszi az értékeket mindegyik ponthoz, pedig különböző pontokhoz különböző min max értékek tartoznának. -
Fferi50
Topikgazda
Szia!
Bocs, nem vettem észre az oszl+6 paramétert. (Csőlátás
)
A tartományok (Range) kijelölésénél pontosan kell meghivatkozni a munkalapot. Ezért az alábbi formát javaslom:With Sheets("Adatsor")
Range(Cells(1, 1), Cells(1, 6)).Value = _
.Range(.Cells(1, oszl + 1), .Cells(1, oszl + 6)).Value
End With
Ha egymás utáni sorokban vannak az adatok, akkor azt egyben is másolhatod.
"Fontos, hogy az adatok tagolása ne pontosvessző legyen, hanem sima vessző, "
A CSV fájl azt fogja csinálni.
Üdv. -
KBaj
kezdő
válasz
Fferi50
#45682
üzenetére
Szervusz!
Elnézést kérek, képként akartam csatolni, de nem sikerült (ezzel is küszködök). inkább leírom. a Range kezdetű sor okozza a hibát:
Run-time error '1004':
Application-defined or object-defined error
Nem értem, abból amit küldtem, hogy gondolod, hogy ragaszkodok...
A megküldött példának a következőket kéne csinálnia: Kiválasztja a munkalapot - jól. Az A1: F1 területre 6 cellába írja be egy másik munkalapról ugyancsak 6 cella tartalmát. Ez 6 oszlopos és egysoros adatfájl lenne. Utána, <ami még nincs kész> írnám a többi adatsort ugyanilyen szerkezetben. Ebben akódban nem gyűjtök semmit, cellát cellába másolok. Vagy valamit rosszul csinálok?
Fontos, hogy az adatok tagolása ne pontosvessző legyen, hanem sima vessző, mert azt nem érti a statisztikai program (angol nyelvű).
Köszönettel. -
Fferi50
Topikgazda
Szia!
A hibaüzenet kimaradt a bejegyzésedből.
A leírásból azt látom, hogy továbbra is ragaszkodsz az A oszlopba gyűjtéshez. Ezt el kellene felejteni szerintem.
Egyébiránt jó lenne, ha a teljes makrót láthatnánk, esetleg egy példafájlt (nem érzékeny adatokkal), amiben megjelölnéd, hogy mi legyen a CSV fájlban.
Üdv. -
tgumis
tag
válasz
Fferi50
#45675
üzenetére
Igen a példa esetén ez ránézésre megállapítható
De több száz tétel egymás alatt és van ami kg -s van ami db-os van ami kevesebb mint 1 kg -os (ot volt valami baja) és volt ami nagyobb mint 1 kg-os.
De rájöttem, hogy mindent átváltok kg-ba és akkor a dbos ár szorozva a mennyiséggel illetve a fajlagos árat a kg-os mennyiséggel.
Szóval egyenlőre úgy néz ki ez lesz a jó vonal.
Köszi az észrevételeket (végül is közelebb vitt a megoldáshoz ) -
KBaj
kezdő
válasz
Fferi50
#45668
üzenetére
Kedves Fferi50!
Köszönöm szépen a reagálásod!
Mint Paklimannak irt bejegyzésemből kitűnik, Javaslatod a fájl mentési kérdés kikerülésére nagyon jól bevált és működik. Köszönöm szépen.
A csv készítéssel (egyszerűsítéssel) még küszködök.Sheets("CSV készítéshez").SelectRange(Cells(1, 1), Cells(1, 6)).Value = _Sheets("… Adatsor").Range(Cells(1, oszl + 1), Cells(1, oszl + 6)).Value
Készítettem egy CSV készítés nevű munkalapot, mert az előbbi sok minden mást is tartalmaz, ami nem kell a csv-hez. Az adatok átvitelekor azonban az alábbi hibát jelzi és nem tudok mit kezdeni vele.
Kérem segítsél, ha módodban áll.
Köszönöm a segítségedet. -
PistiSan
addikt
Sziasztok, lehet olyat excelben, hogy oszlopra szűrök, pl A,C,E 1 cellákban az "asd" szó szerepel, az összes többiben meg más, nekem a fenti opszlopok kellenének csak.
Van 60 oszlopom az első sorban 5-6db megadott szöveg található, ezeket az oszlopokat kell leszűrnöm és egy új lapfüre másolnom, jelenleg telejesen manuálisan megy, elég favágó munka. -
KBaj
kezdő
válasz
Pakliman
#45667
üzenetére
Kedves Pakliman!
Köszönöm szépen a reagálásod!
Valóban jó ötletet adtál; fájl komplett felülírása helyett megfelelő lehet annak legyilkolása, úgy sem kellenek már az adatok.
A bejegyzésed után azonban Fferi50 javasolt egy számomra „szebb” megoldást. Mint tudjuk egy feladat megoldása véges sok számú lehet.
Köszönöm, hogy figyeltél rám. -
Lokids
addikt
Sziasztok!
Kérnék egy kis segítséget, mert nem értem mi történik.
Van 2 VBA sor. cellába képletet kell beszúrni. Elvileg egyszerű.Workbooks(MainWBName).Worksheets(s_wsNAme2).Cells(s_Outrow, 3).Formula = "=COUNTIFS(FTE!C:C,A:A)"Workbooks(MainWBName).Worksheets(s_wsName3).Cells(iRow, iCol).Formula = "=SZUMHA(FTE!$C:$C,A" & iRow & ",FTE!" & Col_Letter(iCol + 4) & ":" & Col_Letter(iCol + 4) & ")"Az első sor működik.
Abból copyztem a másodikat, amivel gond van.
Elsőre feltűnt, hogy itt nem angolul, hanem magyarul kéri a képletet.
Utána, berakta ahogy kell, de mégis NÉV! jelenik meg a cellában.
Ennek ellenére, ha belekattintok a szerkesztő sávba, majd ki, utána minden jó. Én ezt nem értem. Mi a fene rossz a másodikban? -
Agony
aktív tag
válasz
Fferi50
#45673
üzenetére
Végül ez lett a megoldás:
=FKERES("Teljesülés";'C:\Users\......\Desktop\Teszt\Teljesülés.xlsx'!Teljesules;2;0)
Elneveztem a két egymás melletti ellát "Teljesules" -nek a táblákban, bárhol is voltak, így FKERES már megtalálta és akkor itt elég volt beállítani a másik oszlopot amiben az érték van.
-
Fferi50
Topikgazda
válasz
tgumis
#45671
üzenetére
Szia!
"kiderül, hogy az 54 gr-os 25 ft-ért a jó"
Tehát a probléma megoldva.
(Mondjuk ebben az esetben akár "ránézésre" is kibökhető, hogy a legnagyobb súlyú a legolcsóbb, nyilván az a leggazdaságosabb... - tudom, példa lehet rossz is )
Mi akkor a gond? A képlet jó, az eredményt le tudod olvasni.
Igazából nem értem a kérdésed.
Üdv. -
Agony
aktív tag
Sziasztok!
Van arra lehetőség makró nélkül, hogy egy függvénnyel megtaláljak egy másik excel táblában található cellát és átvegyem az értékét a cella neve alapján?
Például:
Van a MIND.xlsx amibe össze kellene gyűjteni a többi excelből ennek az egy cellának az értékét.
Az A oszlopban vannak egymás alatt tárolva a hivatkozások, hogy melyikben kell keresni:
c:\A.xlsx
c:\B.xlsx
c:\C.xlsx
...Az A, B és C exceleknek nem kötött a formátuma, viszont mindben van egy "TELJESULES" -nek elnevezett cella. Néhol ez a H7, máshol a G5, attól függően mekkora a tábla.
A cél az lenne, hogy a MIND.xlsx -be a B oszlopba megjelenítse az A oszlopban lévő linkek mellé, hogy az adott excelben mennyi a TELJESULES nevű cella értéke.
Van erre lehetőség vagy ez csak álom macró nélkül?
Előre is köszönöm a segítségetek!
-
tgumis
tag
válasz
Fferi50
#45669
üzenetére
Szia
Köszi olvastam ott is. De az az alap probléma hogy lesz mondjuk 5 féle zsömle (vagy paradicsomlé db-os a termék mindegy is)
Szóval van 5 féle zsömlénk.
egy 45 gr-os 32 ft-ért
egy 39 gr-os 34 ft-ért
kettő 54 gr-os egyik 25 ft-ért a másik 45 ft-ért
egy 40 gr-os 23 ft-ért
ugye ezeket ár érték arányban kellene összevetnem:
kiderül, hogy az 54 gr-os 25 ft-ért a jó -
p5quser
tag
Sziasztok!
Boldog Új Évet Nektek!
Az alábbi kódrészlet lefutása kb. 30 másodperc és másfél perc között ingadozik, teljes mértékben az adott gép teljesítményétől függően.CikkTomb = Sheets(1).Range("A1:A" & Sheets(1).UsedRange.Rows.Count).ValueTetelTomb = Range(Cells(lr, 1), Cells(nlr, 3)).ValueFor i = 1 To UBound(TetelTomb, 1)cs = Application.Match(TetelTomb(i, 1), CikkTomb(), False)Sheets(1).Cells(cs, 3) = Sheets(1).Cells(cs, 3) - TetelTomb(i, 3)Next i
Készletet kezel, formból, adott sorrendben.
A cikktömb a tesztnél ~62 000 soros, a tételtömb pedig 100.
Teljesen reális ideig szöszmötöl vele, vagy lehet esetleg faragni belőle?
Előre is köszönöm! -
Fferi50
Topikgazda
válasz
tgumis
#45652
üzenetére
Szia!
Ahogyan a másik fórumon is írtam, a K oszlop képlete a hibás. Darabos termék esetén korrigálni kell a C oszlopban levő darabsúly értékével.
https://pcforum.hu/tudastar/145152/excel-fajlagos-arak-osszehasonlitasa
Üdv. -
Fferi50
Topikgazda
Szia!
Tapasztalatom alapján a következőt javaslom:
Nem kell az adatokat az A oszlopba összevonni! A makróval csv-be mentés "magától" megcsinálja a vesszővel tagolt fájlt. Így megspórolhatod az összemásolás műveletét.
Elég, ha az adott munkalapot átmásolod egy új munkafüzetbe és mented az újat, majd bezárod.
A rákérdezést az
Application.DisplayAlerts=False
sorral tudod elkerülni.
Vagyis nagyjából így nézhetne ki a makród ezen része:Sheets("… Adatsor").Copy '(az eredeti, oszlopokban adatot tartalmazó munkalap másolása új munkafüzetbe - ezután ez a munkafüzet lesz az aktív.
Application.DisplayAlerts=False
ActiveWorkbook.SaveAs Filename:= _
"C:\...\Vesszővel tagolt" & sz & Cikl & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
ActiveWorkbook.Close False ' további mentés nélkül bezárjuk az új munkafüzetet, ismét az eredeti lesz aktív
Application.DisplayAlerts=True ' ha a figyelmeztetéseket látni szeretnédÜdv.
Ps. persze a mentéshez szükséges változóknak értéket kell adnod itt is előzetesen. -
Pakliman
tag
-
Pakliman
tag
válasz
hódmaci
#45662
üzenetére
Szia!
Munkalaponként:
- kijelölöd az összes figyelendő cellát
- Képletek menü -> Név megadása -> beírsz egy nevet"Összegző" munkalapon a képlet:
=DARAB2(Tartomány1)+DARAB2(Tartomány2)
Ez a tartományban lévő "nem üres(!!)" cellákat szamolja meg.A darabteli függvény jobb lenne (megadhatnád neki, hogy csak az x-eket, vagy csak a 2-t tartalmazó cellákat összesítse), de az sajnos hibára fut, ha a tartomány nem egymás melletti cellákból áll
-
KBaj
kezdő
Kedves Mindenki!
Beleakadtam egy problémába: szeretném a segítségeteket kérni!
Egy java alapú statisztikai feldolgozó programnak a bemenő adatfájlja vesszővel(!) elválasztott, .csv kiterjesztésű egyszerű szöveg. Excelben készítem elő az adatokat, azaz egy függvénnyel minden adatot (numerikus) soronként összevonva beviszek az első (A) oszlopba a pl.: =b1 & „,” & c1 & „,” & d1 & „,” & e1 … és így tovább, míg van adat a sorban. Majd csak az A oszlopot meghagyva mindent kitörlök, az A oszlop tartalmát Értékként visszamásolom ugyan arra a helyre és elmentem .csv kiterjesztettként. Az eredményt megnézve pl. Totál Commander Nézőkéjével: a szükséges .txt-hez hasonló fájl jött létre. És nincs ezzel baj, a program megérti, alakít még rajta és dolgozik vele. Itt jegyzem meg: mind ezt manuálisan végeztem. De nekem nagyon sokszor kell ezt megcsinálnom.
A .csv fájl készítést megpróbáltam VBA-ban, itt a részlete:
'A másolandó Adatsor
Sheets("… Adatsor").Select
Range(Cells(Cikl - 20 + 1 - Id, oszl), Cells(Cikl - 20, oszl)).Select
Range(Cells(Cikl - 20, oszl), Cells(Cikl - 20, oszl)).Activate
Selection.Copy
'Hová másoljuk
Workbooks.Add
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\...\Vesszővel tagolt" & sz & Cikl & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
A részletben Cikl,Id,oszl,sz előre megadott intewger és string változók. Két hiba jelentkezik:
Az elkészített .csv fájl Adatsorai mind idézőjelek közé kerültek és így már nem megfelelően értelmezi a statisztikai program. A kód részlet utolsó sorában lévő mentés, ha van már olyan nevű fájl, mindig megkérdezi: cserélje-e a fájlt. A cél az lenne, hogy ne kérdezze; nyugodtan cserélje le.
Röviden ez a problémám.
Ha valaki tud, kérem segítsen.
Köszönöm. -
hódmaci
senior tag
Elnézést a dupláért. kifutottam az időből.
Még egy kérdés más témában:
Adott koordinátákba "x" vagy bármilyen más karakter, szám kerül beírásra.
Ezt szeretném számokkal összegezni.Vagyis:
Figyelem az 1lap A:1 B:9 C:5 C:11 G:9 koordinátákat
Illetve a 2lap D:1 B:9 E:5 R:11 G:9 koordinátákat1lap A:1 be írok egy "X" et
1lap B:9 be írok egy "3" ast
1lap c:5 be írok egy "x" et
1lap c:11 be írok egy "j"
1lap G:9 üresen marad2lap D:1 be írok egy "3" et
2lap B:9 be írok egy "X" et
2lap E:5 be írok egy "I" et
2lap R:11 Üresen marad
2lap G:9 be írok egy "X" etMajd ezt szeretném összegezni és számokban látni a 4LAP A:10 ben.
Vagyis esetünkben ez a szám: 8
Mivel 10 ből 8 koordinátába került valamiféle (szám,szöveg) bejegyzésreErre mi a megfelelő függvény?
Már ha ez kivitelezhető. -
Fferi50
Topikgazda
válasz
hódmaci
#45659
üzenetére
Szia!
Azokat a cellákat, amelyekben nem szeretnéd, hogy módosítás történjen, zárolni lehet.
A cella zárolt - nem zárolt tulajdonságát a jobb egérgomb - cellaformázás - védelem fülön tudod megnézni/módosítani.
Alapból minden cella zárolva van egy új munkalapon, de a zárolás csak akkor lép érvénybe, ha a munkalapon bekapcsolod a lapvédelmet.
Mivel valószínűleg egyszerűbb a zárolt tulajdonság megszüntetése, mivel kevesebb az engedélyezett cella, ezeket kell kijelölnöd és megszüntetni a zárolást.
Utána bekapcsolod a munkalap védelmet. Véleményezés - lapvédelem - A minden felhasználónak engedélyezve listából kiveszed a zárolt cellák kijelölése jelölést.
Ekkor csak a nem zárolt cellák között lehet mozogni.
Üdv. -
hódmaci
senior tag
Sziasztok!
Meg lehet azt oldani hogy enter ütésre adott sorokat vagy Tab ütésre adott oszlopokat ugorjon át szerkesztés közben?Vagyis:
A:8 koordinátába írok szöveget majd enter.
De ekkor ne a A:9 re ugorjon hanem hagyja ki azt a sort és automatikusan az A:10 re lépjen.
Vagyis adott sorok és adott oszlopok vagy adott koordináták ne legyenek módosíthatóak. -
ny.erno
tag
válasz
temporello
#45645
üzenetére
És igen, igen, igen!!!
![;]](//cdn.rios.hu/dl/s/v1.gif)
Ez megoldotta! Köszönöm! 
-
tgumis
tag
válasz
Norbika1493
#45649
üzenetére
Szia!
Én már rég csak az INDEX HOL.VAN függvény kombót használom ehhez
-
tgumis
tag
Sziasztok!
Van egy olyan problémám, hogy sok sok terméket (különböző beszerzési helyről) kellene összevetnem (mármint, hogy kg ban melyik a legolcsóbb)
3 problémám van( vagyis 3 lehetőség):
1. Az adott termék kg-ban (mérjük) pl 750 grammos kenyér(ne kérdezzétek miért így mikor lehetne darabban is) amikor a kiszerelési egység kissebb mint 1 kg. pl 750 gr-os kenyér
2. Az adott termék db ban kerül számlázásra és a mértékegysége db de nekem tudnom kell hány kg.
pl egy zsömle lehet 54 gr de 39 gr stb
3. Az adott termék nagyobb kiszerelésű mint 1000 gr. pl 5000 gr-os zsemlemorzsa (ezt is kg-ban kell rendeznem)
4. Ami nem gond mert 1000 grammos és kg ban tartjuk nyilvánA csatolt képeken látszik az én megoldásom.
Az lenne a kérdés, hogy a fajlagos (G és H oszlop a valós értéket mutassa)
Remélem értelmesen fogalmaztam
Köszi előre is -
zhal
csendes tag
Sziasztok,
2013-as Excel-ben van arra lehetőség, hogy az egysoros megjelenítés megmaradjon akkor, ha a cellában a szövegben új sor is van? Az a jelenség, hogy az egysoros megjelenítés beállítása mellett (Cellaformázás | Sortöréssel több sorba : nincs bejelölve), hosszú szöveg szerkesztése után több sorossá válik a megjelenítés, ha új sor is van a cellában. Le lehet valahogy tiltani ezt az automatikus formázás módosítást?
Kösz előre is!
-
#45650
lappy
őstag
Norbika1493
#45649
lappy
őstag
válasz
Norbika1493
#45649
üzenetére
Fkeres
-
#45649
Norbika1493
csendes tag
Norbika1493
csendes tag
Sziasztok,
Olyan segítség kellene, hogy tudok sok excel fájlbol kiszedni egy bizonyos értéket.
Szöveges értékre keresnék rá és a mellete álló cellába kapott értéket kellene visszaadja.köszönöm
-
#45648
Apollo17hu
őstag
Apollo17hu
őstag
Megőrülök. MS Office Proffesional Plus 2013.
Az Excelt teljes méretben használom; a jobb felső sarokban látszik is az "X"-től balra lévő ikonon, hogy teljes méretben van. Minden egyes alkalommal, amikor a kurzort a jobb felső sarokba húzom, hogy bezárjam, "vakon" csinálom, mert a jobb felső sarokban nem lehet más, csak az "X", ami a munkafüzet bezárását jelenti. DE! Olyan, mintha a jobb felső sarok "le lenne kerekítve", tehát a jobb felső sarokban az utolsó képpixelen nem az Excel van, hanem az összes többi teljes méretű alkalmazás. ...emiatt pedig nem az Excel munkafüzet, hanem a böngésző, az email-kliens, a jegyzettömb - bármi, ami éppen nyitva van - záródik be.
Hogyan lehet valóban teljes méretben használni az Excelt? Valamiféle megjelenítési stílust kellene állítanom?
-
Axe Miskolc
tag
válasz
temporello
#45646
üzenetére
Köszönöm, mondtam én, hogy láma kérdés...
(Hogy nem jutott ez eszembe magamtól...)
-
temporello
tag
válasz
Axe Miskolc
#45644
üzenetére
Jelöld ki a tartományt,utána Feltételes formázás -> Cellakijelölési szabályok -> Nagyobb,mint -> 0,formátum kiválasztása és kész.
-
Axe Miskolc
tag
válasz
temporello
#45643
üzenetére
Szia!
Köszi a választ, de kicsit továbbvinnél az úton? Ha a jelenlegi nullát átírom egyre akkor hogyan lesz más színű?
Update: Beugrott.. Ha nem 0 akkor legyen más színű. Erre gondoltál? -
temporello
tag
válasz
Axe Miskolc
#45642
üzenetére
Feltételes formázás -> Cellakijelölési szabályok.
-
#45642
Axe Miskolc
tag
Axe Miskolc
tag
Sziasztok!
Lehet, hogy nagyon láma kérdés, előre is bocs!
Leltározunk.
Alapesetben a készlet mennyiség cellában 0 van.Szeretném ha automatán változna a szöveg vagy a háttér színe amikor beírom a tényleges mennyiséget, hogy lássam azzal már foglalkoztam. Hogyan oldható meg a legegyszerűbben? -
Volusia79
friss újonc
Sziasztok!
A következőben kérném a segítséget:
Excel 2016-ban dolgozom, adott egy táblázat az alábbiak szerint :
Az 1. sorban a csomagok, az A oszlopban az alkatrészek vannak, a táblában pedig a csomagokhoz tartozó alkatrész darabszámok. Egy másik táblában a csomagok készletváltozását vezetem. Arra keresek képletet, hogy egy harmadik táblában a csomagok változásával az alkatrészek készletváltozása is látható legyen. Tehát ha egy csomag készlete nő, a beépített megfelelő alkatrészek készlete (a példa táblázatban szereplő mennyiséggel) csökken.
Köszi a segítséget. -
ny.erno
tag
válasz
temporello
#45637
üzenetére
Több volt. Töröltem és beállítottam csak a szükségeseket, de ugyan olyan lassú maradt. Azért köszi, egy próbát megért!
-
agszabv
csendes tag
Sziasztok,
írtam Microsoft365 Excelben Windows10 (64 bit)-en egy VBA-s excel munkafüzetet. (Acél) szelvény tételjegyzék készítő "program". Milyen előző excelek-ben futhat? Office2019?Office2016?Office2013? Nem tudom pontosan mik vannak...
Nem reklámozni akarom, de ha valaki akarja megnézheti : [link] -
ny.erno
tag
Sziasztok!
Nálam is előjött egy pár hónapja az excel belassulás jelenség, de nem szeretnék vele tovább együtt élni.
Ez egy szimpla adatbázis kontaktokkal (név, hely, cégnév, termékek, e-mail, skype, tel, web elérhetőségek). Képletek nincsenek, szűrők vannak (amikor a szűrést csinálom, akkor lassul be), valamint megjelölést használok, hogy ha valami olyan adat kerülne be, ami már egyszer szerepel, akkor azt színezze pirosra. 6 munkalap van, de nincsenek függvények. A fájl mérete 0,9 Mbyte, szóval elégg pici.
- Az összes hivatkozást kivettem már belőlük, de csak egy picivel lett jobb. Jelenleg olyan ~8,500 kontaktot tárolok benne, de a cél 30k felett van, így megoldást keresnék erre.
- Ha más futó programokat bezárok, az sem orvosolja.
- A CPU használat max 32%-ra ugrik fel amikor a szűrő gombra rányomok(ezt mondjuk nem értem miért nem megy fel jobban, mert mehetne, más folyamatokkal együtt ilyenkor sincs több 45 %-nál az együttes CPU használat).
- Windows újratelepítés nem orvosolta.
- Laptopon használom, de egy ~4 éves basic irodai pc-n is ugyan ilyen lassú volt.
Volna tippetek, hogy mivel lehetne felgyorsítani? -
hódmaci
senior tag
Sziasztok!
Auto mentésen lehet valahogyan módosítani?Furcsán hangzik de az lenne a feladat, hogy mentse dokumentum "magát" automatikusan és adja meg névnék az aznapi dátumot .(év.hó.nap)
Illetve még készítsen egy írásvédett(jelszó védelem) másolatot is az aznapi utolsó mentésről.
Erre azért lenne szükség, hogy későbbiekben ha belenéz valaki egy régebbi dokumentumba az már ne mentse magát automatikusan és ő se tudja módosítani csak ha tudja a jelszót
Vagyis így mindig dátum szerint lehetne megnyitni a keresett nap utolsó mentését.Remélem nem voltam bonyolult és elnézést ha nem ismerem az Excel korlátait.
-
sopruk
senior tag
válasz
Delila_1
#45627
üzenetére
Jaa, értem! Nem jeleztem, hogy nincs külön címsor. Köszönöm, hogy még erre is gondoltál!
Szuperül működik! Fantasztikus, hogy ilyen gyorsan végez vele, amire egy csomó időm rá szokott menni, meg unalmas a másolgatás. Kiszámoltam, hogy minden füzet másolása min. 12-15 műveletet igényelt (megnyitás, kijelölés, kivágás, átváltás, beillesztés, új pozícióra ugrás, visszaváltás, kijelölés megszüntetés, bezárás, file kezelőre ugrás, újabb megnyitás...), és mindezt 20-30-szor...
Még egyszer nagyon köszönöm a segítséget, rengeteg időt spóroltál meg nekem ezzel! Hálám örökké üldözzön!
-
Delila_1
veterán
válasz
sopruk
#45626
üzenetére
Nem rontasz el semmit. Szándékosan írtam úgy, hogy az összesítőbe ne írja be mindenhova a címsort.
Az alábbi sorból hagyd ki az Offset(1)-etSheets(1).Range("A1").CurrentRegion.Offset(1).Copy WB.Sheets(1).Range("A" & ide)Legyen csak
Sheets(1).Range("A1").CurrentRegion.Copy WB.Sheets(1).Range("A" & ide) -
-
#45625
lappy
őstag
robi12ster
#45624
lappy
őstag
válasz
robi12ster
#45624
üzenetére
Szerintem találsz a neten kész naptarakat amiket át alakíthatsz.
-
#45624
robi12ster
tag
robi12ster
tag
Sziasztok. Segitséget szeretnék kérni. Már vagy 20éve nem használtam excelt. Szeretnék csinálni egy jelenléti iv táblázatot. Ahol automatikusan kitölti a hánapokat, napokat naptár szerint. Hogy is áljak neki?
-
Delila_1
veterán
válasz
sopruk
#45622
üzenetére
Írtam rá egy nyúlfarknyi makrót.
A füzetet, amiben a makró van, Összesítő.xlsm-nek neveztem el. Ha nálad nem ez a neve, az 5 csillaggal jelzett sorban írd át!
Ha nem akarod az előző adatokat törölni, a sok csillagos két sort töröld.
Modulba tedd, ahogy a Téma összefoglalóban olvashatod.Sub Osszemasolas()
Dim WB As Workbook, ide As Integer, FN
Set WB = ActiveWorkbook
Const utvonal = "C:\Kivonatok\"
'Előző adatok törlése *************
WB.Sheets(1).Range("A1").CurrentRegion.Offset(1).ClearContents' *************
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ChDir utvonal
FN = Dir(utvonal & "*.xls*", vbNormal)
Do
If FN <> "." And FN <> ".." And FN <> "Összesítő.xlsm" Then '*****
ide = WB.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1
Workbooks.Open Filename:=utvonal & FN
Sheets(1).Range("A1").CurrentRegion.Offset(1).Copy WB.Sheets(1).Range("A" & ide)
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub -
sopruk
senior tag
válasz
Delila_1
#45621
üzenetére
Nos igen, sejtettem, hogy valamelyik fogalmat rosszul fogom értelmezni.
Amikor 20+ éve tanultam ezeket, nem volt még Füzet elnevezés, vagy csak nem figyeltem jólSzóval igen, 20-30 külön Füzetben vannak a táblázatok. Mindegyikben csak az az egy Fül található...
Mivel hamarosan újra lesz telepítve a gép, ezért létrehoztam egy útvonalat, amit bármely gépen létre tudok majd hozni:
c:\Kivonatok\
Ide mindig át tudom másolni az egyesítés idejére őket...Az összegző táblázatnak egy külön füzetet szoktam létrehozni...
Nagyon köszönöm hogy időt fordítasz a segítségre!!!
-
Delila_1
veterán
válasz
sopruk
#45616
üzenetére
Tisztáznunk kell a fogalmakat. Füzet az a fájl, aminek xls... a kiterjesztése.
Munkalap a füzetben lévő Munka1, Sheet1, vagy bármi más néven elnevezett lap, szokták fülnek is nevezni.
Az egyes lapokon lehetnek a táblázatok, bármelyik lapon több is.
Táblázat az, amit úgy írtál le, hogy a címsoruk azA1:N1tartományban van, és változatos a soruk száma. Ebből a leírásból kiderül, hogy nem 1 lapon vannak, mert akkor nem lehetne azonos helyen a címsoruk.
Most már csak azt kellene tudni, hogy 1 füzetben, 20-30 lapon vannak a táblázatok, vagy 20-30 füzetben.
Ha 1 füzetben, a következő kérdés az, hogy van-e ezeken a lapokon kívül másik lap is – leszámítva az összesítő lapot.
Ha külön-külön füzetben vannak, mi az útvonaluk (melyik mappában vannak), mi alapján lehet azokat megnyitni. -
Fferi50
Topikgazda
válasz
andreas49
#45619
üzenetére
Szia!
Mi vele a problémád?
Ha a cimkék összeérése a gond, akkor pl. megváltoztathatod a tengelyen a mértékegységet:
Tengely formázása - Nagyságrend. Itt kiválaszthatod hogy milyen legyen a megjelenés.
Ezen kívül meg lehet oldani, hogy minden másodikhoz legyen cimke, esetleg váltogatni lehet a megjelenés helyét - egyik felül, másik alul vagy középen.
Üdv. -
sopruk
senior tag
válasz
Delila_1
#45613
üzenetére
Külön-külön táblázatban található mind a 20-30
Az A1 cellától az N1-ig találhatóak benne az adatok soronként
Viszont változó, hogy hány sort tartalmaz. Van hogy csak 1-2, de akár 20-30 sort is.
Az összegző táblát én hozom létre egy üres táblázatot és az A1 cellától kezdem a bemásolást... -
Delila_1
veterán
-
sopruk
senior tag
Sziasztok!
A segítségeteket szeretném kérni, hátha tudtok az alábbi problémára valami egyszerűbb, gyorsabb megoldást a jelenleginél...
Havonta érkezik 20- 30 Excel táblázat, melyben mindig ugyanannyi (14) oszlop található, viszont a sorok száma változó. Jelenleg minden táblázatban kijelölöm a sorokat, majd CTRL+C, CTRL+V megoldással másolom be őket egymás alá egy új táblázatba...
Létezik-e erre valami automatizálható funkció?
2007-es, magyar nyelvű Office van a gépen...Előre is köszönöm, ha tudtok segíteni!
-
mdk01
addikt
Sziasztok,
Office 360 excel munkafül tábláján a gördítősáv szinte meg sem mozdul ahogyan haladok lefele a táblázatban, egér gördítéssel, vagy bill. nyillal.
Van benn sok összevont cella, de nem hinném, hogy ez a problémája nem találkoztam még ilyennel.
Ha megfogom a gördítőkocsit(nem tudom hogyan hívják most hirtelen ) akkor 1000 sort ugrik a tábla, vagy még többet, de inkább többet, mert nem lehet olyan finoman használni.
Érdeklődnék, hogy ezt mi okozhatja?
Köszönöm -
p5quser
tag
válasz
Delila_1
#45604
üzenetére
Köszönöm!
Ő vele az a bajom, hogy mindig munka2 lap utolsó sorától kéne kezdődnie az új értékeknek és ha behelyettesítem az utolsó sor számát, minden értéket ugyanabba a sorba ír a munka2 lapon. Nomeg persze a másolando range is változó hosszúságú, bár ugyanattól a ponttól kezdődik mindig (A10). -
Fferi50
Topikgazda
válasz
p5quser
#45603
üzenetére
Szia!
A tömböt értékadással kapod meg.
Pl.Dim atomb()
atomb=Range("A1:F3").Value
'Ezután végigmész a tömb elemein sor vagy oszlop szerint. (Az első index a sor, a második az oszlop.)
'Aminek van értéke, azt beirod a soron következő cellába, az üreset pedig hagyod békén.
Dim i As Integer, j As Integer, k As Integer, m as integer
k=10:m=1 ' a 10 sor A oszlopától kezdődik a másolás
For i=1 to Ubound(atomb,1)
For j=1 to Ubound(atomb,2)
If atomb(i,j)<>"" Then
Cells(k,m).Value=atomb(i,j)
k=k+1
End If
Next j
k = k + 1: m = 1
Next i
Üdv. -
p5quser
tag
válasz
Apollo17hu
#45602
üzenetére
Én is így tudom, de pár sortól pár száz sorig változik a range és az oszlopok is 1-37 ig vannak 7 felé osztva, nem egyenlő mértékben. Szóval a nagyobb listánál már belassulna a másolgatás. Ezért gondoltam a tömbösítésre. Úgy olvastam, sokat dobna a gyorsaságon.
-
#45602
Apollo17hu
őstag
p5quser
#45601
-
p5quser
tag
Sziasztok!
Ismét a segítségetek kérném vba-ban.
Egy range egyesített cellákat tartalmaz, benne szöveges és numerikus tartalommal. Ezt kellene átmásolnom egy másik munkalapra, de már az üres cellák nélkül.
Gondolom egy kétdimenziós tömbbe kéne ezt a range-et beleborítani, majd az üres értékek nélkül az újraméretezett tömböt a másik munkalapra kiírni.
Mellékelek egy ábrát is a nyűgömről.
Persze ettől kicsit bonyolultabb és több a tartalom, de csak oszlopok vannak egyesítve, sorok nem. Tehát az A1:F3 -mat kéne A9:C11 -be kiírnom. Egy automatizált feladat része lenne, szóval csak vba jöhet szóba.
Előre is köszönöm!
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Ez megoldotta! Köszönöm! 
Új hozzászólás Aktív témák
- Nők, nőügyek (18+)
- Formula-1
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Kettő együtt: Radeon RX 9070 és 9070 XT tesztje
- Sütés, főzés és konyhai praktikák
- Gurulunk, WAZE?!
- Path of Exile 2
- Milyen videókártyát?
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- E-book olvasók
- További aktív témák...
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest