Az „Excel” fórum célja, hogy keretet adjon az Excel felhasználók széles táborának tapasztalataik megosztására, és lehetőséget a segítséget kérőknek. Az alábbi összefoglaló azért készült, hogy segítse a helyes kérdésfeltevést.
– Írd le szabatosan a problémát. Úgy fogalmazz, hogy ne csak te magad, de a szakértő is megértse, mire szeretnél választ kapni.
– Írd le, hogy milyen verziójú Excellel dolgozol. (Vagy ha nem – ill. nem csak – Excel, akkor micsoda?)
– Írd le, hogy milyen úton indultál el, és hol akadtál el rajta.
– A kérdés megértése szempontjából sokat segíthet, ha feltölteszt egy képet, amin látszik, hogy mit szeretnél, vagy illusztrálja azt.
– Még jobb, ha feltöltesz egy minta munkafüzetet valahová (pl. data.hu). Feltöltés előtt távolítsd el belőle a nem publikus adatokat.
– Ha a feladat jellege olyan, célszerű az "előtte" és "utána" állapotokat bemutatni. (Miből kellene csinálni mit?)
– Ha VBA kódon kell javítani, másold be a releváns kódrészt. Rövid kód mehet hozzászólásba, hosszú kód inkább ide: http://pastebin.com/
– Ha valami nem úgy működik, ahogy kellene, add meg a rendellenes viselkedés jellemzőit, a hibaüzenetet, és a hibát okozó programsort.
Nem működik jól az alábbi AK cellába írt függvényem.
=HA(AJ2="";"";I2-AJ2())
A lényeg, hogy I2-ből kell kivonni AJ2-t. Amennyiben az AJ2 üres cella, ne jelenítsen meg semmit, vagyis az AK cella üres legyen. (#HIV! jelenik meg, ha az AJ2 kitöltött.)
Private Sub vizszintes_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) KeyCode = IIf(KeyCode > 47 And KeyCode < 58 Or KeyCode = 13, KeyCode, 0) If KeyCode = 13 Then szamolj_Click End If End Sub
Private Sub vizszintes_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) KeyCode = IIf(47< KeyCode < 58 Or KeyCode = 13, KeyCode, 0) If KeyCode = 13 Then szamolj_Click End Sub
Szeretnék segítséget kérni, a csatolt képkivágások segítségével megpróbáltam szemléltetni, hogy mit szeretnék elérni makró segítségével. Adott két munkalap (A és B) hasonló adattartalommal, de oszlopok sorrendje eltérő. Egy harmadik munkalapra szeretném összefésülni a két táblázatot úgy, hogy az A és B munkalapon lévő táblázatból a oszlopcímek alapján dinamikus kijelöléssel az "Összesít" munkalapra másolja az adatokat, egymás alá.
Private Sub vizszintes_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) KeyCode = IIf(KeyCode > 47 And KeyCode < 58 Or KeyCode = 13, KeyCode, 0) If KeyCode = 13 Then szamolj_Click End Sub
Ha nem kívánt karakter kerül be, elkerülheted a kiírását, ha a KeyCode értékét 0 -ra állítod.
Ha Entert nyomok, lefuttatja a szamolj_Click makrót.
Ha nem számot írok bele, akkor megjelenik a karakter, de a következő leütésnél törli az előzőt. Ez mondjuk jobb lenne, ha nem is engedné beírni a nem számot.
Private Sub vizszintes_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If Not IsNumeric(vizszintes) Then vizszintes = "" If KeyCode = 13 Then szamolj_Click End Sub
A Change eseményt minden billentyű leütéskor meghívja a program. Így elég brutális, ha valaki az 5. szám helyett betűt ír, netán pont helyett vesszőt, te máris kinullázod az egészet :)
Ha a vizszintes nevű textboxodhoz tartozóan megnézed a kódot, akkor a jobb oldali lenyílóban találod a különböző eseményeket, pl. az Entert is.
Van a Textboxnak Enter eseménye (és Exit eseménye is), ahonnan elindíthatod a makrót. Nézd meg a Textbox eseményeit (Kiválasztod a Userformon a Textboxot - jobb egérgomb - view code).
Pont ma írtam azt a feltételt hozzá a te korábbi egyik munkádból .-)
Arra tudsz ötletet, hogyha a textBoxba beírtam a számot, majd Entert nyomok, akkor adott makrót indítsa el? Tehát ne kelljen külön a Számolj gombot megnyomni.
Szakik! Hogyan tudnám azt megoldani, hogy az A1 oszlop tele van értékekkel, a B-oszlopban úgy szeretném megjeleníteni ezeket az értékeket hogy elé legyen írva mindegyiknek pl hogy "HRSZ". Pl. A1: 333 B1: HRSZ 333
Bocs, én néztem el a dolgot. A K2 cellát is dátum formára alakítottam, és csodálkoztam, hogy miért jött ki 2050.07.06. Afölött a mondat fölött meg átsiklottam, hogy "Innen tudom, hogy ma 54974 napja született.". De így már világos.
Én annakidején a strukturált programozás technikájával ismerkedtem meg, és alkalmazom a mai napig. Azt rendszeresen alkalmaztam, alkalmazom mind a mai napig. Ami azt jelenti kicsit leegyszerűsítve, hogy a programban a feladatokat könnyen áttekinthető részegységekre (alprogramokra) igyekszem osztani, és - különösen a többször ismétlődő feladatokat - soha nem ismétlem meg a programszövegben, hanem önálló alprogramként hívom meg ott, ahol szükség van rá. És persze van még hozzá néhány más szempont is.
A Robert C. Martin könyvet nem ismerem, de ahogy egy összefoglalót megnéztem (https://hup.hu/node/143736), lényegében ez is a strukturált programozásról szól, csak más kifejezéssel.
Viszont ezeket az elveket az Excel függvényeinél továbbra sem tartom feltételnek. Sajnos az egymásba ágyazás szükségessége nem is könnyíti meg a dolgot. A kezdőket nem a függvények egyszerűsítésével, hanem a függvény működésének elmagyarázásával igyekszem segíteni.
A lényeg, hogy segédoszlop, vagy egy kicsit bonyolultabb függvény - ha nem is 110 méter:-) - ízlés kérdése.
(Apropó, tegnap próbálgattam a megoldásodat. Az a K2-be kerülő függvény nekem sehogy sem akart összejönni. Nincs ott véletlenül valami előjel gond?)
Naná, hogy megy segédoszlop nélkül, és régen még sportot is űztem belőle, mert a segédoszlop a gyengék fegyvere. :-)
Amióta megismerkedtem a modern programozási elvekkel és a tiszta kód fogalmával, ezeket igyekszem visszaültetni az adatbázis-kezelésbe és a táblázatkezelésbe is. Ha egyszer módosítani kell valamit, és át kell rágni magam egy száztíz méter hosszú képleten, az többe fog kerülni, mint egy elrejtett segédoszlop ára.
És ha itt kezdőknek akarunk megmutatni valamit, ők is jobban megértik részletekben, azonosítható lépésekben.
Szerintem segédoszlop nélkül is megy a dolog. Próbáld meg ezt a képletet írni G1-be: =HA(ÉS(D1="";E1="";F1="");"";ÉV(DÁTUM(A1-D1+2000;B1-E1;C1-F1))-2000 &"." & JOBB("0" & HÓNAP(DÁTUM(A1-D1+2000;B1-E1;C1-F1));2) & "." & JOBB("0" & NAP(DÁTUM(A1-D1+2000;B1-E1;C1-F1));2))
Ez lényegében Feri képletén alapul, kiegészítve SK 2000-es korrekciójával, amit viszont az ÉV függvény végrehajtását követően rögtön korrigál, és a végeredmény stringként fűzi össze, mert dátumként nem tudná kezelni. És az egészet egy feltétel egészíti ki, hogy amennyiben a D, E és F oszlopban nincs adat, akkor ne írjon semmit a G-be.
Nekem szükségem volt ilyen számolásokra, mert tudni akartam, hogy a családomban mikor van valakinek "kerek születésnapja", pl. 10 ezer vagy 25 ezer napja született stb. Na de a családi táblázatomban régi emberek is voltak, és bökte a csőrömet, hogy ott nem működik. Kiszámoltam, hogy mind a két dátumhoz 2000 évet kell adni, és akkor jó lesz. Ezt itt nem részletezem, de ha egy kicsit elgondolkodol a naptáron, akkor látható lesz, miért.
Tehát például a dédapán 1868. márc. 19-én született. Ez dátumként nem ábrázolható az Excelben, ezért az A2, B2, C2 cellába került az év, hó, nap.
Azért, mert az Excelt így tervezték. :-( 1900 előtti dátumokat nem tud kezelni egyáltalán.
Sőt, 1900. március elseje előtt nem helyes a dátumkezelése (a félművelt programozók azt hitték, hogy az szökőév, és amikor szóltak nekik, hogy ez hülyeség, akkor kompatibilitási okból már nem javították a hibát).
Nagyon köszönöm. Tökéletes. Egy kérdés/kérés, hogy ha nincs a D,E,F cella kitöltve, akkor #SZÁM! üzenetet ad. Ami teljesen jogos, de legjobb lenne, ha olyankor még a hibaüzenet sem jelenne meg. Ha lehet. :)
Én nem két dátum különbségét szeretném meghatározni, és pl, így megtudni valaki korát, hanem későbbi dátumból levonni pl. valaki korát, és megtudni a korábbi dátumot.
Két dátum különbségét az Excel alapból tudja: =DÁTUM(A1;B1;C1)-DÁTUM(D1;E1;F1). Azt viszont nem értem, hogy az eredményt (ami napok darabszáma), hogyan gondolod dátum formára hozni.
Egy dátum függvényhez szeretném a segítségeteket kérni.
Év(A oszlop), Hónap(B oszlop), Nap(C oszlop) dátumból kellene kivonni Év(D oszlop), Hónap(E oszlop), Nap(F oszlop) értéket és az eredményt G oszlopban összevont dátum formában szerepeltetni.
Előfordul, hogy csak kerek pl. 1 évet kell levonni a dátumból, vagy csak pl. 5 hónapot, vagy csak pl. 10 napot. Természetesen azt is figyelembe kell venni, hogy 28(29),30,31 naposak az adott hónapok.
Valamint ha D, E, F oszlop egyikében sem szerepel adat, akkor G oszlop üresen marad, és még a 0 érték sem jelenik meg.
Nagy segítség lenne, ha valaki megmondaná, rávezetne, hogy excel2007 változatban az oszlopszélességet miért nem tudom tetszőleges értékre beállítani. A vonalzó mm beállítást alkalmaz. Beállítom pl; 17,8 és mire lecsekkolom azt írja ki az oszlopszélesség beállításánál, hogy 17,54mm. Ez több variációban is. Csk egész millimétert lehetne beírni?
De azért remélem, nem azt propagálod, hogy váltsunk Office 200-re azért, mert a PowerPoint 2000 ma is jól működik nálad? :-)
Ugyanezt az Excelre nem hiszem, hogy elmondhatnád. A VBA még felülről sem teljesen kompatibilis a 2003-al (A 2000-est nem ismerem, soha nem használtam). És vannak új megoldások, amik a 2010 előttiekben nem voltak meg, és feltehetőleg a későbbiekben további újdonságok vannak.
Nálam itthon remekül megy az Office 2000. Néhány éve már váltani akartam 2003-ra, csak nem találtam a kulcsát, így maradt. :-) (Annak idején azért nem váltottam, mert bonyolultabb lett a prezentációk időzítése, de ma már elvétve prezentálok.) Támogatás? Ki akar ma támadni egy Office 2000-est? Újabb verzió van a munkahelyi gépen, ha nagyon akarok valamit, ami csak azon megy, akkor távoli asztallal megoldom. Az is igaz, hogy bonyolultabb feladatok csak a munkámban vannak, a privát feladataimban ritkán.
Na azért lassítsunk! Ne vonj le elhamarkodott következtetést! Az, hogy én nem frissítettem a 2010-esemet, az az én végtelen konzervativizmusomnak és talán a lustaságomnak köszönhető. Az XP/Office 2003-at is csak a támogatás megszűnésekor frissítettem Win7-re, és csak néhány év múlva állok majd rá a Win10-re.
Ami a 2013-as verzióval a panaszod, annak más lehet az oka. Hibás telepítés, kevés memória, bármi.
"... ráadásul magyarul van, semmilyen függvény se használható így" Ezt a mondatodat nem is értem. Itt sokan használunk magyar nyelvű Excelt, és valamennyi függvény tökéletesen működik. Más kérdés, hogy szükséges volt-e annakidején ezeket magyarítani, mert néha egész idétlen egyes függvények neve.
Szóval azt javaslom, hogy a verzióváltás témájában hallgasd meg (illetve majd olvasd el) Fferi véleményét. Ő használta, és használja az újabb verziókat, és nem hinném, hogy a tapasztalatai alapján helyeselné a downgrade-et.
Esetleg próbáld meg törölni, majd újratelepíteni a meglévő Office verziódat. Hátha megoldja a lefagyásos problémádat.
Ha a kompatibilis mód (ld. a fejlécben zárójelben) megmaradt, akkor így van. Ilyenkor lehet, hogy az új megnyitás után ismét a mentés másként-et választod, és változatlan néven (bármiféle módosítás nélkül) felülírod. Másodszorra már jó szokott lenni.
.xls-ben volt mentve, nem .xlsx-ként. Egyébként érdekes, hogy ugyanazt az xls file-t újra mentve xlsx-ként továbbra is 256 oszlopos marad, tényleg csak az üres excelbe átmásolás oldja meg a problémát.
Viszont van egy gyanúm. A 256-os oszlopszámot nem egy korábban mentett munkafüzet megnyitása után találod?
Ugyanis ha egy olyan fájlt nyitsz meg, ami "Excel 2003 verzióval lett mentve (vagy 2007-2016 verziók valamelyikével, de a mentés másképp paranccsal Excel 97-2003-munkafüzet (*.xls) formátumba mentetted), akkor a legújabb változat sem tud több oszlopot kezelni, mint 256.
Nézd meg az ?ActiveSheet.Columns.Count parancsot egy új munkafüzet megnyitásakor!
Ha ez rendben van, akkor az aktuális munkalapodat a régi fájlból másold át egy új munkafüzetbe az "Áthelyezés vagy másolás" funkcióval, és ott már tudod bővíteni az oszloplistát.
(A LibreOffice Calc 1024 oszlopot tud, de az itt súlyos off, csak azért írom, ha hirtelen kell, az szabadon letölthető, telepíthető, használható, némileg hasonlít az Excelhez.)
Ha esetleg nem sikerül a VBA képernyőn megnézned a verziót, akkor ha az Excel képernyőd így néz ki:
Akkor 2003-as verziód van, és a súgó menüben tudod ellenőrizni a verziót. Ebben az esetben jogos a max. 255 oszlop.
Ha a képernyőd valami ilyesmi:
Akkor 2007, vagy afeletti a verziód. És azt, hogy ezen belül melyik, a File menüponton belül a Súgó gombra kattintva találod meg. Ekkor az utolsó oszlopod: XFD
"Az Excel története: a Microsoft legendás termékét, amit ma már több, mint egy milliárdan használnak a világon, 1985-ben fejlesztették ki… az Apple-nek."
Igen. Sajnos ez lehet a háttérben. Te kérdeztél rá 2014-08-18-án a 25690-es hozzászólásban, majd októberben a 25945-ben Eredő Vektor, majd a 25949-es hozzászólásban írtam meg, hogy a levelemre több mint 2 hónap elteltével nem jött tőle válasz.
Persze freemailes a címe (tbando@freemail.hu), ami köztudottan megbízhatatlan, de nem hinném, hogy ezen múlt volna az eltűnése.
Régen jártál erre, talán nem láttál egy klassz megoldást arra az esetre, amihez még 2010-ben írtál egy klassz makrót. 500-as db/lap beosztásnál a 39. oldalon, a 12402-es hsz tartalmazza a makródat, tbando Solveres megoldása a 15. oldalon található, a 24960-as hsz-ben (2014.04.25.).
Szerintem nem. A darabteli függvény ugyanis két paraméterből áll: Az első egy tartomány, ahol keres, a második a keresendő érték. Az utóbbiban ugyan össze tudnád fűzni a C és D oszlop tartalmát, viszont a keresési tartományban nincs olyan oszlop, amelyik a kettőt egyben tartalmazná.
Olyan függvényt pedig nem tudok, amelyik a C és D oszlop tartalmát úgy vizsgálná, hogy csak a kettő azonossága esetén teljesüljön a feltétel.
Azért ebben a kérdésben szívesen venném Delila megerősítését (vagy cáfolatát), én kevésbé vagyok jártas a darabteli függvény alkalmazásában.
Igen, azzal már jobb az eredmény, csak a függvényt végig kell húznod a teljes táblázaton mondjuk az F oszlopban, és nem tudod feltételesen formázni. Legfeljebb kiíratni, hogy Igaz, vagy Hamis.
A megoldásod egyáltalán nem jó. Legalábbis a leírásod szerint. Ugyanis azt írtad, hogy az apák neve alapján akarod megtalálni az ikreket. A te függvényed pedig a gyermekek vezetékneve alapján tekinti azonosnak az egymást követő neveket.
Viszont éppen a feltételes formázás az, amire szükséged van, és erre Delila képlete tökéletesen alkalmas. Persze oda kell figyelni a beállításánál: Megadni a képletet, kijelölni a tartományt, és beállítani a színt. Valahogy így:
És akkor megkapod ezt az eredményt:
Még valamit: A táblázatod alapján egyelőre nem az ikreket, még csak nem is a testvéreket látod, hanem az azonos nevű apák gyermekeit. A testvérekhez kellene még az apa születési ideje (persze még akkor is becsúszhat két azonos nevű férfi aki egy napon született), az ikrekhez meg a gyermekek születésnapja. Az sem 100%, de nagy valószínűséggel 90% feletti bizonyosságot ad.
Az összefűzött név (E) oszlopot azért hoztam létre, hogy így találjon rá az egymást követő nevekre, amik jelzik az ikrek jelenlétét. Az betűszínnel emelné ki, ahogy a feltételes formázásoknál is lehetséges. Íme egy példa.
Én egy kicsit másképpen közelíteném meg a kérdést. A kijelölés kérdését egyelőre félretenném, az érdekel, hogy milyenek az összefűzött adatok, és mit szeretnél ezekből kikeresni. A leírásodból ugyanis számomra nem derül ki, hogy mi szerepel az összefűzésben. Vezetéknév, keresztnév, esetleg név előtag (mint dr., ifj. stb). És hogy jön a képbe az apák neve? Az hol van?
Ha esetleg a vezetéknevet kellene megkeresni, az nem megoldhatatlan, de az a gyanúm, hogy te nem csak "...az egymást követő azonos neveket..." akarod csak keresni, hanem ennél valami összetettebbet szeretnél.
Tudnál mintát küldeni az adatbázisodból, és egy-két konkrét példán megjelölve, hogy pontosan mit szeretnél keresni? Aztán a megjelenítésre csak azt követően térjünk vissza.
Adott egy összefűzött neveket tartalmazó igen hosszú oszlop. Ebben kellene megkeresni és kijelöltetni az egymást követő azonos neveket. Az apák alapján az ikrekre kellene rátalálni. Feltételes formázásban nem találtam megfelelő megoldást.
A felhasználót nem meg kívánom téveszteni, hanem segíteni akarom. Képzelj el egy pont diagramot, amin egy csomó (3500) pont van. Ezek közül 50 pontot (nem mindig ugyan azokat) ki akarom emelni. Ha a feliratot kiteszem akár buborékban, akár normál módon, akkor eltakarják egymást Míg ha rátolom az egeret, ekkor csak az adott ponthoz rendelt egyéb információkat tudnám megjeleníteni.
Másik elképzelésem, hogy ha rákattintok egy pontra, akkor el tudjak indítani egy makrót.
Szerintem ilyet nem lehet. Nem is látom az okát. A buborék az általad beállított állapotot olvassa és írja ki. Miért szeretnéd megtéveszteni a buborékkal a felhasználót? Ha a grafikonon (és a buborékban) egy másik cella tartalmát akarod látni, akkor annak kell benne lenni a kijelölt adatsorban.
De ha gondolod, írj egy példát arra, amikor ilyesmi indokolt lehet!
Az oszlopok rá a feliratokat rá tudom tenni, de abba a kis buborékba amiben a képen a "Sorozatok1 Pont ..." van beleírva én egy tetszőleges, a ponthoz tartozó szöveget szeretnék beírni, például egy másik oszlopban levő cella tartalmát.
Ha igen, akkor a diagramon állva fenn a diagrameszközök->elrendezés gombra kattintva lehetővé válik a diagram sok tulajdonságának beállítása. Plédául az adatfeliratoknál be tudod állítani, hogy az érték megjelenjen az egyes oszlopok felett, vagy azokon belül, meg tudod adni a színét stb. (nálam ez Excel 2010 alatt van, de valószínű, hogy a többi verzióban is hasonló)
Excel-ben szeretnék segítséget kérni. Létrehoztam egy diagramot és amikor az egérrel rámegyek az egyes oszlopokra, akkor egy buborékban megjelennek a pontról információk. Lehet ennek a buboréknak a tartalmát valahogy szerkeszteni?
Sziasztok! Nagy segítségre lenne szükségem, nem lelem a megoldást pedig biztos egyszerű. Excelben, hogyan tudom azt megoldani, hogy az A oszlopban van 200 érték. (szöveg) A B oszlopban azt szeretném valahogy elérni, hogy pl az A1 es cella tartalma ötször szerepeljen egymás alatt, majd így tovább. Tehát minden érték 5x szerepel egymás alatt a B cellában. Megoldható ez ez valahogy egyszerűen?
Például egy ilyen függvény sajnos csak az első eredményt jeleníti meg, a legelsőt. Nekem az lenne a jó, ha a legutolsót (legalsó elemet az oszlopban) jelenítené meg.
Nézd meg a feltételes formázást - cellák formázása képlettel. Ha jól sejtem, akkor az A2 páros esetén legyen zöld a B2, a képlet pedig =Párose(A2) , a háttérszínt beállítod zöldre. Érvényesség B oszlop.
Javaslat első körben az Excel súgóója. Elég jól össze van rakva, annak ellenére, hogy ma már gépi fordítással megy és emiatt itt-ott furcsaságok is találhatók.
kb 30 éve nem láttam excelt, függvény szinten; viszont most pár dologra jó lenne.
Ha nagyon alap a kérdés akkor nyugodtan ami csak belefér, csupán olyan oldalra irényitsatok/bocs sok hosszú betűm nincs vagy nem találom/, aholaz elejétől tanulhatom.
"A" oszlopba kerülnek a számok "B" "C" oszlopba pedig asszerint kerülne sárga vagy zöld kocka hogy megfelel e A oszlop azonos sora a feltételnek.
A feltételek a legegyszerűbbek pl
Ha A2: 2 vagy 4 vagy 6 vagy... 50 akkor B2 legyen zold szinű vagy Irjon oda egy "x" t.
Ha valaki szánna rám pár percet azt már most megköszönöm.
Ha esetleg ezen felül ajánlana egy kis okosodni való oldalt nagyon butáknak annak a nickjét az imáimba is belefoglalom :-)
Mindennap bizonyos eszközök kiadásra kerülnek. Ami visszajön zöld hátteret kap. Viszont, ami visszajött másnap ÚJRA kiadásra kerülhet. A lényeg az lenne, hogy a számozás munkalapon azoknak az ID-nek a háttere piros legyen, amik ki vannak adva és még nem kerültek vissza.
Ezt a függvényt hívtam segítségül.
Function whatsmycolor(melyikcella) As Long whatsmycolor = [melyikcella].Interior.Color End Function
És csináltam segédoszlopokat.
Az ötletem az volt, hogy megnézem, hogy szerepel-e az ID az első napon, második napon...
És valahogy feltételes formázással oldanám meg, hogy a legutolsó nap lenne az első, amit megnéz, ha ott nincs akkor harmadik és így tovább. Viszont sajnos elakadtam.
Valakinek esetleg lenne valami ötlete, ahogy ezt egyszerűbben meg lehetne oldani?
A segítségeket előre is köszönöm.
Tehát a végeredmény valami ilyesmi kéne, hogy legyen.
Ez az egyik mód. A másik lehetőség az Adatok - speciális - kitöltöd a párbeszédpanelt - más helyre másolja - csak az egyedi rekordok megjelenítése bepipálva, majd OK.
mi annak a kepletnek a neve, ami egy adott oszlopbol kivalasztja az egyedi ertekeket? tehat ami duplikalva/triplikalva van azt csak 1x.? egyaltalan letezik ilyen? sql-ben distinct, de excel-ben nem talalom
ha kijelolom az oszlopot es masolom, majd beillesztesnel data, remove duplicants mukodik, megkapom az eredmenyt amit varok, csak azt nem tudom van-e ennel elegansabb modja?
A segítségeteket szeretném kérni. Adott egy táblázat. Van egy iduló tőke ami jelen esetben 30.000 FT ( "B" oszlop ). Ebből a 30.000 FT-ból elköltök például 10.000 FT-ot ( "C" oszlop ), az elköltött összeget megszorzom például 2-vel ( "D" oszlop ) akkor az ugye 20.000 FT ( "E" oszlop ). Na és itt jön a kérdésem. Ha "IGEN" akkor a következő sorban a "B" oszlop 40.000 FT, ha viszont "NEM" akkor a következő sor viszont csak 20.000 FT. Ezt hogyan tudnám kivitelezni? Azt sikerült megcsinálni, hogyha a "B" oszlopot összeadom az "E" oszloppal, akkor a különbözetet hozzáadja az induló tőkéhez, de nekem ez így nem jó, mert ha "NEM" teljesül a feltétel akkor ugye a külnbözetet ( 10.000 FT ) nem kellene, hogy hozzáadja az induló tőkéhez.
Ha a KÖZÉP függvénynél az utolsó paramétert, a 20-at nagyobbra veszed, egészen hosszú neveket is "megfordít". A 20-szal Kisné Jakab Anasztázia rendben van.
Sziasztok! Olyan kérdésem lenne hozzátok, hogyan lehet megcsinálni azt, hogy beírom az egyik cellába Kis Pista akkor a másik cellába Pista Kis néven jelenjen meg automatikusan. :)
A tömbképletet Shift+Ctrl+Enter -rel kell lezárni, az Excel kapcsos zárójelbe teszi.
Természetesen a $P2 helyére a te utolsó oszlopod címét kell beírni mindenhova. A 10000 helyébe pedig egy akkora számot kell írni, ami biztosan nem fordul elő a te számaid között (ez a trükk a Kicsi függvény miatt kell.)
Az a probléma, hogy előre nem lehet látni, hány 0 értékű lesz, ezért ha az első értéken túl is van, akkor ugye azt hozzá kellene adni. Még én is filózok rajta.
Pl. a 6 esetében csak 2 pluszt megy arrébb, de azt már nem tudja figyelembe venni, hogy a végén is van egy 0 érték.
"Egy-egy tételben a válaszok közül bizonyosakat kell figyelembe vennem"
Ez így nem túl informatív, ebből nem derül ki, hogy pontosan mit is akarsz csinálni.
A legegyszerűbb fapados megoldás egy új oszlop beszúrása, akár elrejtve is:
=HA(A2="IGEN";2;1)
Feltéve, hogy mindegyik ki van töltve. És ezt átlagolhatod.
Ha esetleg az igen/nem helyett hajlandó vagy az igaz/hamis választ is elfogadni, akkor még könnyebb a dolgod, mert az közvetlenül logikai értéknek számít, és nem kell a kis/nagybetűre sem figyelni.
A segítségeteket szeretném kérni a következőben. Egy pszichológiai kérdőívet kell excel-ben elkészíteni. Az egyik munkalapon, ahol a válaszokat vesszük fel minden kérdésre "IGEN" vagy "NEM" válasz adható. Egy másik munkapapon történne meg a válaszok értékelése függvénnyel úgy, hogy az "IGEN" válaszok 2 pontot, míg a "NEM" válaszok 1 pontot érnek. Egy-egy tételben a válaszok közül bizonyosakat kell figyelembe vennem, úgy hogy átlagolni kell a válaszokat. Hogyan tudom az átlag függvényt úgy használni, hogy az "igen"-eket 2, a "nem"-eket 1 értékkel vegye figyelembe?
Még egy kérdésem lenne, de szinte biztos vagyok benne, hogy az lesz a válasz, hogy csak makróval lehet, mert Google-al nem találtam semmit.
Azt meg lehet tenni, hogy egy sor elejére írt szám segítségével hogy egy adott cellába hány mellette levő cellát adjon össze? Még jobb lenne, ha csak a nem 0 értékű cellákat venné.
Ez már nem feltétlenül szükséges a feladatomhoz, csak kíváncsi vagyok rá, hogy lehetséges-e, mert korábban egy más problémánál jól jött volna.
Nagyon szépen köszönöm, és persze elnézést a kései válaszért, de munkahelyről nem tudok - ill nem is akarok - írni, viharos időszakban meg áramtalanítom az otthoni gépet.
Amúgy időközben én is dolgoztam rajta, és én is a szűréses dologgal oldottam meg, bár még nem ellenőriztem, hogy esetleges bővítésre hogy reagál, de szerintem a következő lapra továbbvitelt holnap picit átdolgozom a te módszereddel.
Tényleg nagyon köszönöm a segítséget, munkahelyi infós csak mellébeszélt amikor kérdeztem a dologról.
Az a tömbképlet is nagyon klassz lett volna, kár hogy akkora leterheléssel jár.
Jó sokáig dolgozott, és valóban ismétlődés nélkül áthozta a B értékeit ameddig lehúztam, de később nem tudtam rendesen továbbhúzni a képletet - gondolom itt a dolog tömbképlet jellege miatt rontottam el valamit, ill. amikor másik üres munkalapokon megpróbáltam reprodukálni a dolgot, ált. elszúródott valami.
- plusz ugye csak azokat kéne átvinni, amik mellett a D-ben ott a 0-s kód.
Gondolom ezeknek a tömbképleteknek van valami továbbhúzási technikája, ami eltér a hagyományos képlettől, mert ált. az elsőként kapott értéket húzta tovább az alsóbb cellákba.
Próbálkoztam azzal, hogy beágyazzam egy HA függvénybe, de valamit elszúrtam, mert hibát jelzett az Excel.
=SZUMHA(Munka1!$B:$B;$A3;Munka1!F:F), másolható jobbra és le. Az első üres oszlopba jöhet a sima SZUM függvény, ami a teljes év alapanyagainak az összegét adja a B oszloptól kezdődően.
A ha fgv eleve nem jó, ott nem adhatsz meg tartományt... illetve az sem lehet oké, ahogy teljes oszlopra hivatkozol... nagyon nem mélyedtem bele a te verziódba, de úgy látom, hogy amíg nem érted az eredeti képlet működését, addig nem fogsz tudni létrehozni sajátot...:(
Szerintem valamelyik dollározást szúrtam el, de nem jövök rá melyiket.
A képen látható a GyártásÉsRészek munkalap egy kis darabja.
Az A oszlopban vannak a késztermékek, B oszlopban az ahhoz szükséges alapanyagok és alkatrészek. Amelyik mellett A D-ben 0-s kód van, azok tovább nem bontható elemek vagy alapanyagok, amiket külső cégtől kell megrendelni. A W01 meg ugye első hét, második hét, stb.
Tulajdonképp a heti alapanyag igény kiszámolása a legvégső cél.
A fenti képlettel cél az, hogy egy másik munkalapon A B oszlopban ugye kilistázza a 0-s alapanyagokat - de csak egyszer, mert egy alapanyag több terméknél is előfordulhat - a a GyártásÉsRészek B oszlopból (ezek mellé később SZUMHA-val adnám össze az egyes heti adatokat)
A darabtelivel megnézni "D" oszlopban, hogy melyik van 0-szor az "A" oszlopban. Így ahányadik sor az első 0 a darabteli által képzett tömbben, annyiadik sor kell az "A" oszlopban is - hisz az még nincs a "D" oszlopban
Rendezési algoritmusokat programozni bonyolultabb dolog, mint a kulcsokat változtatni, és ilyesmivel a programozó egy ismeretlen faktort vinne be a szoftverbe, amit rendesen tesztelni sem tudna, aztán az ő anyukáját szidnák, ha valaki olyasmit ír be, amitől lefagy az egész.
Általában véve az ilyen egyedi igényeknél egyszerűbb a rendezőkulcsot egyedivé tenni, mint az algoritmust. Akár egy felhasználói függvénnyel is, ami a kezdőbetűnél sokkal bonyolultabb dolgokat is tud. Úgyhogy nem biztos, hogy az Excel hiányossága ez.
Végülis igen, így is jó. De akkor az egyedi sorrendbe rendezésnél nem lehet valahogy kijátszani, pl. S% vagy ilyesmi, ami alapján csak a kezdőbetűt nézné?
Egyedi abc sorrendbe szeretnék rendezni egy oszlopot, találtam is ilyen lehetőséget a sorba rendezésnél, de úgy látom csak új működik, ha a teljes cella értéket beírom, én viszont csak a kezdőbetű szerinti egyedit szeretnék.
Ilyen az, amikor a szakmai vakság elvakítja az embert és nem figyel oda kellőképpen...., annyira az Adat szövegre koncentráltam, hogy azt használtam, holott nyilván mást kellett volna, ami benne is van a kódban (én teszem bele.... ).
Viszont amit mutattál, az annyiban sántít az első mintádhoz képest, hogy ott a második sorban kezdődtek az adatok, itt pedig az első sorban (A1 cellában). Ezt figyelembe kell venni a makróban.
Ha már ilyen segítőkész vagy, légy szíves próbáld ezt ki (ha az A1 cellában kezdődik az adatod, akkor írd át a Kezdő A2-t A1-re légy szíves:
Sub csere() Dim a, x a = Range("A2", Range("a2").End(xlDown)).Value a = Application.WorksheetFunction.Transpose(a) a = Join(a, "?") a = Replace(a, "?next?", "N") a = Split(a, "N") For x = 0 To UBound(a): Range(Cells(x + 2, 2), Cells(x + 2, Len(a(x)) - Len(Replace(a(x), "?", "")) + 2)).Value = Split(a(x), "?"): Cells(x + 2, 1).Value = "next": Next Range(Cells(x + 2, 1), Cells(x + 1, 1).End(xlDown)).ClearContents MsgBox "Készen vagyok!" End Sub
Még egy kérdés. Valahol a 2348. sor utan nincs véletlenül egy olyan adatod, ami hosszabb 255 karakternél? Mert azt találtam valahol, hogy ilyenkor is leall hibával. Most sajnos nem tudom linkelni, mert úton vagyok, és telefonról írok.
A next-eket direkt lecsekkoltam, hogy ne legyen se előtte se utána space (mert volt).
szóval azzal nem lehet gond, szűrve sem találok benne hibát, és alapból nincs is az adatbázisban a sorokban semmiféle számolás ami hibaértéket dobna, üres sor sincs.
A kékkel kiemeltet hozza továbbra is hibának.
Sub csere() Dim a, x a = Range("A2", Range("a2").End(xlDown)).Value a = Application.WorksheetFunction.Transpose(a) a = Join(a, "?") a = Replace(a, "?next?", "N") a = Split(a, "N") For x = 0 To UBound(a): Range(Cells(x + 2, 2), Cells(x + 2, Len(a(x)) - Len(Replace(a(x), "A", "")) + 1)).Value = Split(a(x), "?"): Cells(x + 2, 1).Value = "next": Next Range(Cells(x + 2, 1), Cells(x + 1, 1).End(xlDown)).ClearContents MsgBox "Készen vagyok!" End Sub
Szívesen segítek annak aki időt szánt a problémám megoldására ! :)
Sub csere() Dim a, x a = Range("A2", Range("a2").End(xlDown)).Value a = Application.WorksheetFunction.Transpose(a) a = Join(a, "?") a = Replace(a, "?next?", "N") a = Split(a, "N") For x = 0 To UBound(a): Range(Cells(x + 2, 2), Cells(x + 2, Len(a(x)) - Len(Replace(a(x), "A", "")) + 1)).Value = Split(a(x), "?"): Cells(x + 2, 1).Value = "Next": Next Range(Cells(x + 2, 1), Cells(x + 1, 1).End(xlDown)).ClearContents MsgBox "Készen vagyok!" End Sub
Most, hogy Pimrével beszélgettünk, ha nem unod még, légy szíves tény egy próbát és a nagybetűs Next szót javítsd át kisbetűs next értékre a programban. Ezután próbáld a futtatást.
Látom, de a kérdező mintájában is kisbetűvel van a next, ezért írtam úgy a mintát. És a programodban átjavítva kisbetűsre mindkét helyen, gond nélkül lefut nálam a program mindkét mintán.
A Munka2 munkalapon lévő kisméretű állománnyal nem akad el a program, de ott is van valami gond a végeredménnyel. Egyetel sor jön létre, és a next-ek is benne maradnak, miután kiírja, hogy kész van. A Munka1-en lévő nagyméretűnél elakad a program. Mégpedig az első körben, a ciklus vége előtti parancs (: Cells(x + 2, 1).Value = "Next") ad Application error... hibát.
A változók alapján olyan gyanúm van, mintha az a tömb méretezésével lenne valami gond. De mivel ezeket a parancsokat nem ismerem, nem tudom helyesen értelmezni a látottakat.
Hátha ez segít a tesztelésben. A végeredmény engem is érdekel.
Persze ha akad, aki megír az embernek egy makrót, az jó, de arra akartam rávilágítani, hogy nem feltétlenül kell mindent szögnek nézni, mert nekünk kalapács van a kezünk ügyében. Sokszor gyorsabban meg lehet oldani dolgokat makróírás nélkül (nem annak a szemszögéből, aki csak futtatja a készet).
Kipróbáltam, valóban lefagy a rendszer. Még csak nem is feltétlenül a Word a hibás, mivel már a beillesztés előtt lemerevedik. Talán a vágólap mérete és a Word együtt nem bír ekkora mennyiséget.
Mindenesetre én is írtam egy makrót.
Option Explicit
Sub Atrendezes()
Dim ws As Worksheet, sor As Long, celsor As Long, adat As String, celoszlop As Long
Set ws = Workbooks(ThisWorkbook.Name).Sheets(ActiveSheet.Name)
celsor = 2
celoszlop = 2
For sor = 2 To ws.Range("A" & Rows.Count).End(xlUp).Row
adat = ws.Cells(sor, 1)
ws.Cells(sor, 1) = ""
If adat = "next" Then
celsor = celsor + 1
ws.Cells(celsor, 1) = adat
celoszlop = 2
Else
ws.Cells(celsor, celoszlop) = adat
celoszlop = celoszlop + 1
End If
Next sor
End Sub
Próbáld ki, hátha ez működik. Ferié elegánsabb, de addig is hátha ez is jó lesz.
Ezt a makrót másold be egy modulba. Alt F11 előhívja a VBA nézetet Ott Insert - module
Sub csere() Dim a, x a = Range("A2", Range("a2").End(xlDown)).Value a = Application.Transpose(a) a = Join(a, "?") a = Replace(a, "?Next?", "N") a = Split(a, "N") For x = 0 To UBound(a): Range(Cells(x + 2, 2), Cells(x + 2, Len(a(x)) - Len(Replace(a(x), "A", "")) + 1)).Value = Split(a(x), "?"): Cells(x + 2, 1).Value = "Next": Next Range(Cells(x + 2, 1), Cells(x + 1, 1).End(xlDown)).ClearContents MsgBox "K?szen vagyok!" End Sub
34.000 közüli sor, Office pro 2010. 2 óra várakozás után sem történt semmi (elhalványult képernyő). Kis asztali desktop gép 4gb ram. Az excelbe még viszonylag gyorsan betölti de a wordbe már nem.
Mekkora az adatállományod? Mondjuk hány Excel sor? És milyen Office verziót használsz? Vártál-e 2-3 percet azután, hogy a Word nem válaszol hibaüzenetet kaptad? Ha egyáltalán ez volt a "lefagyás".
Én úgy tudom, hogy PP modulban amit felvisznek hosszú és rövid távú vevőrendelést - abból az SAP generál a darabjegyzék alapján mindent - mint anyagszükséglet, diszpólista, stb...
Sőt, én dolgoztam olyan helyen is, ahol EDI-on keresztül a vevő adta fel a hosszú és rövid távú igényét...
Segítséget szeretnék kérni az alábbi feladat megoldásához.
Adott egy oszlopom, ennek celláiba tetszőleges szám értéket megadhatok (A oszlop). A számértékek melletti oszlopban (B oszlop) minden szám mellé egy legördülő listából kiválasztatok egy szöveget.
Hogyan tudnám megcsinálni hogy a szám adatokat tartalmazó oszlopban z értékeket a legördülő listában szereplő adatok szerint összegezzem?
Az SAP képernyőképen egy konkrét anyagjegyzék/ BOM van, hogy annak aki ilyet nem látott, lássa, miről van szó.
Valóban nem egyszerű.
Elődöm valami baromira hosszú képletet használt, ami nem is sima képlet, mert ilyen {}-ek között van, ami valami speciális izé, és talán VisualBasic-es makrót is írt bele, de ebben nem vagyok biztos.
Rövid távon amúgy használhatnám az ő táblázatát, de elvileg ha új cikk jön, vagy módosul egy BOM, akkor vélhetően nem tudnám bővíteni, vagy ha igen lehet, hogy hibása, mert nem látom át és nemigen lett elmagyarázva.
Beszéltem egy volt számtektanár haverommal, szerinte ezt egy adatbázis kezelőnek kéne megcsinálnia, és beszélni is fogok a cég SAP-sével - ő jövő héten jön vissza szabadságról - mert nem hiszem el, hogy az SAP-nek nincs valami oylan modulja, ami a bemeneti értékek megadásával - várható rendelés és leltár adatok - ne csinálná meg.
De jelenleg az a helyzet, hogy Excellel kell megcsinálnom, és ami jelenleg a fejemben van az ha működik is, nagy lesz és nehezen átlátható, tehát megint ott leszek, hogy bővítéskor sok lesz a hibalehetőség.
Majd megpróbálok beszélni az elődömmel, de az a helyzet, hogy amennyire hallom, nem a legjobb viszonyban hagyta el a céget, így kétséges mennyire lesz nyitott, de majd meglátjuk.
Szia, jól látom, hogy egy SAP képernyőt tettél be mintának?
Arra sajnos nincs ötletem, hogy miként tudod ezt az eléggé összetett adatbázis szerkezetet Excelbe áttenni. Attól tartok nem lehet túl egyszerű a feladat.
Viszont ahogy nézegetem azt a kevés információt, ami a témában elérhető (például itt: http://forum.index.hu/Article/showArticle?t=9053163), az a sejtésem, hogy az elődöd megoldhatta a dolgot egy SAP-on belüli programmal, vagy modullal. Lehet, hogy csak ezt kellene megtalálnod, és már meg is van.
Nem tudod felvenni vele a kapcsolatot? Hátha egyszerűbb, mint Excelben próbálni az előrejelzések alapján az alapanyag és alkatrész szükségletet kiszámolni. Ráadásul tartok attól, hogy könnyen mellé is lehet becsülni, ha az összefüggéseknek csak egy kis része is kimarad a számításból.
Van egy komoly és a vártnál sürgősebb munkahelyi feladatom, amit most megpróbálok reményeim szerint érthetően leírni.
Sajnos aki eddig csinálta a munkakört, az elment, nekem pedig új munkatársként csak pár napom volt a betanulásra, ami a napi rutinhoz kb. elég volt, de erre nem, és úgy néz ki, egyedül kell megoldanom ezt a feladatot, mégpedig Excel segítségével (nagyon korábbi tanulmányaim szerint mintha Access-sal célszerűbb lenne).
***
Szóval készítenem kell alapanyagbeszerzéshez egy táblázatot. Ennek alapját a vevői késztermékek rendelésre küldött forecastok - több hetes hosszútávú megrendelési előrejelzések - a céges leltár és az SAP-ban található anyagjegyzékekek/BOM (Bill of Material)-ok képzik. Ezeken a BOM-okon van felsorolva, hogy egy legyártandó cikk milyen félkész elemekből, beépülő alkatrészekből ill. alapanyagokból áll.
Csatolok is egy ilyen BOM-ot, a cikkszámok/megnevezések kitörlésével (gondolom ez nem publikus céges adat), hogy lássátok miről van szó.
A cél az, hogy a forecast adatok és a leltár adatok alapján kihozza azt, hogy az adott hét temelésének biztosítására mennyi alapanyagot kell rendelni.
Ami bonyolítja a dolgot, hogy
- pár cikket több vevőnek is szállítunk
- nem csak a késztermék és alapanyag raktárat kell figyelembe venni, hanem a köztes állapotú beépülő elemeket/félkész termékeket is, valamint egy alapanyag/félkész termék több cikkbe is beépülhet.
Van több olyan főcikk, aminél pl 4 vagy 5 szintes a BOM, vagyis egy alapanyag 5-1, azaz 4 fázison megy keresztül amíg késztermék lesz belőle, vagyis 4 szinten is számolnom kell a köztes leltár készlettel.
***
Odáig eljutottam, hogy van egy forecast munkalapom, ahova be tudom másolni a heti forecastokat/előrejelzéseket. Ezekből a készáru készletek levonásával eljutottam a tényleges gyártási szükségletig.
Megvan a tényleges gyártás teljes alapanyag igénye is, de nem tudom, hogy a köztes anyagok leltárával hogy tudnám ezeket csökkenteni, ami baj, mert ha egy termék kifutna, akkor sok minden a cég nyakán maradna, amiért elvileg én is anyagi felelősséggel tartoznék + ugye nyilvánvalóan lapát.
***
Arra gondoltam, hogy valahogy csinálok pár (1 vagy 5) segédoszlopot az egyes termékek összetevői mellé ahol vagy visszafelé számozással jelölöm, hány fázis kell az adott alapanyagnak a beépüléséhez, majd a teljes alapanyag igény munkalap után csinálok 4 köztes munkalapot, és ezeken SZUMHA-val (ebbe venném bele a már előbb említett segédoszlopokat) szintről szintre leveszem a köztes készleteket, és a végén elvileg megkapom a ténylegesen megrendelendő alapanyag és alkatrész szükségletet.
***
A kérdésem az, hogy ez így szerintetek működne-e, ill. van-e valami elegánsabb képletes megoldás (VisualBasichez nem értek) a problémára.
Segítségeteket/észrevételeteket előre is köszönöm.
Megjegyzés:
Csak azt nem tudom, mi kerül azon a ***SAP-n annyiba, ha egy ilyet nem lehet vele egyszerűen kiszámolni, mikor a vevői forecaston/előrejelzésen kívül kb. minden adatnak meg kell benne lennie (feltéve persze ha rendesen felviszik a leltárt).
Szakkifejezéseket azért ne használjunk ötletszerűen. Ez nem adatbázis, csak táblázat, amit meg csinálni akarsz belőle, az végképp nem az.
Think out of the box.
Én átmásolnám az egészet Wordbe, aztán táblázatból szöveg, aztán globális cserével minden bekezdésjelet tabulátorra cserélnék, aztán minden next stringet bekezdésjelre, aztán vissza Excelbe. Ez így egy perc, ha nem fagy le a sok adattól. Nem mindenre az Excel a kézenfekvő megoldás. :-)
Adott egy adatbázis, ahol függőlegesen egy oszlopban vannak az adatok (több ezer sor).
Azt szeretném, ha ezek az adatok vízszintesen lennének, úgy, hogy az adatbázis egy bizonyos pontjánál mindig új sort kezdene.
Ez a cellaérték egy "next" szócska, amikor ezt megtalálja egy új sort kellene kezdenie.
Mutatom képen:
És ilyet szeretnék belőle:
Próbálkoztam transzponálás függvénnyel de nem működik, "tanulós" makróval meg ezt nem lehet megcsinálni (vagy én nem tudom). Szóval azt hiszem egy makró kellene, de azt sajna nem tudom megcsinálni, ebben kérném a segítségeteket.
"Van olyan képlet vagy megoldás, hogy pl. a kiindulási munkalapon csak vastagított betűs cellákat vegyen figyelembe a kereséskor, és csak ezeknek a tartalmát keresse ki a leltárból?"
Adott egy táblázat amiben EAN kóddal vannak azonosítva a termékek. De mivel ez a táblázat több raktár táblázatból lett egybe másolva, így egy kód többször is szerepel (akár négyszer, ötször), viszont mindegyikhez tartozik egy db szám is.
Az lenne a kérdésem, hogy tudom azt megcsinálni, hogy mindegyik kód csak egyszer szerepeljen, de a kódhoz tartozó darabszámok összeadódjanak. Vagyis tudni szeretném pontosan, hogy melyik termékből mennyi van készleten.
Időközben SZUMHA-val megoldottam, de kíváncsi vagyok a másik két megoldásra is, szóval azokat is megfogom nézni.
Igen, a szóköz/kötőjel, a kisbetű/nagybetű is trükkös lehet, de sajnos nem tudom ezeket valami képlettel meg lehet-e kerülni.
Én egyébként így csináltam:
=SZUMHA(Leltár!A:A;G:G;Leltár!D:D)
A Leltár egy másik munkalap, annak az A oszlopában vannak az azonosítók (szöveges), ezt hasonlítja össze a G oszlop tartalmával - ott is azonosítók vannak - és teszi be a leltár D oszlopból az ott levő értéket.
Még annyi kell majd rajta csiszolnom, hogy valahogy esetleg kiszűrje azt a pár cikkeket, amikhez a leltárban nincs azonosító, és külön ki kell SAP-vel keresni.
Erre esetleg valami tipp?
Van olyan képlet vagy megoldás, hogy pl. a kiindulási munkalapon csak vastagított betűs cellákat vegyen figyelembe a kereséskor, és csak ezeknek a tartalmát keresse ki a leltárból?
Ha egy cikkszám csak egyszer fordul elő, akkor az Fkeres vagy az Index - Hol.Van páros, attól függően, melyik oszlopvan van a cikkszám.
Ha többször is előfordulhat, akkor Szumha.
A cikkszámra figyelj, legyen mindkét helyen azonos, különben nem fogja megtalálni (ne legyenek felesleges szóközök, láthatatlan karakterek stb. szám-szöveg különbözőségek).
Egy olyan problémám lenne, hogy a munkahelyemen össze kéne kezelni a belső leltárt és a partnernek küldött leltár fájlt.
Ami közös bennük, hogy a cikkszám, aminek a mennyiségét nézni kellene azonos, de a belső leltárban van egy csomó oylan dolog, ami nekem nem kell, és a sorrend is más (a partnernek küldendő fájl némileg kötött formátumú)
Tehát kéne egy függvény, amit az elküldendő leltár mennyiség oszlopába másolva
Jól gondolom, hogy csinálok egy új Excel fájlt, ahol az egyik lap azonos lesz az elküldendő excel formátumával, a másikba pedig bemásolom a mi leltárunkat, és egy SZUMHA függvénnyel elvileg át tudok hivatkozni erre a munkalapra, és ki tudom belőle szedni a szükséges adatot. Talán még úgy is, hogy nem kell összegezni (vagy esetleg beiktatok egy fake 0-s oszlopot).
Esetleg van valami egyszerűbb javaslatotok?
Esetleg FKERES függvény?
Ui: persze az elküldendő fájlba egyszerűen csak átmásolnám az adatokat ebből a munkatáblázatból.
"A Find metódussal működik, bár nem értem, hogy miért csak akkor, ha nem állítom be a változó típusát. Ha Dim ErrorCostRep as Integer-t használok akkor is hibára fut."
Még mindig a változó típus a gond. Ahogyan írtam, a Find metódus magát a cellát - Range típusú objektum - adja vissza. Ezért ebben az esetben Dim ErrorCostRep As Range a helyes deklaráció és természetesen Set ErrorCostRep= a helyes értékadás.
Ha nem állítod be a változó típusát, akkor a VBA "magától" megállapítja a helyes típust (utólagos -implicit- deklaráció). Ez azonban nem szerencsés, mert így elronthatod akár a változók neveit, értékadását is.
Ezért a modul elején használni kell az Option Explicit parancsot, az eljárásokon kívül.
Ennek az az eredménye, hogy minden változót, amit használsz a modulban, deklarálni kell a Dim vagy más paranccsal a megfelelő típusúnak.
Cserébe viszont a VBA ellenőrzi, hogy minden változód deklarálva van-e a használat előtt.
1. A Find metódussal működik, bár nem értem, hogy miért csak akkor, ha nem állítom be a változó típusát. Ha Dim ErrorCostRep as Integer-t használok akkor is hibára fut. Kivettem és így már működik.
2. A fileToOpen is tényleg jó, ha csak a fájlevet használom így már aktiválni tudom a munkafüzeteket az application.activeworkbook.name paranccsal. A save as-nél szerintem rájöttem mi a gond. A fájlnévbe beleveszi a kiterjesztést is. Valahogy kiszedem és akkor már használhatónak kell lennie.
3. Ezt még nem néztem meg, amint időm engedi kipróbálom.
1. A Vlookup függvény értéket ad vissza, ezért nem teheted az eredményt Range típusú változóba.
Ha magát a cellát szeretnéd megtalálni, akkor a Range Find metódusát kell használni. Pl.
Set ErrorCostRep = Workbooks("Gyakorlas").Worksheets("Munka1").Range("A1:A10000").Find(What:=ErrorCost,Lookup:=xlvalues,Lookat:=xlWhole).Offset(0,2)
A Find megtalálja az A oszlopban az értéket, az Offset pedig a tőle 2 oszloppal arrébb azonos sorban (azaz a C oszlopban) levő cellát adja.
2. A Workbooks.Open metódussal megnyitott fájl lesz az aktív munkafüzet a megnyitás után, nem kell külön aktíválni, az a munkalap lesz aktív, ami az utolsó mentéskor volt.
Ha megvizsgálod a változóidat, akkor azt fogod látni, hogy a fileToOpen változóban a teljes, elérési utat is tartalmazó fájlnév van benne. Megnyitott munkafüzeteknél viszont csak az elérési út nélküli név használható! (Mint látod, a Windows(valami) is az elérési út nélküli nevet használja.
A SaveAs -nál viszont működnie kellene a teljes fájlnevet tartalmazó változónak.
3. Természetesen lehet olyan makrót írni, amelyik egy akármilyen szempont szerinti fájlt megkeres. (Honnan tudja meg, hogy melyik az aktuális?). Ehhez az
openfile=Dir("fájlnév.*xls*")
do while true
if openfile tulajdonság=kívánt tulajdonság then exit do
openfile=Dir()
loop
részletet használhatod. Az adott nevű fájlnak a FileDateTime(openfile) utasítás megmutatja az utolsó módosítás időpontját.
A válaszod alapján módosítottam a kódot Set parancsot írtam az ErrorCostRep elé és Range-re módosítottam a változó típusát, de most is hibaüzenetet ír ki:( :
Set ErrorCostRep = Application.WorksheetFunction.VLookup(ErrorCost, Workbooks("Gyakorlas").Worksheets("Munka1").Range("A1:C10000"), 3, 0)
End Sub
Mi lehet most a probléma?
Egy nagyobb makrót szeretnék összerakni és annak több része van. Máshol is problémába ütköztem és hiába keresgéltem a neten sajnos nem tudtam megoldani.
Megpróbálom leírni a problémámat.
Egy excel fájlból amit emailből mentünk le egy mappába (fileToOpen), azt nyitom meg és onnan másolok át sorokat és oszlopokat egy másik excelbe, amiben a makró fut (BGRS_template) és a végén save as -zel a fileToOpen fájlra szeretném lementeni kicsit módosítva V1-et írva a fájlnév mögé.
A getopenfilename methodust találtam csak, hogy megnyissam a fájlt. Itt én keresem meg a fájlt a mappákban amit meg akarok nyitni.
Amikor megnyitom a Workbooks.Open (fileToOpen) paranccsal, akkor működik a fileToOpen hivatkozás, de amikor aktiválni akarom a megnyitott munkafüzetet vagy el akarom menteni save as-zel, akkor már nem működik a fileToOpen hivatkozás. Mi lehet a gond, illetve van-e valami jobb methodus a getopenfilename helyett ami egy mappából mindig az aktuális fájlt megkeresi, hogy ne nekem kelljen keresgetni?
remélem érthető volt, ahogy leírtam.
Sub BGRS()
fileToOpen = Application.GetOpenFilename("Excel Files (*.xlsm), *.xlsm") If fileToOpen <> False Then MsgBox "Open " & fileToOpen, 1 End If
="Between "&TEXT(MIN(A:A);"yyyy-mm-dd")&" and "&TEXT(MAX(A:A);"yyyy-mm-dd")
…aminek az eredménye egy szöveg, mint pl. "Between 2018-01-01 and 2018-06-30".
A gond az, hogy egy pár júzernek magyar oprendszere van (angol Excellel) és lehal rajta a TEXT, mert magyar Win alatt úgy kéne megadni a formátumot, hogy "éééé-hh-nn".
Az sajna nem megy, hogy ="Between "&MIN(A:A)&" and "&MAX(A:A), mert az azt adja vissza, hogy "Between 43101 and 43281".
Lehet ezt a képletet (szépen magyarva) nemzetköziesíteni?
Lehet az Excelben olyan számláló képletet írni, ami csak a látható cellákat számolja meg? A júzer játszik a filterrel, a képlet meg mutatná a szűkítésnek megfelelő cellák számát. A Count nem figyel erre.
A következő segítséget szeretném kérni, nem boldogulok az istennek sem. Van egy táblázatom ami két oszlopból áll. Az A oszlopában vannak értékek, amihez a B oszlopban hozzá tartozik egy szám. Van egy másik táblázatom, amiben benne vannak ugyan ezek az értékek mint az első táblázat A oszlopában, de a B üres.
Azt szeretném elérni, hogy a második táblázatban az A értékek mellé odakerüljön ugyan az mint az első táblázatban. A második táblázat A oszlopában több érték is van, sorba rendezni nem tudom. Valami olyan megoldás kellene, ami megkeresi az értékeket a második táblázatban, és melléírja azt ami az elő táblázat B oszlopában van tehát a hozzátartozó számot.
Próbáld meg a 'Formázott szöveg (szóközzel tagolt) (*.prn)' formátumba menteni. Aztán a kiterjesztést javítsd át txt-re, vagy add meg, hogy a prn kiterjesztést is a jegyzettömb nyissa meg.
Excel táblázatot mentettem el txt -ben (szöveg tabulátorral tagolt) formátumban, majd jegyzettömben az első képen látható verziót szeretném látni, hogy az egyes oszlopok tartalma egymás alá rendezett, de sajnos valamiért nálam a második verzió látható. mit kell beállítanom hogy az első verziót kapjam?
Akkor már csak egy kérdésem van. Szerinted a július 24 a nagyobb vagy a július 20?
Mert a képleted:
IF($L$25<$BR20,$O25,$P25)
szerintem pont jól számol... hiszen az L25 nem kisebb, hanem nagyobb a BR25-nél.
De ebben sehol nincs benne a hónapra vonatkozó feltétel!
Mindenképpen If kell, hiszen feltétel alapján szeretnéd a két cella értékét megkülönböztetni. Viszont az írod, hogy jan-jun között az első, júl-dec között a második értékre van szükséged.
Akkor viszont valamilyen módon meg kellene tudni mondanod, hogy honnan kell a hónapot venni a feltétel vizsgálatnál.
br cella lett 43301 az L pedig 43305, amugy nem vagyok benne biztos hogy az if a legjobb fv erre. ha van mas tippetek azt orommel veszem. (roviden zold ertekeket a zold cellak ala piros meg a piros ala)
Milyen formátumú az L25 és BR25 cella. Mert az a gyanús ebből a képből, hogy nem dátumot tartalmaz valójában, hanem szöveget. És szövegben a 24 nagyobb, mint a 20 :(
Megtudhatod, ha a cellán jobb egérgombbal kattintasz, kiválasztod a cellaformátumot és átállítod általánosra, vagy számra. Ha semmi nem változik akkor sajnos szövegként van benne a dátum(nak látszó érték). Át kell alakítanod dátummá.
csunyan fogalmazva az elso sorba a zold ala a zold ertek kellne a halvany piros/bordo ala meg a bordo. 1 keplettel szeretnem megoldani amennyiben lehetseges
( ne tevesszen meg senkit a 2.3.4 sor ott tok mas kepletekkel probalkoztam)
Angol az excel-em azt lehet nem irtam a formula szamol ergo nincs hibauzenet, csak a vegeredmennyel nem vagyok komfortos. most a br cellaban a mai datum van IF($L$25<$BR20,$O25,$P25) l 25 cellaban jul 29
azt szeretnem hogy a jan-dec blokk amit a fv-vel feltoltok jan-jun-ra az o cellat hozza be eredmenynek, jul-dec-re meg a p25 cellat.
ill. hogyha a l25 cellaban pl 2020-as datum szerepel akkor meg az o25 cella legyen jan-dec kozott
a legujabb excelem van. es lehet pongyolan fogalmaztam. van egy blokkom jan-dec kozott ezt kellene feltoltenem ugy hogyha a br20 cellaban levo datum korabbi az idopont akkor O oszlopbol szedje fel az erteket ha a mai datumnal regebbi akkor P
hello lenne egy kerdesem adott BR cella a mai datummal a fv nek azt kellene csinalnia hogyha a L25 cellaban levo datum elobb van mint a br20 cellaban levo datum akkor kiirja a O25 cella erteket ha kesobb akkor P25 egy ilyet osszeraktam de nem mukodik. raneznetek?=IF($L$25<$BR20,$O25,$P25) koszonom elore is
Egyelőre ugy tunik, hogy a "datumfelismeres kikapcsolasa" megoldotta a problemat. :) Egyebkent naponta nyitom meg es azert praktikus, mert automatikusan frríssit weblapról.
Igen, én abban nem voltam biztos, hogy a szerkesztés is lehetséges-e Google fiók hiányában. De látom, hogy igen: "Here’s a vastly underutilized feature of Google Docs: People don’t actually need a Google account to view a file created with Google Docs—or even to edit it."
Hú, végül megoldódott a makróinaktivitás-probléma!
Programok és szolgáltatások -> Office 2010 -> Módosítás -> Hozzáadás vagy eltávolítás -> Közös Office szolgáltatások -> Visual Basic for Applications -> A saját gépről fut
2010-es, érvényes terméklicenc nélküli Excelem nem enged makrót rögzíteni. (op. rendszer Windows 10)
Megnyitok egy makróbarát Excel munkafüzetet. A makróbeállításoknál az "összes makró engedélyezése" van kipipálva. A Fejlesztőeszközök fülnél azonban a Visual Basic, a Makrók és a Makró rögzítése ikon is szürke és nem kattintható.
Mivel érdemes próbálkoznom, hogy ezek a lehetőségek elérhetővé váljanak?
Ezt mondtam volna? Remélem nem:-) De a Drive segítségével megosztható és szerkeszthető a fájl. Legalábbis az Office fájlok. Így az Excel is. És még az Office-ra sincs szükség, mivel a Google Docs kezeli őket. Azt viszont nem próbáltam ki, hogy szükséges-e a szerkesztésre feljogosítottnak, hogy legyen Google fiókja. Talán igen.
A segítségeteket szeretném kérni egy excel probléma megoldásában. Egy nagy méretű excel táblázat sorait szeretném kibővíteni, úgy, hogy az ismétlődő szakoszok mindig ugyanannyi sorra essenek. A táblázat kérdésekből áll, utánuk a hozzájuk tartozó válaszlehetőségekkel, de a válaszlehetőségek száma nem mindig ugyanannyi. A célom, hogy két kérdés között olyan számú sor legyen, mint a legtöbb válaszlehetőséggel bíró kérdés után. Támpont, hogy minden kérdés ugyanazzal a kóddal kezdődik.
Én Google Drive segítségével csináltam ilyet valamikor. Olyan megosztást csináltam, hogy a link birtokában bárki szerkeszthesse (épp az volt a cél, hogy egy közösen használt helyiség igénybevételét kezeljük. Aki lefoglalt egy időpontot, az megjelent azonnal annál, aki később nyitotta meg) Működött, kipróbáltuk, de aztán élesben nem használtuk, így nincs tapasztalatom volt az esetleges problémákról.
Kitaláltam megint valamit ami megkönnyítené az életemet kicsit. Van excelbe kalendárium sablon. Szeretném ezeket a megrendeléseket belerakni az összesítőből a repülés dátuma szerint. És pár mellékes információt is jó lenne ha tartalmazna.
Másik kérdésem, hogy az excel táblát meg lehet e úgy oldani hogy mindenki gépén ott van a ugyan az a fájl és ha valaki beír valamit a saját táblájába az a többieknél is frissüljön :D
Csatoltam egy képet, amiből szerintem érthető, hogy mit is szeretnék.
A pirosan jelöltekhez kéne egy függvény. Ha csak úgy megoldható, hogy az "USA", mint közös (majdnem mindegyiknél) szó felhasználásával, az is jó. Kevés van csak úgy is, amiben nincs benne az USA.
Hát igen, némi pluszmunka, de azért talán nem végzetes. Egyszer kell a mentés szövegfájlba, majd az Excelbe történő beolvasáskor 3 gombnyomás (1: tagolt (de ez az alapértelmezés)->tovább, 2: határolójel megadása->tovább, 3 automatikus átvételi típus (de ez is alapértelmezett)->Befejezés)
Ha naponta egyszer kell, akkor én némi bosszankodással tudomásul venném. Különös tekintettel arra, hogy a makrórözítő ezeket a lépéseket valószínűleg nem tudná rögzíteni.
Viszont még egyszer megnéztem a küldött képeket. Lehetséges, hogy a második képernyőn látható "Dátumfelismerés kikapcsolása" mellé kitett pipa megoldhatja a problémát. Ha csak ez a gond. És akkor az egész eddigi ötletelésem sztornó.
Nem vagyok biztos, mert nem ismerem a forrás adataid szerkezetét, de ha az adatokat valamilyen elválasztójel (pontosvessző, vessző stb.) választja el, vagy esetleg fix szélesek az oszlopok, akkor megpróbálhatnád először fájlba lementeni az adatokat txt, vagy csv kiterjesztéssel. Ha ezután a lementett szövegfájlból a "Szövegből" választással olvasod be az adatokat, akkor ott több formázásbeállítási lehetőség van.
Nem tudok tesztelgetés nélkül válaszolni a kérdésedre, de esetleg köztes megoldásként a makrórögzítővel rögzítheted a formázási beállításokat, és ehhez hozzárendelhetsz valamilyen billentyűkombinációt vagy gombot, és így plusz egy mozdulattal javíthatod a hibás formátumokat.
Olyanról lehet szó, hogy amit nem értesz vagy nehezebben megy, azt megegyezés alapján megtanítom, hogy ki tudd tölteni a tesztet. Ez tisztességes és etikus megoldás.
Tisztában vagyok azzal hogy hogyan kell írni az Excelt de a telefonom mindig kijavította. Én kis laikus meg gondoltam így is értitek. Ezek szerint ez egyeseknek gondot okozott. Évek óta használom az Excelt a munkámhoz de papírom nincs róla . Mint kintlevőségi táblázatkezelő soha nem használok például diagramokat vagy egyéb függvényeket. Nem mellesleg nem azt mondtam hogy nem akarom megtanulni hanem hogy minél hamarabb kell a papír. Sajnos rengeteg gondom van így nem tudom az agyamat erre összpontosítani ezért kértem a segítségeteket. Nem kioktatásra van szükségem van elég bajom hanem SEGÍTSÉGRE. Aki ezt megérti és tud nekem segíteni annak előre is köszönöm!
Az ami nekem kell a munkához azt tökéletesen tudom. De vannak az exelnek olyan részei amik nem kellenek . Sajnos nincs időm átrágni az anyagot. Tudsz segíteni?
Szeretném a segítségeteket kérni. Online elkezdtem egy exel kezdő és haladó tanfolyamot. Sajnos nagyon sok minden összejött( édesapám halála, terhesség,új munka)és nincs időm megcsinálni a kezdő illetve a haladó modulzárót. Lenne olyan aki megegyezés alapján kitöltené nekem a modulokat?Nagy segítség lenne mert a papír kellene az új munkahelyhez. Köszönöm a segítséget.
A következőt szeretném: egy weblapról lementeni az adatokat (táblázatot) majd abból kinyerni néhány információt. Ezt sikerült is megcsinálnom az Adatok fülön a kapcsolat-tal és a következő nap az már az új adatokat be is olvassa a munkalapra automatikusan. A bajom az, hogy a weblapról letöltött adatok nem számok, hanem más formátumúak, pl.: dátum....stb. Hogyan lehetne ezt beállítani, hogy számok legyenek letöltve?
tudnatoks segiteni abban hogyha van egy ID-m amit megkeresek 1 tablazatban(vlookup-al), es ha az az id megtalalhato akkor az eredmeny igen legyen, ha nem akkor meg nem
Alt+F11-gyel lépj be a VB szerkesztőbe. Keresd meg a Module1-ben lévő makrókat, amiket az egyes lapokon lévő gombokhoz rendeltem.
Ha összehasonlítod ezeket, meglátod, miről szólnak a makrók. Mivel eddig nem foglalkoztál vele, nem ígérem, hogy könnyű dolgod lesz, de megéri.
Sárgával kiemeltem, mit kell kiválasztanod, hogy a makrókat láthasd.
Az usor változó adja meg, hogy az Összesítő lapon melyik az első üres sor, ahova másolni kell. A sor változó azt az értéket tartalmazza, amelyik az aktuális lapon ki van választva.
Az Összesítő lap A oszlopába kerül a VIP B oszlopa, B-be a D, ... F-be a G, és így tovább. Más lapoknál ettől eltérő az egyes oszlopok sorrendje.
Ha le tudod írni vagy van esetleg egy leírás a neten, hogy hogy csináltad akkor meg tudod osztani velem? Érdekel, hogy ha bővítenem kell akkor tudjam! Köszönöm!
Tegyél fel egy minta füzetet, pl. a data.hu-ra. Legyen benne a 4-5 lap, meg a gyűjtő. Az elrendezések egyezzenek meg az eredetivel, az adatok lehetnek kamuk. Laponként elég 1-2 sor.
A segítségetekre lennem szükségem! Csak az alapokhoz értek az excelbe és az alábbi dolgot kellene megcsinálnom:
Több megrendelőből az adatokat az excel külön lapjaira másolom. Ezt azért teszem mert a megrendelők különböző formátumúak más oszlopokba esnek a az azonos információk (attól függ hány utas jön, vagy milyen csomagot rendel meg)!
Ez körülbelül négy vagy öt lapon van és szeretném, hogy egy új lapon az azonos információk (pl megrendelés azonosító, név, súly ...) egy oszlopba legyenek hogy rá tudjak szűrni az adatokra! Ezen kívül azt is szeretném, hogy ha valamelyik lapra bemásolok egy új megrendelő adatait akkor az adatai a közös lapon megjelenjenek.
Remélem nem túl bonyolultan írtam le! Lehet van más megoldás is nem csak ez.
Adott egy saját xls doksi. Minden nap bele másolok egy táblázatot. ezt formázva ki akarom nyomtatni. Úgy szeretném megoldani, hogy egy új lapra magától másolja át ezt a bemásolt adatokat. Gyorsan sikerült megoldanom, viszont a dátummal meggyül a bajom.
A probléma az , hogy vagy szám formátumban jön át , ilyenkor az üres cellák üresek, vagy dátum formátumban, de ilyenkor az üres cellákba is beír egy 1900.01.00. -át. Tehát hogy lehet megoldani, hogy csak az jöjjön át ami kell , az üres meg maradjon üresen.
Makrórögzítővel próbáltad már? Ha nem megy direktben a tartomány, másold át egy üres munkalapra, mentsd el azt, aztán töröld a tartalmát. Lehet, hogy megy ez egyedül is.
ez powequery által generált kódsor. egy másik munkafüzethez kapcsolódtál úgy látom. Az Acces szerinti sql-t lehet használni és a powequery függvényeket a tábla módosításához/átrendezéséhez.
Egy olyan problámám van, hogy VBA-ban szeretnék vlookup függvényt használni, de két küldönböző workbookra vonatkozik. A keresési érték és s keresési tartomány külön workbookban van.
Valamiért type mismatch error-t ad. Talán a másik workbookra való hivatkozással lehet a gond?
Sub Cost_center()
Dim ErrorCost As Integer
Dim ErrorCostRep As Integer
ErrorCost = Workbooks("Z_480195647-480195621-480195618-480195195-480195194-480195193 - INC AP Feed WE 052718").Worksheets("Sheet0").Range("O1429")
Workbooks("Inactive-Cost-Centers").Activate
ErrorCostRep = Application.VLookup(ErrorCost, Workbooks("Inactive-Cost-Centers").Worksheets("Inactive List Prior Years").Range("A1:C10000"), 3, 0)
A programcsomag részeként - MSOffice - backoffice-on keresztül excelben is elérhető az Acces sql-e. Szerintem ez megvolt a régebbi verziókban is MSQuery-n keresztül.
De lehet kapcsolódni bármilyen adatbázis szerverhez - mint pl mssql, mysql. Tudnak kommunikálni egymással és excel alatt (a definíció fül...) is kiadható bonyolultab b sql parancssor
A szabványos SQL az a szabványos SQL. Pont ez a lényege, hogy ne kelljen ezt a kérdést feltenni. Ez az a verzió, amitől az összes létező SQL eltér. :-) Hogy az Excelben volt-e valaha ilyen, azt nem tudom, de ismerve a MS idegenkedését mások szabványaitól elég valószínűtlen.
Így van rosszul írtam. Ezt még sikerült is kitalálnom, csak bonyolultabban a kódba nem a zöld hanem a fehér színt állítottam be, de ez a szép amit te írtál :D Az igazi nehézéséget az okozta, hogy létrehoztam egy panel gombot "szinez" amihez hozzárendeltem a makrót. A jó az lenne ha egy kattra színez még egy kattra leveszi a színt. Mint egy gomb amit vagy bekapcsolok vagy ki. Két gombbal megtudom csinálni így ha bonyolult hagyjuk. Így is nagyon sokat segítettél. Csak már beindult a képzeleterőm mit lehet kihozni még ebből :D
Ha jól értelek, nem leállítani akarod a makrót (hiszen az leállt magától az End Sub sorra érve), hanem indítani egy másik makrót, ami törli a színeket. Egyszerű, csak néhány sort ki kell hagyni belőle:
Köszönöm szépen ezzel sikerült amit szerettem volna, de ha már makró és ellegáns akarok lenni gondolom van arra megoldás, hogy a makrót leállítsam. Az az panel gombot létrehozok egy katt makró indítás (Zöld lesz aminek kell) még egy katt a zöld eltünik. A panelt létre tudom hozni a makrót nem tudom "Leállítani"
Az előbb telefonon csak röviden tudtam írni. Most el is magyarázom.
Az első változatban a For i = 1 To Range("B" & Rows.Count).End(xlUp).Row azt jelenti, hogy a for-al kezdődő sortól a next sorig végezze el a közte lévő feladatokat a sort jelző változó (i) folyamatos növelésével. Mégpedig 1-től a B oszlop utolsó folyamatosan kitöltött soráig. (Ha lett volna benne kihagyás, akkor ott befejezi).
A módosítás For i = 16 To 126 arról gondoskodik, hogy a 16-tól a 126. sorig mindegyiken hajtsa végre a feladatot (itt még az esetleges közbenső kihagyás sem zavarja, dolgozik a 126. sorig)
Köszönöm. Ettől tartottam, hogy csak makróba lehet megoldani.
Megfogom próbálni az általad leírttal, hogy működik.
A leírásodban a B oszlopot hasonlítja a D vel. Nekem annyi nehézségem van még , hogy a vizsgálat A B16-D16 tól kell tatania A B126 - D126 .-ig. Akkor csak a "b" után odaírom a számot? Sajnos makróból 0 vagyok (ha megvan a jó forráskód beilleszteni betudom)
Amit szeretnél, az szerintem csak makróval oldható meg. Akkor viszont nincs szükség a feltételes formázásra. A makró pillanat alatt végig szalad a B oszlopon, és ha azonos D-vel, akkor színez, ha nem, akkor meghagyja/javítja feketére a háttérszínt.
Itt egy minta:
Sub szinez()
Dim i As Long
For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
If Range("B" & i) = Range("D" & i) Then
Range("B" & i).Interior.Color = 5296274
Range("B" & i).Interior.Pattern = xlSolid
Else
Range("B" & i).Interior.Pattern = xlNone
End If
Next i
End Sub
Ha esetleg nem a háttérszínt akarnád színezni, hanem a betűt, akkor a
$ jelet nem használhatok mert az egész oszlopba (több cellába) kell a képlet. Tehát a B128=A128 nak is igaznak kell lennie.
@Pimre jól írta ha nincs ott az A és a D oszlopom a feltételes formázás nem teljesül így nem jó. A kérdés pont az, hogy át lehet -e a B oszlop "végeredményét" másolni egy új Excel táblába megtartva a formázást?
A képlet eltéréseket vizsgál A és D oszlop között. Az eltéréseket zölddel akarom jelölni a B oszlopba. A B oszlopot szeretném átmásolni egy másik Excelbe (Megtartva a zöld színeket.) és elküldeni valakinek ,mert a B oszlopon kívül nem tartozik rá más. Ez nem egyszeri feladat hanem szinte naponta több ilyen külön táblát kell megküldenem neki. Ezért kellene folyamatot találnom rá, hogy ne egyesével keljen színeznem, vagy elrejtenem az oszlopokat és zárolni a táblát.
Feltételes formázással színezek bizonyos cellákat (pl ha A1=D1 akkor Zöld a B1 cella). Majd a B oszlopot (Csak a "B" -t) át akarom másolni egy teljesen új Excel-be. Értelem szerűen a feltételes formázás ugrik és a zöld cellák a "B" oszlopban ismét fehérek lesznek.
Kérdésem van ara megoldás, hogy véglegesítsem a feltételes formázást és átmásolás után ne veszítsem el a színt? Valahogy úgy kellene megoldani mint amikor képletet másolok át és értékként illesztem be. Itt is a színt (végeredmény) szeretném átmásolni nem a feltételes formázásom.
Persze nem feltételes formázással kellene csinálnom, szívesen veszek más megoldást is.
Bankszámla kivonaton (excelben letöltve), egy megjegyzés rublikában szerepel olyan pl. hogy: 5000 Ft vásárlás meg olyan hogy: 4000 Ft átutalás stb, stb, stb...
Szeretném hogy ne összeg szerint, hanem kategória szerint lehessen sorbarendezni ezeket, pl. hogy egybe legyenek láthatóak a vásárlás, átutalás stb. tételek további feldolgozás, pl. összesítés menetéhez.
A probléma ott adódik, hogy pl. az fkeres stb. karakterlánc feldolgozó képletekkel ha próbálkozom, ott mindig balról kezdődik a keresés, az összegek pár forinttól sok ezerig változhatnak és hiába mondjuk az első szóközre keresek rá, nem az utána fennmaradt karaktereket adja eredményül, hanem az előzőeket, tehát az összeg lesz az eredmény, s nekem az kéne ami utána jön.
Szeretném valahogy ezeket az eltérő karakterhosszúságokat tehát kezelni vagy valami olyan összetett függvényt használni, ami levágja a változó hosszúságú számértékeket (meg azt hogy Ft) a cella tartalmából és csak a szöveges további megjegyzést megőrizni vagy megfordítani a sorrendet pl. átutalás 4000 Ft alakban.
Próbáltam a jobb függvényt is használni, de ha ezt kombinálom az fkeressel, akkor ahogy írtam is, az megkleresi pl. balról az első szóközt, de ennek eredménye nem használható fel a jobb függvényben, mert hülyeséget ad különböző cellákban, hisz az fkeres a balról vett karakterek számát adja ekkor az első szóközig.
Nem tudom lehetne-e pl. valahogyan jobbról indítani a keresést az fkereshez, mert akkor működhetne. (?)
Sajnos nekem konkrétan a felhasználó engedélyezési rész kell. Amit publikáltál az bizonyosan működik és köszönöm. A célom több munkafüzet engedélyezett felhasználóinak a kiegészítése, mert domain-t váltottunk.
Már korábban kértem segítséget abban, hogy hogyan tudok felhasználót adni a "Tartományszerkesztés engedélyezése" lehetőségnél, tehát adott cella tartományt szeretnék adott felhasználóknak direktbe engedélyezni. Ez a kód meg is teszi, látszólag elvégzi a beállításokat, viszont nem működik. Nem engedélyezett felhasználó esetén is szerkeszthető a cella.
Sub AddUserEditRange() Dim ws As Worksheet, aer As AllowEditRange Set ws = ThisWorkbook.Sheets("munkalap neve") ws.Unprotect "ide a jelszó" Set aer = ws.Protection.AllowEditRanges.Add("ide a kijelölt tartomány megnevezése", ws.Range("I2:I32")) aer.Users.Add "ide a felhasználó neve", True ws.Protect "ide a jelszó" End Sub
Összehasonlítva a manuálisan beállított és a makró által létrehozott lapvédelmi hivatkozást, egy kardinális különbséget észleltem. A manuálisan beállított esetén az alábbi sorokkal volt több a sheet??? tartalma:
Görgeti az, csak éppen nem a 14. sorig (ha jól értem, ennél sornál rögzítetted a panelt), hanem annyit görget, hogy a célsor a képernyőn látható tartományba kerüljön, tehát a lap alján éppen ez legyen az alsó sor.
Így adom meg ahogy írtad, és működik is úgy, hogy odaugrál a cellákra és kijelöli, De nekem az kellene, hogy bárhol van a cellakijelölés, kis táblázatok első sora (amik a rögzítés alatt vannak) kattintáskor mindig a rögzített vonal alatt kezdődjenek pár sorral.
A képen lévő példával élve: H1-> A17 , I1->A32 , Ha rákattintok az I1 re akkor csak odaugrik a cellára a kurzor, de nem "görgeti" 2 sorral a rögzítés alá a "február tábla" első sorát.
Állj a H1 cellára, jobb klikk, Hivatkozás. A felugró ablak bal oldalán a Hivatkozott cím csoportban a Dokumentum adott pontja legyen kiválasztva. A Megjelenő szöveghez írd be: jan, a cellahivatkozás legyen A17, alatta pedig jelöld be a munkalapod nevét. A többi (I1:S1) cellában is így járj el.
Van egy összesítő tábla H1-S11. Ennek a fejlécében vannak a hónapnevek rövidítve.
Azt szeretném, ha rákkattintok ezekre akkor az adott hónaphoz tartózó cellatartomány első sora, egy bizonyos sorszámhoz ugorjon. jelen esteben mondjuk 3 sorral a rögzített panel alá.
Lehetőség adott a hypehivatkozással de nem mindig a rögzített panel alá ugrik, hanem pl a legutolsó sorra mi látszik, vagy ha egy lapon van csak kijelöli a cellát. Biztos tudjátok miről beszélek :)
Pl ebben az állásban amit a képen láttok, ha az I1 (feb) re behivatkozom az A32-t , és rányomok , akkor csak kijelöli az A 32 cellát és kész. (tudom, hogy ez a lehetőség ezt csinálja) de meg lehet-e oldani, hogy mindig a rögzített vonal lá ugorjon a hivatkozott cella sora?
Egy példával talán jobban rávilágíthatok az Indirekt függvény működésére.
A B1 cella tartalma egy szám, legyen ez 290. Az A1 tartalma egy szöveg: B1.
Az =INDIREKT(A1) függvény az A1 szövegében szereplő B1 cella értékét, a 290-et adja.
Nálad a C oszlop egyik cellájának az értékére van szükség. A C-t szövegesen adjuk meg ("C"), majd hozzáfűzzük az & jellel azt a sorszámot, amit az FKERES függvénnyel találunk meg.
Szerintetek van valahogy lehetőség az MS Flex Grid Excel VBA-ba való bedolgozására? Nem szabad VB-ban megcsinálni a feladatot, muszáj lennék Excel makróban (ilyen izés vállalati policy miatt).
Nagyon köszönöm, működik a dolog, Annyi kérdásem lenne, hogy az INDIREKT függvényben a "C" mit jelent és miért így kell megadni ? (az észrevettem , hogy az oszlopot jelöli de miért kell idézőjelbe tenni és miért nem C:C formában kell megadni, ahogy "szokás" ) :)
És olyan is megadható, hogy több sornál mindegyiket másolja át kivéve az első sort?
Tehát az alábbi példából a "HORDENGESTELLWAGEN FÜR 2/1 GN-EINSCHUB 20.2" kivételével mindent?
HORDENGESTELLWAGEN FÜR 2/1 GN-EINSCHUB 20.2 Passend zu Kombidämpfgeräten Kapazität: 20 x GN 2/1 - 65 Auflagen zur Aufnahme von Rosten und Blechen mit GN-Abmessungen 1/1. Der Beschickungswagen vollständig aus Chromnickelstahl
Egy szabadság kezelő tábláról van szó, ahol egy fájlban kezeljük a kollégák szabijait.
Az alap jelölő tábla megvan, és azt szeretném megoldani, hogy ha egy legördülő menüben (F1 cella) kiválasztok egy nevet, akkor ahhoz a névhez jelenjen meg minden beírt szabi nap havonta soronként.
A kigyűjtést megoldottam, van egy név oszlopom, egy hónap oszlopom és a szabi napok egy oszlopban.
Mellékelek egy képet
Úgy kellene beírni a G2 cellába egy képletet, hogy a C1 cella tartalmát mutassa (a G3 a C2-t , stb) de többet ne kelljen módosítani azt, tehát találja meg, hogy név és hónap cellák mellett milyen adat van a 3. oszlopban
Ugye tök egyszerű lenne ha FKERES-el A1:C10 re szűrnék, de ha hozzá kell valakit adni vagy elvenni akkor már gond lenne. Szóval egy SZUMHATÖBB szerű képlet kellene ide csak itt nem összeadni akarok, hanem csak megjeleníteni.
Megoldást keresnék arra, hogy ha egy cellában két sorban van szöveg, amely az Alt+Enter -el készült, lehetséges csak az első sor átmásolása egy másik cellába?
Sub AddUserEditRange() Dim ws As Worksheet, aer As AllowEditRange Set ws = ThisWorkbook.Sheets("munkalap neve") ws.Unprotect "ide a jelszó" Set aer = ws.Protection.AllowEditRanges.Add("ide a kijelölt tartomány megnevezése", ws.Range("I2:I32")) aer.Users.Add "ide a felhasználó neve", True ws.Protect "ide a jelszó" End Sub
Szerintem egyébként ha bejelölöd a keres-cserél egyebek részében, hogy csak akkor cserélje, ha az egész cella tartalma a - jel, akkor menni fog a Ctrl+H-val is!
A táblázatom alapja egy óránként frissülő AutoGADD xls. (Belinkeltem egy új üres táblázatba) A táblázatban termékek és a hozzájuk tartozó információk (ár, készlet, stb...) szerepelnek.
Az utolsó oszlopban egy képlettel számolnám, ki hogy mely termékek (Amelyeket ki kell futtatnunk egy megadott időre) azok, amik leírhatóak. Ezeknek meg vannak a feltételei.
Az egyik ilyen feltétel, hogy az elérhető készlet ("Code 1" esetén) 15 alatt van, nem fog már hozzánk érkezni (RTR = 0) és a teljes még eladásra váró készlet 50.000 Ft alatt van.
Idáig nem is lenne semmi problém, azonban a GADD listában, ha már nincs RTR (Rest to receive), akkor sok esetben nem 0 vagy üres cella, hanem "-" szerepel, tovább az RTO (Rest to Order) oszlopban negítv szám is lehet. Ez utóbbi azért fontos, mert egy sima CTRL+H-val nem tudom a "-" jelet "0"-ra cserélni, mert akkor a minuszból értékből hirtelen plusz lesz a "-" eltönésével. Az RTR oszlopban szereplő kötőjel további problémát okoz, ha össze akarom adni az aktuális készlettel, mert "value" hibaüzenetet kapok.
A CTRL+H opció azért sem megoldás, mert teljesen automatizálni szeretném a táblázatot, ha már rendelkezésrem áll az óránként frissülő linkelt lista.
Próbáltam a SUBSTITUE függvénnyel cserélni a "-" jelet 0-ra, de azzal meg a "Kiírható" oszlopban szereplő függvény nem boldogul. (Emelett a negatív számoknál sem jó, mert a mínusz helyett 0 lesz a szám előtt.)
Összefoglalva a lényeg: Az RTO és az RTR oszlopban szereplő "-" jeleket szeretném "0"-ra (vagy akár semmire) cserélni úgy fügvénnyel, hogy az eredeti listában nem kell piszkálnom semmit, illetve itt sem kell semilyen műveletet manuális megtennem a megnyitás után. ( Ez utóbbi azért fontos, mert sok olyan ember használná a táblázatot, akinek még egy nyomtatás is sokszor problémát okoz.
Több excel munkafüzetben beállításra kerültek olyan cellák, amit csak az engedélyezett felhasználók szerkeszthetik. Ezt a beállítást a "Tartományszerkesztés engedélyezése" funkcióval értem el. Szeretnék még több felhasználót hozzáadni az engedélyezettek köréhez. A további felhasználók hozzáadását meg tiudom vba-ban csinálni? , mert mint említettem, több munkafüzetről van szó.
Hát ez egy kissé kacifántos. Azért csak áprilisig szummáz, mert a p oszlop van megjelölve az összeadás végének :) (p10)
"de a p10-ben levo fv concenate-al van osszefuzve a1 cella+ b10 cella, b10 cellabad a fv pedig row()"
C10 lesz az a cella és nem p10, a p10-ben már adatok vannak.
A leírtak alapján az A1 cellában most p van, ez jelenti az összegzés utolsó oszlopát. Ezt írd át r betűre (mivel a júniusi adatok az r oszlopban vannak) és máris kész az egész. Mindig annak a hónapnak az oszlopát írd az A1 cellába, amelyik az összegzés végét jelenti.
Az összefűzés képletében $A$1 formátumot használj (=$A$1 & B10). így lehúzható a képlet és csak az A1 cella értékét kell módosítanod.
Több lehetőség van, de módosítanod kell itt-ott...
Pl.
1. részösszeg fgv és elrejted a szükségtelen hónapok oszlopait
2. hónap nevek helyett számokat használsz vagy hónapnévre formázott dátumokat. Ebből pedig SZUMHA fgv-el ki tudod számolna mondjuk 1-6 közötti összeget. (Egy cellát használhatsz amiben változtatod az -ig értéket.
Aztán még lehetne sorolni, de szrtem a 2. a legjobb
hello, koszi a gyors valaszt. c10es cellaban az ertek ami van: p10
a 10-megegyezik a sor szamaval, tehat az minden egyes sorban no p pedig hivatkozik az a1 cellae. nem tudom miert p, a1 cellaban ertekkent szerepel.
nem ragaszkodok a keplethez de fura, hogyha manualisan jatszok vele, pl. kitorlom marc apr. akkor tokjol szummazza az erteket(jan-feb re vonatkozolag) viszont most megallt a tudomany, mert a maj jun eseten marad az apr ertek.
( de a p10-ben levo fv concenate-al van osszefuzve a1 cella+ b10 cella, b10 cellabad a fv pedig row()
nyitott vagyok mas megoldasra is nem ragaszkodok ehhez, foleg ugy hogy evvel az indirekt fv-vel nem sok tapasztalatom van es hiaba olvastam utana, nem ertem hogy mukodik aprilisig, es most miert halt meg....
hello, lenne egy egyszerunek tuno kerdesem. adott m-x oszlopig a honapok szama.jan-dec k oszlopban szeretnem szummazni az adott honapig levo szamokat, pl. most jan-jun (m-r) oszlopig. tudnatok adni erre egy formulat, ami havonta valtozik es nem kell pl. manualisan minden honapban kijelolni az adott uj oszlopot?
most van egy ilyen formulam: =SUM(M10:INDIRECT(C10)) de ez erdekes modon csak aprilisig mukodott, utana nem szummaz. m10 cella az elso ertek amitol kellene szummazni(jelen esetben a jan ertek) c 10 pedig a sorhoz tartozo (ID?!) (orokoltem a file-t mert a kollega mar nincs koztunk
Megvan a probléma oka. A 2002-től induló tábla egy csak évszámos segédoszlopa le volt szűrve 2018-ra, ezért a dátumos oszlopban 2018.12.31 után csak további 12.31-es dátumokat engedett létrehozni.
A Kezdőlap/Szerkesztés alatti Kitöltés menü "Adatsor" menüje passzív, míg az új munkalapon, ahol megy a dolog, ott aktív. A problémás munkalapon a jobb gombos lehúzás sem megy.
Segítsen valaki légyszi, mert nem tudom, mit állítottam el. Excel 2013, W81. Táblázat egyik oszlopa dátumformátum (2018.05.27), de - automatikus kitöltésnél, lehúzásnál - ma nem akarnak növekedni a dátumok soronként egy nappal. Akkor sem, ha az utolsó dátumról indítok, és akkor sem, ha kijelölök pl. több egymást követő sorban lévő dátumokat, és a kijelölés aljáról húzom tovább.
Ha nyitok egy új munkafüzetet, ott megy minden, ahogyan kell. Ha az új munkafüzetből formátummásolást végzek a problémás munkafüzetre, az sem segít.
Egy alapvetően rémegyszerű készletnyilvántartó táblába szeretnék egy plusz funkciót integrálni, de sehogy sem sikerül működő megoldást kreálnom.
Két tábla van "raktáron" ill. "készletmozgás" címmel, utóbbin a termékneveken túl a szomszédos oszlopban azok évjárata is bejegyzésre kerül, ugyanakkor a raktáron - a kezelhetőség végett - már nem akarom nyilvántartani az összes terméket az összes valaha előfordult évjárattal külön-külön, hanem minden terméknek csak egy sort szánok. Ugyanakkor a teljes raktárkészleten túl a legrégebbi évjáratot ill. az abból készleten lévő mennyiséget is meg akarom jeleníteni egy-egy oszlopban. A problémám a legrégebbi évjárat megkeresésével akadt.
Olyan függvényt kéne tehát összerakni, ami a "készletmozgás" táblában sorra veszi azokat a sorokat, amelyek tartalmazzák az adott termék nevét, majd minden ezekben előforduló évjáratra külön-külön összegzi a készletet, végül a legkisebb olyan évjáratot írja ki a cellába, amely évjárathoz nem nulla összeg tartozik.
Miután itt már biztosan fel van másolva a tétel, a kettő közé kellene beszúrni a hiperlink létrehozását, ami egyszerűbb is, hiszen szinte minden szükséges infót tudsz, nem kell újra keresgélni.
Két makró egymás utáni futását szeretném megoldani, de nem annyira sikerül.
- Az egyik egy dupla klikkes esemény, ami elindít egy hiperhivatkozást létrehozó makrót.
- Ezután lett létrehozva egy jobb klikkes (ugyanarra a tartományra), ami meghatározott mappát másol egy szerverre.
A használatában jobb egérrel kattintok, amire felmásolja a szerver meghatározott mappájába a mappát. Ezek után dupla klikket nyomok ugyanabban a cellában, és az előzőleg felmásolt mappához létrehozza a hiperhivatkozást.
Hogyan tudnám "összefűzni" a makrókat, hogy a jobb egér kattintásra másolja fel a mappát, majd hozza létre hozzá a linket.
1. A jobb egeres felmásoló:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim ml, fso, ez, innen, ide, sor, sz
If Target.Column = 36 Then
Set fso = CreateObject("Scripting.FileSystemObject")
Sziasztok ! Furcsa dolgot találtam az Excelben. pl.: cellákban adatok vannak. Ezekkel műveleteket szeretnék elvégezni ,pl.szorzom egy számmal. Ezt meg is csinálja. Lehúzom a képletet, az alatta lévő cellákba is mindenhova az előző eredményt írja bele, teljesen ugyanazt a számot. Visszanézem a képleteket ,a képlet jó az új sorok hivatkozásai vannak benne. Viszont az eredmény nem jó… Hogyha nyomok egy mentést ,abban a pillanatban minden cellát kiszámol, jó az eredmény. Remélem érthetően írtam le. Mi lehet a gond? Köszönöm.
Excelben szeretném azt megoldani, hogy két egyenes/görbe metszéspontját nekem automatikusan kiszámolja a program,mert az egyenesek változnak. Valakinek van valami ötlete hogy ezt hogyan tudnám megoldani?
A csatolt képen a "zöld" és a "kék" egyenesek metszéspontja kellene, sőt annak is csak az x-koordinátája.
Köszönöm, de kiderült, hogy nem ez kell nekem. viszont ezen a nyomon eljutottam a FileDateTime függvényhez, ami az adott fájl készítési idejét megadja. A könyvtárban lévő fájlok listáját meg továbbra is a dir() függvénnyel írom ki listába, aztán a FileDateTime meg egyenként megadja a készítési időket a sorbarendezéshez.
Van olyan VBA függvény/parancs ami a Dir()-hez hasonlóan listázza a fájlok/könyvtárak neveit, de létrehozás ideje szerint sorba rendezve, vagy a név mellett a létrehozás idejét is kiadja?
Bocsi, kissé zavaros. Azt írod, az R oszlopba kellene a képlet, de a makróban ezt az oszlopot szűröd (Field:=18, Criteria1:="0,000"), ráadásul szövegként szerepel szám helyett a nullás érték a kritériumban.
Sub Keplet()
Range("Q2:Q99") = "=N2+O2*P2"
End Sub
Ez a makró a Q2:Q99 tartományba minden sorba beírja az N+O*P képletet. Ezt felhasználva talán tovább tudsz lépni.
így éz ki eddig, gondolom az ActiveCell.FormulaR1C1 = "=RC[-4]+RC[-3]*RC[-2]" rész az, ahol a képletet próbálja érvényesíteni, de ez nem történik meg, továbbra is nullásak maradnak.
Az R oszlopba kellene nekem a =N+O*P képlet, majd a Q oszlopnak is ugyanezeket az adatokat is kellene tartalmaznia.
Sub ForecastDO_zero() ' ' ForecastDO_zero Macro '
' ActiveSheet.Range("$A$1:$R$99").AutoFilter Field:=18, Criteria1:="0,000" ActiveCell.Offset(8, -1).Range("A1").Select ActiveCell.FormulaR1C1 = "=RC[-4]+RC[-3]*RC[-2]" ActiveCell.Select Selection.FillDown ActiveCell.Offset(0, -1).Range("A1").Select ActiveCell.FormulaR1C1 = "=RC[1]" ActiveCell.Select Selection.FillDown End Sub
SAP-ból húzok le egy riportot és szeretnék egy makrót arra, hogy egy oszlopban válassza ki csak a 0-ás értékűeket (eddig record macroval eljutottam) és ezeket egy képlet alapján számolja újra (ezt már nem csinálta meg a record után).
A képlet szerint csak 3 szomszédos oszlop celláit kéne összeadni/szorozni (=N17+O17*P17).
Az adatok egy Pivot-ban jelennek meg, ott csak formázni kell - pár "subtotal" mezőt kell kitörölni, másokat meg színezni, de ezzel sem boldogul(ok).
Hogyan tudom megcsinálni azt, hogy ha egy cellára hivatkozom, akkor ne csak a cella tartalmát, hanem a cella formátumát is átszívja? Tehát ha pl. beírom egy cellába hogy "=B8", akkor ne csak a "B8"-as cellába beírt tartalom, hanem a formátuma (betűre vonatkozó beállítások, háttér szín stb) ugyanúgy megjelenjen az új cellában is. Van erre lehetőség egyáltalán? Sajnos nem sikerült ilyet találnom. :(
Bekapcsoltam őket, de továbbra is elakadt, úgyhogy töröltem a sortöréseket, és bingó! Olyan gyönyörű, köszi szépen!!!!!!!!!!!!!!!! =)) Rég indult már ennyire jól a hetem ^_^
Szia Delila! Nagyon szépen köszi a segítséget! :) Ma más feladatom volt, így most csak gyorsan felnéztem a hétvége előtt. Futtatásnál syntex errort írt ki, de remélem, jövő héten megint több időm lesz foglalkozni ezzel, és akkor rájövök, hogy miért nem fut le nálam. Még egyszer, köszi! =)) Szép hétvégét!
Igen, a rögzített makróban lesz egy ilyen: Criteria1:="valami", ahol a valami az a szöveg lesz, amire szűrtél. A "valami" helyett írd be a Range("G5")-öt.
Azt hiszem, az ARAB függvény először a 2016-os verzióban fordul elő. Ha azt használsz, jó lesz a lenti makró, az oszlopszámot a saját igényedhez igazítva.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
If Target = "a" Or Target = "e" Or Target = "i" Then
lenne egy kerdesem. adott egy excel tabla ahol adatok szerepelnek az a-f oszlopban b oszlopban szerepel az orszag azt szeretnem megtudni hogy van-e olyan lehetoseg excelben hogyha a g5 cellaba beirom hogy XY orszag akkor az a-f tablaban a hozza tartozo sorok/vonalak jelenjenek meg csak?
tudom egy sima szurot rarakni es kesz, de az felhasznaloi oldalrol most nem megoldas. pivot tabla szinten nem ~jo~ megoldas..
szoval szurjon egy kriteriumra ha klikkel a mezore. erre van vmi formula?makro? akarmi?
Adott egy olyan szerveren tárolt Excel fájl, amibe többen írunk bele. Szeretném adott cellájának tartalmát a change eseménnyel úgy szabályozni, hogy ha nem megfelelő karatert ír be a felhasználó, akkor ne álljon meg, hanem simán javítsa ki. Ebben az esetben a római számmal írt kerületeket szeretném javítani az arab megfelelőjére.
A cellában tehát különböző karakterek is megjelenhetnek, és az I.-re 01-et kellene írni, ha II., akkor 02, és így tovább.
Keresgéltem a neten kódokat, és azokkal próbálkoztam, de nem jött össze.
Sub replaceMultipleCharactersInString() Dim myCell As Range Dim myString As String Dim Erre As String Dim Ezeket() As Variant Dim iCharacter As Variant Set myCell = ThisWorkbook.Worksheets(1).Range("A1") myString = myCell.Value Ezeket = Array("a", "e", "i") Erre = "o" For Each iCharacter In Ezeket myString = Replace(Expression:=myString, Find:=iCharacter, Replace:=Erre) Next iCharacter myCell.Value = myString End Sub
Egyelőre ezzel próbálkoztam, aztán majd átrakom a change-be.
Talán az Array segítene, de ebben az esetben minden karakter o-ra cserél. Lehet nem jól értettem (gyenge az angolom), hogy ha a cserélendőket is Array () felsorolom, akkor a sorrendnek megfelelően lecseréli, de az sem ment.
Jó lenne, de az alapok, felépítés eleve rossz. Sajnos nélkülöz mindenféle normalizálási szabályt. Ezt sokkal jobban is meg lehetne csinálni. De ha így kell, akkor így kell... értem én.
Igen, készítettem is egy fájlt a kérdés szemléltetésére, mert nehéz pontosan elmagyaráznom. Mivel nem kép fájl volt, nem tudtam feltölteni, de talán a screenshotok is kellőképpen szemléltetik.
A pivot-t ismerem, sokat is használom, de erre pont nem megfelelő (legalábbis az általam ismert formájában). Ezt a fájlt minden nap update-elni kellene új elemekkel, szóval egy makrót szeretnék írni rá. Több részére van ötletem, megoldásom, de a nevek megfelelő listákba szedése a legnagyobb falat (ez igényli a legtöbb munkát), és ezért mindenképpen automatizálni kellene valahogy pivot mazsolázgatás nélkül. Lehet, hogy csak nem értem, pontosan mire is gondolsz...
Egy ismerős javaslatára jöttem ide kérdezni. Biztosan meg lehet oldani a feladatot, de sajnos ilyen szinten nem értek az Excelhez :( Úgyhogy remélem, itt tudtok segíteni pár tippel, ötlettel :)
Szóval eljutottam odáig, hogy egy cellában felsorolt neveket külön sorokba listáztam. Ám ez egy kevert lista, amit külön oszlopokba kellene szétszedni egy másik fájlba aszerint, hogy a személyek mely alcsoporthoz tartoznak. A listákat külön-külön oszlopokban, egy másik munkalapon tartom számon, és ott update-elném szükség szerint.
Egyszerűsített példa:
1. munkalap - oszlopokba csoportosítandó lista
körte
zab
rozs
uborka
banán
káposzta
árpa
eper
2. munkalap - kívánt végeredmény
körte uborka zab eper (ez még nincs fent a lenti listán, de egy külön oszlopban szeretném látni, hogy ne maradjon ki) banán káposzta rozs
árpa
3. munkalap - kategória listák (ezt update-elném szükség szerint)
Gyümölcs Zöldség Gabona
alma sárgarépa búza
körte paradicsom rozs
banán uborka árpa
jégsaláta zab
káposzta
Van erre valami gyors és viszonylag egyszerű Visual Basic megoldás?
Kutakodom én is ezerrel, de nagyon hálás lennék, ha valaki adna egy kis extra löketet :)
Igazad van, kapkodva fogalmaztam. Addig használtam ezt, amíg meg nem tudtam, hogy ha az utolsó használt sort követően vannak üres cellák, akkor az így megadott képlet azokat is beleszámítja, ezért amikor az utolsó kitöltött sort keresem, akkor én is az általad írt módszert használom.
Köszönöm a javítást, én sem szeretném, ha valakit a hozzászólásom félrevezetne.
Ettől persze még továbbra furcsállom, hogy meg kell adni egy virtuális tartományt, ahhoz, hogy működjön a parancs a munkalap egésznek utolsó sora/oszlopa számának meghatározásához.
Segítségeteket szeretném kérni, mert az én excel tudásom elég korlátozott. Arról lenne szó, hogy egy osztrák programból exportálódnak adatok excelbe. A dátum osztrák formátumban van nap.hónap.év utána egy szóköz és a dátum óra:perc:másodperc ez így egy cellában van. Költségelszámolás miatt szükségem lenne két ilyen időpont különbségére órában megadva. Várakozási idő lenne. Minden megkezdett óra egy óra időtartamnak számít tehát 9:30 az már egy egész órának számít. És minden megkezdett nap egy egész napnak. A cellában a dátumot és az időt szét tudom szedni két külön cellára és a dátumot is meg tudom fordítani magyar formátumra, ha ez segít. A válaszokat előre is nagyon köszönöm!
z értékeket a legördülő listában szereplő adatok szerint összegezzem?
