- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- bitpork: Augusztus 2- szombat jelen állás szerint.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- Parci: Milyen mosógépet vegyek?
- sziku69: Szólánc.
- Aggregátor gondjai, örömei, és elmélkedései
- Chosen: Canon 5D II - portrézás 2025-ben
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
-
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
-
#44400
Fire/SOUL/CD
félisten
Brumi
#44399
Látatlanban nehéz segíteni, ezért tisztázzunk pár alap dolgot, hogy így van-e avagy sem.
tehát például:
Excel munkafüzet 1-ben
A1:A30 -> Ezen sorokban (amelyek egyike sem üres) vannak adatok x darab oszlopban
A31 -> üres sor
A32:A62-> Ezen sorokban (amelyek egyike sem üres) vannak adatok x darab oszlopban
A63 -> üres sor
A64:A94-> Ezen sorokban (amelyek egyike sem üres) vannak adatok x darab oszlopban
A95 -> üres sor
és így tovább...Ez így van?
UI: Jobb lenne, ha egy képet dobnál a munkafüzet 1 és munkafüzet 2-ről is, hogy láthassuk, hogy milyen az alapfelépítése a munkafüzet 1-nek, meg mit gyárt le a makró a munkafüzet 2-be... (valami valótlan adatokkal töltsd fel a munkafüzetet, ne a valós személyes adatokat lássuk...)
-
Brumi
senior tag
Sziasztok!
Makró problémában szeretném a segítségeteket kérni. Készítettem egy excelt melynek segítségével tömeges könyvelést lehet SAP-ban végrehajtani. Az excelt egy makró átalakítja tabulátorral tagolt txt-fájllá, amit később be lehet tölteni SAP-ba. Az excel 1100 sorig van felképletezve, de előfordulhat, hogy csak 30 soros a tétel, amit be kell könyvelni, minden cella a 30. sor után üresnek látszik, de valójában mögötte képlet van. A makró kimásolja az adatokat értékként egy másik excel munkafüzetbe, és ezt menti el txt-ként, viszont az a probléma, hogy a maradék 1070 sor is benne marad a txt-ben üres sorként, amit viszont az SAP nem szeret. Hogy tudom lemakrózni, hogy az üres sorok ne is kerüljenek be a txt-be?
Előre is köszönöm!
-
#44397
Fferi50
Topikgazda
Fire/SOUL/CD
#44396
Fferi50
Topikgazda
válasz
Fire/SOUL/CD
#44396
üzenetére
Szia!
De a SZÖVEG.KERES-nek viszont a SEARCH és esetünkben mindegy melyik függvényt használjuk (nagybetű-kisbetű nem számít).
Viszont ennél egyszerűbb, ha a Delila által javasolt Path paramétert használja a kérdező.
Üdv. -
#44396
Fire/SOUL/CD
félisten
Fferi50
#44395
-
Fferi50
Topikgazda
válasz
tomi_x
#44392
üzenetére
Szia!
Az idézőjeleket meg kell duplázni a képleten belül:Sheets("Összesítés").Range("M2").Formula = "=MID(CELL(""filename"",$A$1),1,(SEARCH(""["",CELL(""filename"",$A$1)))-1)"
Egyébként ha makró(részletet) v. képletet írsz, használd a "</>" kapcsolót (hátulról a harmadik).
Üdv. -
tomi_x
tag
válasz
Fire/SOUL/CD
#44391
üzenetére
Így lenne
Sheets("Összesítés").Range("M2").Formula = "=MID(CELL("filename";$A$1);1;(SEARCH("[";CELL("filename";$A$1)))-1)"De erre meg ezt dobja ki:
-
#44391
Fire/SOUL/CD
félisten
tomi_x
#44390
-
SkiDev
őstag
Sziasztok!
Készítettem jelenléti ívet, amelyben a dolgozók neveit egy hozzárendelt legördülő listából tudom kiválasztani. Egy olyan kérdésem lenne, megoldható, hogy a lista minden nevével behelyettesítve egyszerre lehessen minden jelenléti ívet kinyomtatni? Mert most úgy csinálom, hogy kiválasztom az első nevet, nyomtatás, közben visszalépek és kiválasztom a második dolgozót, majd megint nyomtatás és így tovább....
Előre is köszönöm!
-
bela85
aktív tag
Sziasztok!
Lehet laikus kérdés.. de adott egy tábla melynek adott oszlopában vagy cím vagy bankszámlaszám szerepel.. hogy lehetne kiválasztani, hogy ezek külön-külön legyenek? Mármint a bankszámlások és címesek.
Gondoltam rá, hogy pl: Ha függvénnyel, ha van benne szóköz (mert a címben tuti van.. a bankszámlánál meg nem lehet)Köszönöm előre is a segítséget!
-
csferke
senior tag
Sziasztok!
Eddig eljutottam.Selection.End(xlDown).Select
Range("J23:N23").Select
Selection.ClearContents
Viszont a 23. sor az változhat.
Azt szeretném, hogy ne a J23 -N23 tartomány törlődjön hanem az utolsó kiválasztott sor J-N tartománya.
Mit kell változtatnom a kódban?köszi
Angol Excel 2007 -
#44379
Fferi50
Topikgazda
Mr.Mercury
#44378
Fferi50
Topikgazda
válasz
Mr.Mercury
#44378
üzenetére
Szia!
A hasonlításnál használhatsz "jóker" karaktereket is. A csillag (*) akárhány karaktert helyettesít, a kérdőjel (?) egyet.
Tehát keresheted a Bal(A1;12) & "*" szöveget, ami az első 12 karakter egyezőségét nézi.
Üdv. -
#44378
Mr.Mercury
aktív tag
Fferi50
#44377
Mr.Mercury
aktív tag
válasz
Fferi50
#44377
üzenetére
Köszönöm, eddig minden tökéletesen sikerült a leírásod alapján!
Még egy utolsó kérdésem lenne, amit nem tudok: Mondjuk ott van az "A" oszlopban egy cím, legyen pl. "1000, Budapest, Példa utca 12/b, 5. em 45". Ez a cím ott van az összehasonlítandó oszlopban is, de úgy, hogy "1000 Budapest, Példa utca 12/b, V/45". Ebben az esetben az összehasonlítás ki fogja dobni az egyezőséget vagy nem? Illetve, ha nem, akkor van rá lehetőség, hogy azt mondjam az Excel-nek valamilyen módon, hogy ha az első x karakter stimmel, akkor a végét már ne nézze, hanem vegye egyezőségnek? 
-
#44377
Fferi50
Topikgazda
Mr.Mercury
#44376
Fferi50
Topikgazda
válasz
Mr.Mercury
#44376
üzenetére
Szia!
1. "hogyan egyesíthetném őket"
Nem a cellákat kell egyesíteni, hanem egy segédcellában összefűzöd őket így pl.:= A1 & ", " & B1 & ", " & C1
Ezután a segédoszlopon végighúzod a képletet, majd másolás - irányított beillesztés értéket. És máris dolgozhatsz az összefűzött adatokkal.
2. "a többszöröződésekből csináljon csak egy sort"
Kijelölöd a címeket tartalmazó oszlopot, utána Adatok - ismétlődések eltávolítása csak ebből az oszlopból.
Vigyázz, mert a többi oszlopban levő adatok is törlődnek. Tehát csak az adatok másolatán végezd el ezeket a műveleteket.
Üdv. -
#44376
Mr.Mercury
aktív tag
Mr.Mercury
aktív tag
Sziasztok!
Segítséget szeretnék kérni: van két címeket tartalmazó táblám melyeknél meg kéne mondanom, hogy hol van egyezőség a két táblázatban. A helyzet nehézsége, hogy az egyik táblázatban az összehasonlítandó adat 3 külön oszlopba van beírva (míg a másikban egybe, vesszővel elválasztva) és nem tudom hogyan egyesíthetném őket, mert cellaegyesítésénél azt az infót a kapom, hogy csak az első cellában lévő érték marad meg. Ráadásul ugye itt az egyesítés után az egész címadat egybe csúszna, míg a másikban ott lenne vesszőkkel elválasztva, ami miatt gondolom alapból nem is menne az összehasonlítás.
A másik problémám, hogy ezen összehasonlítandó adatok bizonyos módon az egyik táblázatban több sorban szerepelnek, míg a másikban csak 1-ben.
Példa rá: az egyik táblázatban egy sorban szerepel egy cím, hogy mondjuk "xy utca, z házszám"
A másik táblázatban ez a cím annyiszor szerepel egymás alatt, ahányan mondjuk a házszám alatti házban laknak. Itt sem tudom hogyan tudnám megmondani az Excel-nek, hogy ezekből a többszöröződésekből csináljon csak egy sort az összehasonlítás érdekében.
Tömören erre szeretnék valamilyen megoldást, 2013-as Excel-el szeretném megoldani.Köszönöm előre is!
-
Fferi50
Topikgazda
válasz
jackal79
#44374
üzenetére
Szia!
Próbáld meg esetleg a következőt:
1.Az A1 cellába írd be így a képletet:="SZUM('[Extruding műszaknapló 2020.06.xlsm]" & OSZLOP() &"'!$B$212:$B$213;'[Extruding műszaknapló 2020.06.xlsm]" & OSZLOP() &"'!$B$236:$B$237;'[Extruding műszaknapló 2020.06.xlsm]" & OSZLOP() & "'!$B$260:$B$261;'[Extruding műszaknapló 2020.06.xlsm]" & OSZLOP() & "'!$B$284:$B$285;'[Extruding műszaknapló 2020.06.xlsm]" & OSZLOP() & "'!$B$308:$B$309;'[Extruding műszaknapló 2020.06.xlsm]" & OSZLOP() & "'!$B$332:$B$333)"
2.Ezután elhúzod jobbra - gondolom 30 cellányit kell húzni.
3.Kijelölöd az elhúzott képleteket - az A1 cellával együtt.
4.Másolás
5.Irányított beillesztés ugyanoda értéket.
6.Ctrl F - Keresés- csere: Keresés SZUM Csere erre: =SZUM Mindet cseréli.
Elvileg ezután a helyes hivatkozásnak kell lennie mindenhol.
Az INDIREKT azért sem jó egészen, mert az csak akkor műxik, ha a forrásfájl is nyitva van. Ebben a formában viszont a nem nyitott fájlból is megjönnek az adatok.Üdv.
-
jackal79
aktív tag
Sziasztok,
tételezzük fel, h az alábbi függvény az A1-ben található. Hogy tudom elérni, hogy ha a cella sarkát elhúzom a B1, C1, D1, stb irányban, akkor az [Extruding műszaknapló 2020.06.xlsm]1 után lévő 1-es a B1-ben 2-re, a C1-ben 3-ra és így tovább módosuljon?
Remélem érthetően el tudtam magyarázni...
Köszi!=SZUM('[Extruding műszaknapló 2020.06.xlsm]1'!$B$212:$B$213;'[Extruding műszaknapló 2020.06.xlsm]1'!$B$236:$B$237;'[Extruding műszaknapló 2020.06.xlsm]1'!$B$260:$B$261;'[Extruding műszaknapló 2020.06.xlsm]1'!$B$284:$B$285;'[Extruding műszaknapló 2020.06.xlsm]1'!$B$308:$B$309;'[Extruding műszaknapló 2020.06.xlsm]1'!$B$332:$B$333) -
#44371
Delila_1
veterán
Csokishurka
#44370
Delila_1
veterán
válasz
Csokishurka
#44370
üzenetére
A Csere funkcióval egy lépésben kicserélheted a hivatkozásokban az elérési útvonalat.
-
#44370
Csokishurka
őstag
Csokishurka
őstag
Sziasztok,
Egy kis segítséget szeretnék kérni.
Adott egy táblázat ami túl van cicomázva, ezt én szeretném átvinni egy másik fájlba. Ez része meg is van:
='elérési út' Cella neve
Szépen lehúzom és rendre bemásol mindent.
De mivel minden héten új fájlt hoznak létre, ugyanaz minden csak az adatok változnak.
Megoldható az hogy megadok egy változót ami jelen esetben a fájl elérési útja lenne, szóval ha azt én átírom akkor szépen átmásolja nekem az új fájl tartalmát.Nem tudom mennyire írtam le érthetően, ha nem igyekszem jobban megfogalmazni, ezért bocsánat előre is...
Köszönöm a segítséget! -
-
Zoty4
őstag
Sziasztok
Megint volna egy kérdésem.
Van egy táblázatom, amiben van több termék más-más darabszámmal és más-más árral
Ezt szeretném egy másik táblázatba úgy átrakni hogy átlagár legyen, de súlyozva a mennyiség alapján.
Másik táblázatban :
szóval itt manuálisan beírom a megnevezésben levőket. A kg-ot szumha-val megoldottam
Először átlagha-val számoltam, az ár/kg-ot de az nem jó
Mi a megoldás? -
bela85
aktív tag
válasz
Fferi50
#44362
üzenetére
A helyzet az, hogy már a kimutatásból veszem ki az adatokat, de mivel több helyről jön, ezért eltérőek lehetne adott adószámra a teáor és statlétszám adatok is, és az üres sorokat az Ugrás-Irányított ugrás->üres Cellák-> = (felfelé nyíl) és Ctrl+Enterrel töltöm, mert gyorsabb mint egyesével végigmenni és bemásolni, de így az ilyen eltérések nem javítódnak és gondoltam egyszerűbb lenne, ha rá tudnék szűrni, hogy csak a duplikált adószámokhoz tartozó értékeket nézzem (de abból is sok van..)
-
bela85
aktív tag
Sziasztok!
Feltételes formázásnál hogy tudnám elérni, hogy adott táblában (adószám, név, statlétszám, TEÁOR szám) ha az adószám ismétlődik, akkor a statlétszámnál illetve a TEÁOR számnál ha eltérés van, színezze?
Mert előfordul a táblámban, hogy adott adószámra mivel több helyről jön az adat be, más-más statlétszám és TEÁOR szám van írva,amit nyilván egységesítenem kellene.Köszönöm előre is a segítséget!
-
p5quser
tag
Sziasztok!
Mellékelném a nyomorom;
Nem jöttem rá, hogyan tudom jobbról az első előfordulásnál lévő "(" karaktertől jobbra lévő teljes szöveget kiszedni B1-be. Persze nem 4 sorról lenne szó. Zárójeles részek többször is szerepelnek (lásd 2. sor), ezért a szövegből oszlopok-módszer macerás. Formula lenne jó.
Előre is köszönöm! -
bela85
aktív tag
-
Sprite75
tag
válasz
Fire/SOUL/CD
#44355
üzenetére
Ja, oszlopokat most épp töröltem ami nem kell és úgy készült a képe, de nem gond ha minden oszlop ugyanaz mint az első képen, majd a world-ben nem lesz használva .
A körlevélben egyébként 4-5 adat oaszlop sorai lennének használva csak.
Van kimutatás haszáálva ebben a táblázatban amit nem tudtam úgy rendezni , hogy úgy nézzen ki ami a world - nek jó lenne körlevél készítéshez.
Ilyen jelenleg a kiutatás
[kép]Fferi50
Kicsit csúnya lett de működik
Felvettem makró rögzítóvel és úgy is le generálódik szépen újra.
Ebből már csak törölni kell a szükgégtelen sorolat jelenleg a 20 tól lefelé és más indítható is a World.Köszi a tippet.
-
Fferi50
Topikgazda
válasz
Sprite75
#44354
üzenetére
Szia!
Az új munkalap D oszlopába átmásolod a sorszámot és megszünteted az ismétlődéseket. Az összesítő oszlopokba SZUMHA a sorszám szerint. A többi adat INDEX - HOL.VAN párossal, illetve FKERES-sel megtalálható.
Pl. Dátum:=INDEX(Adatok!A:A;HOL.VAN($D2;Adatok!$D:$D;0)
Ez húzható jobbra és lefelé is.
Üdv. -
#44355
Fire/SOUL/CD
félisten
Sprite75
#44354
válasz
Sprite75
#44354
üzenetére
Pedig kimutatással kivitelezhető...
Makróval is megoldható, de azt most másra bízom.
(Az alap táblán nem látszik egy oszlop, ami az összesítettben meg igen, nevezetesen a H-oszlop (Kód-szám fejléccel), ezt nem ártana "látszatni", mert úgy a makrós versenyzők is "sírni" fognak.![;]](//cdn.rios.hu/dl/s/v1.gif)
-
Sprite75
tag
Sziasztok újra.
Van e valakinek ötlete arra, hogy ebből a táblából
hogyan tudnék legegyszerübben egy ilyen összesítést csinálni egy másik munkalapra.
A dolog lényege, hogy a D oszlopban lévő azonos sorszámokhoz tatozó sorok K oszlopában lévő értékeket kellene összesíteni, hogy egy sorszámhoz egy sor tartozzon.
Az alap táblázat (első kép) folyamatosan bővül újabb és újabb sorokkal.World körlevél készítéshez kellene, hogy igy nézzen ki a táblázat mint a második képen.
Kimutatás készítőbel próbáltam de azzal nem tudok ilyen összesítést csinálni, hogy az alkalmas legyen a wold-nek körlevél készítés adathalmazának. -
Delila_1
veterán
válasz
bela85
#44350
üzenetére
Az újonnan beírt adatok felülírják a már ott lévőket.
Ha képletek vannak a Munka2 lap B oszlopában, akkor valóban értéket kell beilleszteni a Munka1-re.
Ez változik:
Do While .Range("B" & sor) <> ""
.Range("B" & sor).Copy
Sheets("Munka1").Range("B3").PasteSpecial xlPasteValues
ActiveWindow.SelectedSheets.PrintOut Copies:=1
sor = sor + 1
Loop -
bela85
aktív tag
válasz
Delila_1
#44349
üzenetére
Oké! Szuper! Köszönöm!!
De amit nem látok ebben, és a saját makrórögzítővel készített kódban igen, hogy nekem fontos, hogy a munka1 lapon a B3 cellában levő adatot mindig törölje és irányított beillesztés értékkel tegye oda a munka2 lapról az adatot.
Hiába egyszer neki kéne állnom tényleg megtanulni ezt a makró programozást, mert sokszor hasznát venném.
-
Delila_1
veterán
válasz
bela85
#44348
üzenetére
Modulba tedd a makrót.
Sub Nyomtatas()
Dim sor As Long
sor = 2
Sheets("Munka1").Select
With Sheets("Munka2")
Do While .Range("B" & sor) <> ""
Sheets("Munka1").Range("B3") = .Range("B" & sor)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
sor = sor + 1
Loop
End With
End Sub -
bela85
aktív tag
Egy újabb kérdés.. mivel makróban nem vagyok teljesen otthon...
Adott egy excelben levő nyomtatvány a munka1 lapon.. a B3 mezőbe szeretném a nevet írni, de úgy, hogy makróval a másik lapról a B2-tól ameddig van töltve az oszlop.
Makrórögzítővel elkezdtem (mivel leprogramozni nem tudom), frankón működik, de kéne bele egy for ciklus ami végigmegy a munka2 lap B2 cellájrától, hogy meddig van töltve a B oszlop.. és ismétli a makrot.
Tudna valaki segíteni benne?
Köszönöm előre is!
Sheets("Munka1").Select
Range("B3").Select
Selection.ClearContents
Sheets("Munka2").Select
Range("B2").Select
Selection.Copy
Sheets("Munka1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Munka1").Select
Range("B3").Select
Selection.ClearContents
Sheets("Munka2").Select
Range("B3").Select
Selection.Copy
Sheets("Munka1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1 -
Sprite75
tag
válasz
Fferi50
#44345
üzenetére
[link] Ez az.
Itt még nincsbenne a Application.EnableEvents=False / True amit irtál de volt már benne korábban sz is mer úgy is próbáltam már. Szintén másik táblázatban van ilyen Application.EnableEvents=False / True amiben régebben segítettetek, onnan jött az ötlet hogy kipróbáljam.
Viszont amikor tegnap próbáltam beletenni a Application.EnableEvents=False sort akkor a Dim után raktam be nem pedig elé.
Most beraktam elé és minden szuper
Erről írtam , hogy én csak "heggesztgetem" a makrókat ti pedig profi módon tudjátok, hogy mi mért vanNagyon köszönöm a segítséget .
Sub Újsor()Application.EnableEvents = FalseDim usor As Longusor = Range("C" & Rows.Count).End(xlUp).RowActiveSheet.Unprotect Password:="baromfi"Rows(usor).SelectSelection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAboveActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=TrueRange("A" & usor).SelectApplication.EnableEvents = TrueEnd Sub -
Fferi50
Topikgazda
válasz
Sprite75
#44344
üzenetére
Szia!
Ha megmutatnád az új sor makrót, talán könnyebben rájönnénk.
Most az a gyanúm, hogy nincs az eseménykezelés letiltva benne, ezért a beszúrás után fut(na) az eseménykezelő makród, de itt ugye nem egy cella változik, hanem egy egész sor, ezért nem tudja értelmezni az utolsó feltételt.
Az új sor makróba az elején be kellene szúrniApplication.EnableEvents=False
majd a végén pedigApplication.EnableEvents=True
Ezáltal a nem kívánt események nem indítanák el az eseményvezérelt makrókat.
Üdv. -
Sprite75
tag
válasz
Delila_1
#44343
üzenetére
Az új sor makró van modolba, a sorszámozós amit írtál az pedig a 2020 nevű lapon.
Így kellene lennie?Ha futtatom az új sor makrót akkor kapom ezt a hibát.
De csak abban az esetben ha a sorszámozósban a Target <> "" az egyik feltétel, ha ezt elhagyom akkor nincs ez a hiba.
Viszont működésileg jó lenne ha benne lenne a Target <> "" feltétel, mert ugye ha ez nincs benne akkor bármi kerül a Q uszlop valamelyik sorába (akár véletlenül egy betű szám helyett vagy egy Del gomb) már le is fut a sorszámozás, és ha ezt nem veszi észre aki majd használja akkor a sorzámok nem lesznek megfelelőek.Mivel én még mindíg nem vágom enniyre ezt a makró témát ezért fogalmam sincs, hogy miért van ez a hiba az új sor makró futtatásakor, de ezekre rájöttem amit fentebb írtam
Majdnem biztos vagyok benne, hogy az új sor makró sem tökéletes mert azt is én alakítottam ilyenre egy másik táblázatból kiszedve.
üdv
Gabi -
Pikkolo^^
addikt
Van egy hasonló táblázatom, mint az alábbi. Azt szeretném kinyerni, hogy a 'Kezdés' oszlop hányadik számú. Azért van erre szükség, mert van olyan eset amikor D és van amikor az E oszlopban található meg a 'Kezdés'. Ha visszakapom számként akkor FKERES-sel ki tudom belőle nyerni az adatokat.
-
Mutt
senior tag
Sziasztok,
A másik fórumon felmerült egy probléma, amelynél egy "kódolt" szövegsorból kell számtartományokat előállítani.
A példa szerint a "30000000+34000000+341-34100099+348-341003+3401" karaktersort az alábbiak szerint kell értelmezni:
1. A számok 8 értékes jegy hosszúságú tartományokat jelölnek. Ahol mind a 8 karakter megvan ott a tartomány alsó és felső értéke azonos, a többi esetben pedig az tartomány kezdőértékét a megfelelő számú nullák hozzáadásával lehet elérni. A felső értéket pedig a megfelelő számú kilencesekekkel.
Így lesz a 341-ből 34100000 - 34199999 tartomány.
2. Ha a szám előtt minusz van, akkor az abból készült tartományt ki kell majd a végeredményből zárni. A többi esetben kell a tartomány.A feladat, hogy az így megadott kódsorból állítsuk elő a használható számtartományokat.
Ebben a feladatban lehet használni pár képességét a Power Query-nek:
1. A kódolt számsort fel lehet darabolni a +/- jelek alapján, hogy külön lehessen őket kezelni.
2. A nem 8 hosszúságú számokkból lehet alsó és felsőértéket előállítani a Text.PadEnd függvénnyel.
3. Lehet előállítani egy számsort adott két szám között a list operátorral (kapcsos zárójel).
4. Lekérdezések segítségével ki lehet zárni a nem kívánt számokat a végerdményből.
5. Lehet csoportosítgatni, hogy megkapjuk hogy mely számtartományokról van szó.
A nem tökéletes változat letölthető innen
Az eredmény nem hibás, csak lehetne jobban is összevonni a tartományokat illetve brute forceként minden számot létrehoz majd szűrőget, így lassú tud lenni nagy számok esetén.
üdv
-
Fferi50
Topikgazda
válasz
Delila_1
#44334
üzenetére
Szia!
Hát, tapasztalataim szerint a dátum kezelése - legalábbis a magyar verzióban - nem erőssége az Excelnek sajnos. Persze belejátszik ebbe bizonyára az is, hogy az a fránya cella pont úgy néz ki, mintha dátum lenne, aztán pedig eszében sincs annak lenni.... De tény, hogy szűrőknél, feltételeknél hogy úgymondjam, roppantul észnél kell lenni dátumok esetében.
:-(
Üdv.
(Ps. vagy csak én nem tudom kezelni azokat rendesen.... ) -
Delila_1
veterán
válasz
Fferi50
#44332
üzenetére
Ha már tapasztalat, és ismétlődések eltávolítása, megosztom egy rossz tapasztalatomat.
Pár napja egy 4000 soros, dátumokat tartalmazó oszlopnál merült fel egy súlyos probléma. Az egyedi értékek mellé SZUMHA függvényekkel két oszlop összegeit rendeltem az eredeti táblából. Az eredeti, és a képlettel kiszámolt összegek nem egyeztek meg.
Sok kínlódás után kiderült, hogy a kigyomlált oszlopban 2 dátum kétszer szerepelt.
Ezután az eredeti táblában az azonos dátumokat Ctrl+Enterrel vittem be, hogy azonosak legyenek. Az egyik párosnál sikerült, már csak egyszer szerepelt a kigyűjtöttben, de a másiknál nem. Annál 11 tétel volt az eredeti táblában.
Végül úgy oldottam meg, hogy DARABTELI függvénnyel a kigyűjtöttek mellé írattam az előfordulások számát, majd makróval eltüntettem a duplikációt.Lehet, hogy bizonyos számú ismétlődést nem tud kezelni a menüpont.
-
Fferi50
Topikgazda
válasz
bela85
#44330
üzenetére
Szia!
Én úgy tapasztaltam, hogy a legelső előfordulást hagyja meg az ismétlődések törlése során.
Ezért célszerű előtte úgy rendezni, hogy az Elfogadott kerüljön előre.
Rendezésnél adhatsz meg egyéni sorrendet is (pl. Elfogadott - Javított - Beérkezett stb.)
Ezután a rendezés Adószám - státusz, majd utána az ismétlődések törlése.
Üdv. -
bela85
aktív tag
Sziasztok!
Segítséget, tanácsot szeretnék kérni az excel ismétlődések törlése funkcióval (vagy kiváltásával kapcsolatban)
Adott egy tábla melyben cégek beadott pályázatait vezetjük (természetesen több oszlop van mint amit most beírok)
Adószám, Cégnév, beérkezés dátum, státusz, Postázás dátuma
Na most lehet olyan, hogy adott cég ugyanazon a napon 3 pályázatot ad be, az egyik még csak Beérkezett állapotú a másik meg Elfogadott a harmadik Javításra vár.. az ismétlődések törlésével szeretném ha egy cég csak egy sorba maradna. (Összesítve már a SZUMHATÖBB függvénnyel megoldottam), de fontos lenne, hogy pl ami Elfogadott az maradjon meg, mert sokszor az ismétlődések törlése pont azt a sort törli ami fontos lenne.. és ilyenkor pl a Beérkezett marad csak benne, független attól hogy mi van a Postázás dátumához írva.
Már szinte minden lehetőséget kipróbáltam és nem jövök rá, mi alapján törli az ismétlődéseket az excel.. hiába tettem már sorba őket első lépcsőbe adószám, majd második lécsőbe státusz alapján..
Ha lehet első körben macro nélkül szeretném megoldani.
De minden javaslatot szívesen fogadok! (ja és Excel 2007-esben) Köszönöm előre is segítséget!
-
Delila_1
veterán
válasz
Sprite75
#44323
üzenetére
"Az lenne az igazi, ha nem is kellen gombot beraknom ennek a makrónak, hanem amikor írják be az adatokat az új sor gomb megnyomása uttán, és elérnek az adott sor Q oszlopába, és oda bekerül egy szám, akkor iródjon be a következő sorszám az adott sor D oszlopába."
Ehhez írtam az eseményvezérelt makrót.
-
olloczky
senior tag
Sziasztok
Hogy lehet azt megcsinálni, hogy két oszlop értékeit vessem össze egymással, és a különbségeket kiírassam, vagy formázzam?
A legjobb az lenne, ha egy új oszlopban (N) kiírná azt, ami M-ben szerepel, de L-ben nem.
Előre is köszi!
üdv
szerk.: vagy ha ennek van vmi könnyen guglizható neve, nekem az is jó.
szerk.: hupsz lehet találtam is, nézem -
Sprite75
tag
válasz
Delila_1
#44322
üzenetére
Az And Target <> "" feltételt átírtam erre IsNumeric(Target) mert hibaüzenetet dobott amikor elíndítottam az Újsor makrót.
Az új sor makró ez:
Sub Újsor()Dim usor As Longusor = Range("C" & Rows.Count).End(xlUp).RowActiveSheet.Unprotect Password:="baromfi"Rows(usor).SelectSelection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAboveActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=TrueRange("A" & usor).SelectEnd SubÍgy hibaüzenet nincs.
Viszont a Q oszlopba beállítottam érvényesítést, hogy csak számot írhassanak bele, de ha mégis betűt írok véletlenül és jön a hibaüzenet az érvényesítés miatt akkor lefut a sorszámozás.
Ez ki lehet valahogy küszöbölni?Tudod a "bolond boztonság" miatt
-
Delila_1
veterán
válasz
Sprite75
#44321
üzenetére
Rendeld a laphoz:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 And Target.Row > 1 And Target.Count = 1 And Target <> "" Then
Cells(Target.Row, 4) = Application.WorksheetFunction.Max(Range("D2:D" & Target.Row - 1)) + 1
End If
End SubA feltételnél azt vizsgáljuk, hogy
– a Q oszlopról van-e szó,
– hogy legalább a 2. sor legyen a bevitel helye,
– ne törlés legyen,
– és van-e bevitt adat. Ehelyett írhatsz szám ellenőrzést:IsNumeric(Target)Nincs szükség az alsó sor helyére, mert a Q oszlop bevitelére reagál.
-
Sprite75
tag
válasz
Delila_1
#44317
üzenetére
Szia
Ez így működik is köszönöm, de tovább gondoltam a dolgot.
Tudom ott kezdődik a probléma mikor gondolkodomCsak azoknak a soroknak a D oszlopába kell sorszámozni, ahol a Q oszlopban van szám. Elvileg az lehet 0 is de mindenképpen van írva valami a Q oszlopba amikor a D -be soszám szükséges.
Ezért írtam egy ilyet de természetesen nem jól működik Sub Sorszam2()Dim usorC As Long, usorQ As IntegerusorC = Range("C" & Rows.Count).End(xlUp).Row - 1usorQ = Range("Q" & Rows.Count).End(xlUp).Row - 1If usorQ < 0 ThenEndElseRange("D" & usorC) = Application.WorksheetFunction.Max(Range("D2:D" & usorC - 1)) + 1End IfEnd Sub
Az lenne az igazi, ha nem is kellen gombot beraknom ennek a makrónak, hanem amikor írják be az adatokat az új sor gomb megnyomása uttán, és elérnek az adott sor Q oszlopába, és oda bekerül egy szám, akkor iródjon be a következő sorszám az adott sor D oszlopába.
Ha nem írnak semmit az adatbevitelkor a Q oszlopba akkor pedig nem kell új sorszám.Remélem nem bonyolítom a dolgot nagyon
Megint küldök egy képet is a kinézetről.
[kép] -
Fferi50
Topikgazda
válasz
zsolti_20
#44318
üzenetére
Szia!
Egy kis "csavarral" az INDIREKT függvény elkerülhető.
Lépések:
1. A névkezelőben a kecske munkalap A1:A10 tartományát elnevezed így: kecske
A kutya munkalap A1:A32 tartományát elnevezed így: kutya.
2. Ezután a képlet a B1 cellába:=HAHIBA(INDEX(VÁLASZT(HOL.VAN($A$1;{"kecske";"kutya"};0);kecske;kutya);SOR());"")
Ezt a képletet húzhatod lefelé a B oszlopban.
Ameddig van adat, addig kiírja az oszlopban, az adatok elfogytával "üres" lesz a cella.
(Nagyobb tartományt is adhatsz a nevekhez, hátha szeretnél még írni bele több adatot.)
Üdv. -
zsolti_20
senior tag
Udv emberek. Mar rengetegszer kaptam itt segitseget amit nagyon szepek koszonok. Ha nem problema egy ujabb kerdessel fordulnek hozzatok.
Lehetseges azt megoldani, hogy excelben a sheet1 lapon az A1 cellaba irva kiadja az adatokat a B : B cellakba amik azon a neveu lapon szerepelnek amit az A1-be irtam?
Pl az excelben van 3 lapom, sheet1,kecske,kutya
A kecske lapon az A1:A10-ben talalhato 10 ertek,szam,betu,akarmi.
A kutya lapon az A1:A32 cellakban talalhato 32 ertek,sza,betu,szo akarmi.
Ha beirom a sheet1 A1 cellaba hogy kecske akkor irja a B oszlopba a kecske lapon szereplo adatokat amik az A oszlopban szerepelnek. -
Sprite75
tag
Szasztok
Újabb makrós problémával kerültem szembe.
Remélem most is tud valaki segíteniAdott az alábbi 2 makró, amiből az egyik egy új sort szúr be a táblázatba kiegészítenem most egy másikkal ami az újonnan beszúrt sor D oszopába (jelen esetben D54 cella) beírja a soron következő sorszámot ami a D oszlopban legutóbb szerepelt +1 (Tehát most a példában 15 következne.)
Ott akadtam el, hogy már ki va választva az éppen aktuális cella de hogyan lehetne ide beíratni a soron következő sorszámot?Melléleem a makrókat és egy kéept is a tábláról
Köszönöm szépen előre is
Sub Újsor()Dim usor As Longusor = Range("C" & Rows.Count).End(xlUp).RowActiveSheet.Unprotect Password:="baromfi"Rows(usor).SelectSelection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAboveActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=TrueRange("A" & usor).SelectEnd SubSub sorsszam()Dim usor As Longusor = Range("C" & Rows.Count).End(xlUp).RowActiveSheet.Unprotect Password:="baromfi"Range("D" & usor - 1).SelectActiveCell.FormulaR1C1=ActiveSheet.Protect Password:="baromfi", DrawingObjects:=False, Contents:=True, Scenarios:= _False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=TrueEnd Sub -
Zola007
veterán
válasz
Fferi50
#44310
üzenetére
tudom
ezért írtam, hogy " ha pedig szövegként, akkor tudományos formátumba (....E+11) stb illeszti be"
aposztróf nyilván működik, csak azt nem értem, hogy ha szöveg formátumot állítok be, akkor miért nyúl hozzá?
szöveg formázásnak pont az lenne a lényege, hogy amit beírunk az úgy marad
(100 egység széles a cella, szóval nem rövidít)Én csak annyit szeretnék, hogy ezt a nyomorult auto-formatot ki lehessen teljesen kapcsolni és az Office 2007 óta nem bírják ezt megoldani.
Google Sheets és más táblázatkezelők simán kezelik a nagy vagy speciális (pl. vonalkód) számokat, tehát programszinten nem akadály.
-
Xanderas
csendes tag
Hali
Szeretnék egy havi lebontású jelenléti ívet amiben a szombati és a vasárnapi sorokat beszinezné. Elméletileg a feltételes formázás lenne a megoldás de nem akar összejönni.
Tud valaki segíteni?
Szerintem az lehet a gond, hogy a napokat dátumból generálja és nem szövegként hanem számsorként kezeli és ezért hiába adom meg feltételnek a szombatot és a vasárnapot nem értelmezi.
Lehet nem gondolom jól!
Előre is köszi.
Üdv -
Fferi50
Topikgazda
válasz
Zola007
#44308
üzenetére
Szia!
"relative nagy számokkal kellene dolgoznom,"
Tudnod kell, hogy az Excel csak 15 értékes számjegyet tud kezelni, ez a rendszer korlát.
Tehát ennél nagyobb terjedelmű számokat csak szövegként tudod bevinni.
Vagy a cellaformátumot kell szövegre állítani vagy az aposztróffal (') kell kezdeni, ahogyan az előző hsz-ban tanácsolták.
Üdv. -
Zola007
veterán
az i.....b.....meg a microsoftot
relative nagy számokkal kellene dolgoznom, ha számként illesztem be, akkor a 15 helyiérték felett mindent nullára kerekít, ha pedig szövegként, akkor tudományos formátumba (....E+11) stb illeszti be
Én csak annyit szeretnék, hogy ha bemásolok egy számot, akkor azt mutassa, ne mást.
Mi lenne erre a megoldás?
Hogyan lehet teljesen kikapcsolni az autoformatot? -
Fferi50
Topikgazda
Szia!
Belső csoportosítást (több szintet) is lehet csinálni.
Elnevezni a "gombokat" nem lehet. De pl. az első oszlopba írhatsz neveket, de ezek "összecsukás" után nem látszanak.
A Képletek - Névkezelőben adhatsz nevet tartományoknak, amiket azután a névterületen kiválaszthatsz:
Üdv. -
Zoty4
őstag
Sziasztok
Ismét egy kis segítséget szeretnék kérni.
Azt szeretném beállítani hogy 1-1100. sorig oldalt egy kis gombocskával összecsukható legyen az 1100 db sor
Majd a következő 1100 szintén egy másik gombbal. Láttam már ilyet régebben, de nem találom és nem tudom hogy ezt hogy hívják, így sajnos ráguglizni sem tudtamElőre is köszönöm
-
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
- Országosan a legjobb BANKMENTES részletfizetési konstrukció! Lenovo ThinkPad X13 Gen 5
- Bomba ár! Dell Inspiron 7400 - i7-1165G7 I 8GB I 512SSD I 14,5" 2K I HDMI I Cam I W11 I Garancia!
- BESZÁMÍTÁS! ASUS STRIX B650E-E R7 7700 64GB DDR5 1TB SSD RTX 3080 10GB Thermaltake Ceres 500 850W
- ÁRGARANCIA! Épített KomPhone Ryzen 7 9700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Bomba ár! MacBook PRO 13" 2020 4TB3 - i5 I 16GB I 512SSD I OS X Sequoia I Cam I Gari!
Állásajánlatok
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged