Keresés

Részletes keresés

GYTunde Creative Commons License 2021.07.07 0 0 35807

Sziasztok,

 

a következő probléma megoldásában szeretném kérni a segítségeteket.

 

Van sok (B-CC oszlop), százas sor nagyságrenű, naponta növekvő számoszlopom.

A példa kedvéért csak ötöt írok ide az egyikből. 

B5:B9: -0,40; 0,00; -0,15; 4,05; 2,95

 

A számok közötti különbség maximumára (minimumára és átlagára) lenne szükségem, egy(-egy) képlettel megoldva, kisegítő oszlop nélkül.

 

(C6:C9 0,40; -0,15; 4,20; -1,10 ezt az oszlopot nem szeretném, hogy legyen.)

 

Max: B1: 4,20

Min: B2: -1,10

Átlag: B3: 0,84

 

 

Sajnos olyan sok és összefüggő oszlopról (B-CC oszlop) van szó, hogy nincs kapacitás kisegítő oszlopokat (C oszlop ebben a példában) gyártani a különbözet számolásra, majd abból venni a max-t, min-t, átlagot.

Ezért egy-egy képlettel kellene megoldani.

 

Lehet, hogy van erre kész excel függvény, de sajnos én nem tudom, hogy mi a neve.

 

Köszönöm a segítségeket!

Eredő Vektor Creative Commons License 2021.07.07 0 0 35806

Ezt az Excel Solver bővítményében le lehet szerintem (valahogy) képezni.

De elsősorban erre vmilyen matematikai algoritmus kell, van ilyen fórum is, hátha...

Előzmény: anyray (35801)
önindítópersely Creative Commons License 2021.07.07 -2 0 35805

Uraim!

 

 Nincs valakinek egy eladó C3 BSi a látómezőben? Siemens F01-00 J kóddal. 

Amennyiben van, kérlek jelezzétek. Kéne menni nyaralni a géppel és beteg.

Köszi!

HR

önindítópersely Creative Commons License 2021.07.04 0 0 35804

Köszönöm szépen!

 

Az Accest nem használtam soha, de nekiállok, hátha ott a megoldás, ha nem megy, akkor az első felvetést is megpróbálom. 

Köszi!

Előzmény: Fferi50 (35803)
Fferi50 Creative Commons License 2021.07.04 0 0 35803

Szia!
Szerintem első körben meg kellene próbálni struktúrálttá és egyszerűbbé tenni a táblá(ka)t.

Érdemes lenne egy csak a bevitelre szolgáló munkalapot/formot csinálni, ahol "lenyílókból"/adatérvényesítéssel kiválasztással lehetne a vevőket, termékeket kiválasztani, így elkerülhető a téves bevitel.

Ezenkívül persze felmerül az is, hogy miért nem adatbázis kezelőt használtok erre a feladatra (Access az Ofice-ben is van és többfelhasználós)?

Szűrni sorokat nem lehet, csak oszlopokat. Ha sorokban szereplő adatokra szeretnél szűrni, akkor transzponálni kell az adatokat - akkor a sorokból oszlopok lesznek és szűrhetőek máris.

Üdv.

Előzmény: önindítópersely (35802)
önindítópersely Creative Commons License 2021.07.04 0 0 35802

Sziasztok!
Segítséget kérnék az alábbiakban!


Sajnos megakadtam,  nem tudom, hogyan oldjam meg az alábbi kérdést. Van egy táblázat, amelyben kb 100 vevő és kicsit több termék van. A kolléganő folyamatosan ebbe a táblába töti a beérkező megrendeléseket, de bonyolult és sok hibalehetőség van benne. A tábla dolgozik aktuális készlettel, kiszállítási dátummal, vevő és terméknévvel. Azt szeretném elérni, hogy szűrhető legyen minden, hogy egyszerre csak egy vevő és termék lehessen előtte, így nem hibázna ennyit. A készlet és rendelés alapján pedig lenne infónk, ha valaki nem kao meg valamit. Még tudom fokozni, drive-on van fent a tábla, hogy mindenki láthassa és hozzáférjen. Ha meg tudná valaki mondani, hogy vízszintes sorokban tudok e szűrést beálltani, illetve, a munkalapok között lehet e szűrés, keresés azt megköszönném!

 

Köszönettel

Havasi R

anyray Creative Commons License 2021.07.04 0 0 35801

Sziasztok!

 

Hogy tudnám az excellel kiszámolni ezt a feladatot?

 

Van 5 db építőkockám, 13 és 30 mm közötti magassággal. Úgy szeretném összerakni őket, hogy minél több lehetséges magasság legyen. Nem kell mind az 5 kockát egymásra rakni.

Azt szeretném elérni, hogy ne legyen egyik oszlop sem egyforma és 30 mm felett ha lehet 2 mm-ként növekedjenek az oszlopok (kb 80 mm-ig)

 

Milyen magasságúak legyenek az építőkockák? Nem kötelező a 13-as és a 30-as, de 13-nál kisebb nem lehet, 30 fölé ha szükséges akkor kicsit lehet menni.

 

Én a sárga sávban beírom az magasságokat és így próbálkozom. Csináltam régebben mátrixot, de már nem emlékszek rá.

 

Hogyan oldanátok meg?

Esetleg az öt építőkocka magassága? :)

Fferi50 Creative Commons License 2021.06.26 0 0 35800

Szia!

Írtam:

Adatok menücsoport - ismétlődések eltávolítása.

Üdv.

Előzmény: djuice (35799)
djuice Creative Commons License 2021.06.26 0 0 35799

Köszi! Így értettem meg.

Az azonos értékek eltávolítása az hogy van hozzá még?

Előzmény: Fferi50 (35798)
Fferi50 Creative Commons License 2021.06.26 0 0 35798

A képet nem ette meg:

 

 

Üdv.

Előzmény: Fferi50 (35797)
Fferi50 Creative Commons License 2021.06.26 0 0 35797

Szia!

Itt egy példa:

A oszlop -> D oszlopba másolva, majd Adatok - ismétlődő értékek eltávolítása.

E2 képlete húzható lefelé.

Üdv.

Előzmény: djuice (35796)
djuice Creative Commons License 2021.06.26 0 0 35796

Megnéztem ezt a példa videót, de totál nem értem az én esetemre hogy lehetne lefordítani. :(

https://www.youtube.com/watch?v=3Z-Bup-XlUw

Előzmény: Fferi50 (35793)
Törölt nick Creative Commons License 2021.06.26 0 0 35795

Beszúrás/Kimutatás

Előzmény: djuice (35792)
Vax Creative Commons License 2021.06.25 0 0 35794

Milyen típusúak az értékek?

Előzmény: djuice (35792)
Fferi50 Creative Commons License 2021.06.24 0 0 35793

Szia!

Szumha függvényt használd.

Üdv.

Előzmény: djuice (35792)
djuice Creative Commons License 2021.06.24 0 0 35792

Sziasztok!

 

Egy oszlopban vannak ismétlődő elemeim és a mellettük levő oszlopban értékek.

Hogyan tudnám összegezni az azonos elemekhez tartozó értékeket?

(Próbáltam HA függvényben kombinálni más függvényeket, de nem megy.) :(

 

Köszi!

Fferi50 Creative Commons License 2021.06.22 0 0 35791

Szia!

Annyi a különbség, hogy nem Enterrel, hanem Shift+Ctrl+Enterrel kell lezárni a képletet.

Üdv.

Előzmény: NeomatiK (35790)
NeomatiK Creative Commons License 2021.06.22 0 1 35790

Szia!

Köszönöm szépen, hogy ennyit dolgoztál vele. De a tömbképletekhez nem értek. Ami nem jelenti azt, hogy ne írnám így át, csak az már nem ma lesz. Utána kell néznem ebbéli alap dolgoknak.

Előzmény: Fferi50 (35788)
possimplebility Creative Commons License 2021.06.22 0 0 35789

Mennyire triviális, de imába foglaltam a neved!

Hálásan köszönöm. Ezzel meg is oldódott a problémám és a kedvem is sokkal jobb lett.

 

További szép napot!

 

Előzmény: Delila10 (35780)
Fferi50 Creative Commons License 2021.06.22 0 1 35788

Szia!

A havi adatokhoz kell 2 db segédoszlop, egyikben az év a másikban a hónap van:

Ebben az esetben a tömbképletek:

Minimum:

=MIN(HA((HÓNAP($A$1:$A$2000)=$G2)*(ÉV($A$1:$A$2000)=$F2)=1;($B$1:$B$2000);100000))

Maximum:

=MAX((HÓNAP($A$1:$A$2000)=$G2)*(ÉV($A$1:$A$2000)=$F2)*($B$1:$B$2000))

Átlag:

=ÁTLAG(HA((HÓNAP($A$1:$A$2000)=$G2)*(ÉV($A$1:$A$2000)=$F2)=1;($B$1:$B$2000);""))

A tömbképletet a Ctrl+Shift+Enter zárja le, az Excel kapcsos zárójelbe {} teszi.

DE ezeket kimutatással könnyedén el tudod érni.

A heti adatokhoz 3 segédoszlop kell:

Egy tartalmazza az adott dátumhoz tartozó hét számát a HÉT.SZÁMA képlet alapján

Az összesítéshez pedig kell az ÉV és a Hét száma oszlop:

Ide szintén tömbképletek kellenek:

Minimum:

=MIN(HA((($C$1:$C$2000)=$M2)*(ÉV($A$1:$A$2000)=$L2)=1;($B$1:$B$2000);100000))

Maximum:

=MAX(($C$1:$C$2000=$M2)*(ÉV($A$1:$A$2000)=$L2)*($B$1:$B$2000))

Átlag:

=ÁTLAG(HA(($C$1:$C$2000=$M2)*(ÉV($A$1:$A$2000)=$L2)=1;($B$1:$B$2000);""))

A képletekben levő tartományokat igazítsd a saját adataidhoz.

Természetesen más módon is lehet számolni még, pl. adatbázis (AB) függvényekkel.

Üdv.

Előzmény: NeomatiK (35787)
NeomatiK Creative Commons License 2021.06.22 0 0 35787

Csak az adott év adott hónapjának átlaga.

2018 jan, feb, márc .... 2019 jan, feb, márc .... stb

Igen, dátumok vannak azokban a cellákban.

MS Excel 2007 (12.0.xxxx.xxxx)

 

Oks, utánanézek ennek a kimutatásnak, mert érdekel :)

Köszi szépen.

Előzmény: Fferi50 (35786)
Fferi50 Creative Commons License 2021.06.22 0 1 35786

Szia!

Az éveket átívelően alatt nem ezt értettem :(

Miután azt írtad, hogy több évre vannak az adatok, arra irányult (volna) a kérdésem, hogy pl. a január havi átlag az 2008. január majd 2009. január, aztán 2010 január stb. - re számítódik vagy 2008-2010 stb. januárjainak az átlaga.

A kimutás egy eszköz. Attól függ hol találod, hogy milyen Excel verziód van. Leginkább a Beszúrás menücsoportban található.

A régebbi verziókban ekkor a Kimutatásvarázsló vezet végig a folyamaton, az újabbaknál a mezőlistából kell választanod a vizuálisan mutatott kimutatás területekre.

Tehát kérdés: Milyen Excel verziód van, milyen módon számítanád az adott értékeket, milyen adat van az A oszlopban (dátum vagy dátumnak látszó szöveg -- ez utóbbit ellenőrizheted, ha megpróbálod megváltoztatni a cella formátumot számra, ha nem megy, akkor szöveg van a cellában) ?

Üdv.

Előzmény: NeomatiK (35785)
NeomatiK Creative Commons License 2021.06.22 0 0 35785

Sikerült összefűzéssel megkapni a függvényt, elejére betettem egy fv tagot, tehát így néz ki: fv=MIN(A1:A31). De ekkor még szöveges.

Innen copy új oszlopokba, irányított beíllesztés "ÉRTÉKET"

Majd ebből CTRL-F-fel csere fv a semmire. Így megmaradt a =MIN(A1:A31) és működik függvényként számot adva eredményül a cellában. Temészetesen mindezt minden hónapra (1 sor = 1 hónap).

A heti eredményeket majd ezután csinálom.

 

Előzmény: NeomatiK (35784)
NeomatiK Creative Commons License 2021.06.22 0 0 35784

A kimutatást (függvény/funkció?) nem ismerem sajnos.

 

Az év fordulópontját a hét nem veszi figyelembe, szóval éveken átívelően.

 

Ja és makró nélkül jöhet csak számításba :)

 

A havi bontást még manuálisan átméretezném, mozgatnám, de a hetit nem szívesen.

 

 

Na de valamit alkotok: függvényekkel kiszámolom, hogy melyik cella lesz a -tól -ig cella hónapra és hétre és aztán valahogy összefűzöm függvénybe. Csak nem tudom, hogy utána fog-e függvényként működni, ha benne összefűzött részek vannak.

Előzmény: Fferi50 (35783)
Fferi50 Creative Commons License 2021.06.22 0 0 35783

Szia!

A havi/heti bontás éveken belül kell vagy éveken átívelően (utóbbinál nem számít melyik év, csak a hét/hónap)?

Kimutatást próbáltad már? A havi/évi biztosan jön automatikusan. 

Persze csak akkor, ha valóban dátumok vannak az A oszlopban és nem dátumnak látszó szöveges értékek.

Üdv.

Előzmény: NeomatiK (35782)
NeomatiK Creative Commons License 2021.06.22 0 0 35782

Helló!

 

A oszlopban fentről lefelé A1:A2000 vannak dátumok egymást követő naptári napok szerint több évet felölelve.

B oszlopban mellette ehhez tartozó számértékek B1:B2000

 

F, G, H oszlopba havi összesítés kéne MINIMUM, MAXIMUM, ÁTLAG értkekre,

tehát januárra

F1=MIN(A1:A31)

G1=MAX(A1:A31)

H1=ÁTLAG(A1:A31)

 

de az F2/G2/H2-be már a következő hónap adatai kellenének F2=MIN(A32:A60) stb

 

Hogy lehet függvénnyel megcsinálni, hogy ne kelljene kézzel bepötyögni vagy egérrel húzkodni a tartományt? Plusz oszlopot tudok betenni, ha kell hozzá.

 

Aztán majd heti bontásra is meg kéne csinálni.

J1=MIN(A1:A7)

K1=MAX(A1:A7)

L1=ÁTLAG(A1:A7)

 

Fferi50 Creative Commons License 2021.06.21 0 0 35781

Szia!

Biztosan azonos a keresett érték és a keresési tábla adat jellege és formátuma?

Nem lehet, hogy az egyik szöveg, a másik idő v. fordítva.

Próbáld ki úgy, hogy a C2 cellát átmásolod az F3 cellába.

Szerintem a képleted így jó.

Üdv.

Előzmény: possimplebility (35779)
Delila10 Creative Commons License 2021.06.21 0 0 35780

Az FKERES függvény utolsó paramétere a keresés módját határozza meg. A nulla pontos keresést-, az 1 (vagy ha nem írod be ezt az utolsót) megközelítő értéket ad. Nálad az utóbbit kell alkalmaznod.

Előzmény: possimplebility (35779)
possimplebility Creative Commons License 2021.06.21 0 0 35779

Előzmény: Eredő Vektor (35771)
possimplebility Creative Commons License 2021.06.21 0 0 35778

Szia. Köszönöm a segítséged de lehet, hogy a szellemi képességeim korlátozottak és emiatt nem jön össze.

Küldök egy mintát, hátha abból jobban látszik, mit szeretnék.

 

 

 

Köszönöm, hogy még1x ránézel.

Előzmény: Eredő Vektor (35772)
Frakk7 Creative Commons License 2021.06.18 0 0 35777

Szia, így már működik ezen a gépen is, nagyon szépen köszönöm a megoldást!

Előzmény: Eredő Vektor (35776)
Eredő Vektor Creative Commons License 2021.06.18 0 0 35776

Szia,

azt már ezzel a mintával meg tudod csinálni:

 

https://www.accountingweb.com/sites/default/files/MAXIF%20-%20Figure%203.jpg

 

Magyarban a vessző helyett természetesen pontosvessző kell és persze a magyar fgvnevek. Ctrl+Shift+Enterrel kell bevinni a képletet, mert tömbképlet lesz.

 

 

Előzmény: Frakk7 (35775)
Frakk7 Creative Commons License 2021.06.18 0 0 35775

Köszönöm, ez nagyon jól működik a barátnőm 2019-es verziójú gépén! Sajnos nálam 2010-es verzió van még, abban is tudnál segíteni, hogy váltsam ki a maxha képletet? Köszönöm.

Előzmény: Eredő Vektor (35774)
Eredő Vektor Creative Commons License 2021.06.17 0 0 35774

 

Ha nincs MAXHA()fgv lehet helyettesíteni máshogy is. Ez 2019-es office

Előzmény: Frakk7 (35773)
Frakk7 Creative Commons License 2021.06.17 0 0 35773

Sziasztok!

 

Az alábbi probléma megoldásához kérnék segítséget:

 

Adott egy rengeteg soros és sok oszlopos táblázat, mely - többek között - a termékek szavatossági idejét, mennyiségét mutatja, többféle raktárhelyen. A feladat az lenne, hogy ebből készüljön egy lekérdezés/kimutatás/kivonat/szűrés, mely megmutatja, ha egy adott cikkből van-e kint másik raktárban olyan, melynek a szavatossági ideje rövidebb a főraktárban lévő legrövidebb szavatossági idejű terméknél.

 

A kimutatásban meg tudom jeleníteni, hogy melyikből milyen szavidős van, és hol, csak nem tudom, hogy kellene a szavatossági idő összehasonlítását megoldani – illetve az is segítség lenne, ha vagy színes háttérrel kiemelkedne az eltérés, vagy csak azok jelennének meg, ahol eltérés van.

 

Kis mintatáblázatot küldök, hogy talán így értelmezhetőbb.

 

 

 

Főraktár: 1-es, kihelyezett raktár: 2-es (illetve később lehet több is).

égösszeg

350

Lehet, hogy nem a kimutatás erre a legjobb megoldás, de sajnos nem vagyok túl nagy excel guru, alapképleteket tudok csak használni -  esetleg van ötletetek ennek a megoldására?

Előre is köszönöm a segítségeteket!

Eredő Vektor Creative Commons License 2021.06.16 0 0 35772

még annyi, hogy nem elég simán időformátumra állítani a cellát. Tudatosítani kell vele egy F2 Enterrel és utána látja már az fkeres is. Ha sok van, akkor meg szövegből oszlopokkal opcióval dátumformátumra végig kell futtatni az időket tartalmazó oszlopot, ahonnan az fkeresed keres.

Előzmény: Eredő Vektor (35771)
Eredő Vektor Creative Commons License 2021.06.16 0 0 35771

Amúgy biztos, hogy valamilyen (idő)formázási probléma van nálad - bármelyik tartományban amit az fkeres-ed használ, ahogy Istvan is írta.

Ha ezen nem tudsz / akarsz változtatni, akkor marad az alább írt függvényes átalakítgatás.

Előzmény: possimplebility (35768)
Eredő Vektor Creative Commons License 2021.06.16 0 0 35770

Bocsi, az első így rövidebb természetesen:

=IDŐ(ÓRA(A1+A2);PERCEK(A1+A2);MPERC(A1+A2))

Előzmény: Eredő Vektor (35769)
Eredő Vektor Creative Commons License 2021.06.16 0 0 35769

Ha a számított idő függvényben használod az IDŐ() függvényt, az megoldást jelent erre.

Pl.:

=IDŐ(ÓRA(A1)+ÓRA(A2);PERCEK(A1)+PERCEK(A2);MPERC(A1)+MPERC(A2))

 

Az fkeresed szerintem azért nem találja enélkül, mert a számítással elveszti az időformátumát.

 

Tehát így is működik:

=SZÖVEG(A1+A2;"ó:pp:mm")

Ennél az esetnél az fkeresnek is kell:

=FKERES(SZÖVEG(B1;"ó:pp:mm");A1:A3;1;0)

 

Aztán biztos van ennél jobb is, de most nekem ez jut eszembe.

Előzmény: possimplebility (35768)
possimplebility Creative Commons License 2021.06.16 0 0 35768

Érthető magyarázat, köszönöm. Egyet azonban nem értek: Ha pl. 2:10 kapom eredményként és ennek megfelelőjét keresi tizedes számként egy FKERES függvényhez létrehozott táblázatban is (a 2:10 értékét mindkét esetben az excel számolja ki, tehát elvileg ha formázáskor nem kerekítek, akkor egyformának kellene lenniük az értékeknek) meg kellene találnia. Ha ugyanis manuálisan átírom a kapott eredményt, úgy megtalálja.

Előzmény: E.Istvan (35767)
E.Istvan Creative Commons License 2021.06.15 0 1 35767

Szerintem nem azonos a cellában lévő érték és a keresés helyén lévő érték. Az Excel a dátum és idő értékeket tizedesszámként tárolja. A cella formázásától függően látszolag lehetnek azonosak az értékek, akkor is ha a sokadik tizedesben eltérés van.

Előzmény: possimplebility (35766)
possimplebility Creative Commons License 2021.06.15 0 0 35766

Sziasztok!

 

Azt szeretném megkérdezni, hogy ha a cellám értéke egy eredményül kapott idő érték, és erre lehetséges-e FKERES függvénnyel adatot kapni? Látszólag ugyanis a kapott eredményre "HIÁNYZIK" üzenetet kapok de ha manuálisan írom be a kapott eredményt, minden további nélkül megkapom az FKERES által kért adatokat. Van erre valakinek magyarázata? Esetleg tudna segíteni?

Előre is köszönöm.

pimre Creative Commons License 2021.06.09 0 0 35765

De. Köszönöm. Ez nem jutott eszembe.

Előzmény: m54-b (35764)
m54-b Creative Commons License 2021.06.09 0 0 35764

A "hagyományos" megoldás, a tengelyen jobb klikkes menü nem működik?

 

Előzmény: pimre (35763)
pimre Creative Commons License 2021.06.09 0 0 35763

Sziasztok. Diagram szerkesztéssel van gondom. Az Office 2010 alatt egyszerű volt. A Diagrameszközök fül alatt lehetett rengetek beállítást elvégezni:

 

 

Most konkrétan egy tavalyi grafikonhoz jött új adatok miatt szeretném a függőleges tengely léptékét módosítani, de nem találom az Office 2019-ben a listát benne a tengely beállítási lehetőséggel. Feltételezem, hogy már a 2016-os verzió óta le ez az "újítás". Tudjátok, hogy hol érhető el? A a legrosszabb rémálmom lenne, ha sehogy:-)

 

 

Redlac Creative Commons License 2021.06.07 0 0 35762

Éééés találtam a neten egy tökéletes megoldást :-)

 

nem az adott nevű lekérdezést törlöm az egész folyamat elején, hanem az összeset.

 

Dim cn As WorkbookConnection
Dim qr As WorkbookQuery
On Error Resume Next
For Each cn In ThisWorkbook.Connections
   cn.Delete
Next
For Each qr In ThisWorkbook.Queries
   qr.Delete
Next

Előzmény: Redlac (35759)
Redlac Creative Commons License 2021.06.07 0 0 35761

A munkafüzet egy sablon, amiről másolatok készülnek különböző beolvasásokhoz, és az adott txt minden esetben más. 

De ugyanazt a munkaterületet (egy rejtett lapot, amit a makró fed fel, majd rejt vissza) többféle makró is használja. Mindegyik előtt törlöm a tartalmat, hogy ne ütközzenek, majd megtörténik az adatok feldolgozása.

Előzmény: Eredő Vektor (35760)
Eredő Vektor Creative Commons License 2021.06.07 0 0 35760

Miért akarod törölni / másikat létrehozni ha ugyanazt akarod beolvasni?

Szerintem ugyanezt a query-t kell frissítened (talán jobb gomb "frissítés", nem ismerem a környezetet) és beolvassa.

 

Előzmény: Redlac (35759)
Redlac Creative Commons License 2021.06.07 0 0 35759

Sziasztok!

 

Makróval hozok létre egy lekérdezést. Valójában az a célom, hogy egy txt fájl adatait beolvassam. Szuper jól működik, kézzel rögzítettem, és működik.

 

ActiveWorkbook.Queries.Add Name:="0", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Forrás = Table.FromColumns({Lines.FromBinary(File.Contents(""C:DokumentumokDiag.txt""))})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " Forrás"
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=0;Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
   .CommandType = xlCmdSql
   .CommandText = Array("SELECT * FROM [0]")
   .RowNumbers = False
   .FillAdjacentFormulas = False
   .PreserveFormatting = True
   .RefreshOnFileOpen = False
   .BackgroundQuery = True
   .RefreshStyle = xlInsertDeleteCells
   .SavePassword = False
   .SaveData = True
   .AdjustColumnWidth = True
   .RefreshPeriod = 0
   .PreserveColumnInfo = True
   .ListObject.DisplayName = "_1"
   .Refresh BackgroundQuery:=False
End With

 

Az a gondom, hogy ha újra be kellene olvasni ezt a txt fájlt, akkor megáll és nehezményezi, hogy "0" nevű lekérdezés már van. Ez világos, hiszen az előbb hoztam létre. 

 

A kérdésem, hogy miként lehetne az egész elején vizsgálni, hogy létezik-e a "0" lekérdezés, és ha igen, akkor törölje.

 

Fájlok meglétét tudom vizsgálni, de erre a neten sem találtam számomra egyértelmű megoldást.

bandika33 Creative Commons License 2021.06.02 0 0 35758

Köszönöm szépen!

Előzmény: Fferi50 (35757)
Fferi50 Creative Commons License 2021.06.02 0 0 35757

Szia!

Irányított beillesztés - transzponálás  (az irányított beillesztés párbeszédpanel jobb alsó részén találod).

Üdv.

Előzmény: bandika33 (35756)
bandika33 Creative Commons License 2021.06.02 0 0 35756

Sziasztok!

Kérdésem lenne ha egy oszlopot kijelölök másolom azt lehet

visszintesen sorba beilleszteni?

PL:

1

2

3

4

5

6

 

                1 2 3 4 5 6

minden adat abban a sorrendben jelenjen meg.

Köszönöm ha tudtok segíteni.

bé.laci Creative Commons License 2021.06.01 0 0 35755

És tényleg jó lehet SZUMHATÖBB-el is, csak picit belezavarodtam :S

 

B1-ben:

 

=SZUMHATÖBB(Munka1!$D:$D;Munka1!$A:$A;$A2;Munka1!$C:$C;B$1)

 

Még egyszer köszönöm a segítséget.

Előzmény: bé.laci (35753)
bé.laci Creative Commons License 2021.06.01 0 0 35754

Elnézést, a segédoszlopos rész kimaradt.

 

Elnézést, fárasztó nap volt.

 

Most már működik.

 

Köszönöm még egyszer.

 

Kielemzem a miértjét :-)

 

 

 

 

Előzmény: Fferi50 (35752)
bé.laci Creative Commons License 2021.06.01 0 0 35753

Köszönöm!

 

Kielemzem a képleted, mert nálam nem működik, míg nálad láthatóan igen.

 

 

 

 

 

 

Én amúgy Szumhatöbb-el próbálkoztam, ahol a második kritériumtartomány a Munka1 dátumos oszlopa, a kritérium pedig a Munka 2 első sora lenne, de ez nyilvánvalóan nem működik.

 

Sajnos régen Exceleztem már, az elmúlt években egy - ill. több -  évekkel ezelőtt összerakott táblát alkalmaztam és bővítgettem.

 

Előzmény: Fferi50 (35752)
Fferi50 Creative Commons License 2021.06.01 0 1 35752

Másik lehetőség:

A kiindulási munkalapon csinálsz egy segédoszlopot, pl. az F oszlopot.

Az F2 cella képlete:=A2&C2

Ezt végighúzhatod lefelé, ameddig adataid vannak.

A cél munkalapon

A oszlopban a termékek, az első sorban a dátumok vannak.

A B2 cella képlete:

=HAHIBA(INDEX(Munka1!$D$2:$D$13;HOL.VAN($A2&B$1;Munka1!$F$2:$F$13;0));"")

Ez húzható lefelé és oldalra is, ameddig adataid vannak.

Fontos, hogy a $ jelek a címben így legyenek. A tartományok végét igazítsd a sajátodhoz.

Üdv.

Előzmény: bé.laci (35750)
Fferi50 Creative Commons License 2021.06.01 0 1 35751

Szia!

Pl. lehet csinálni kimutatást, ahol a sorcimke a termék, oszlopcimke a kiszállítás dátuma - ez utóbbinál automatikusan a hónapot is feljajánlhatja, azt ki kell venni a kimutatásból.

Üdv.

Előzmény: bé.laci (35750)
bé.laci Creative Commons License 2021.06.01 0 0 35750

Tisztelt Szakik!

 

Egy kérdésem lenne.

 

Van egy SAP-ból lehúzott vevői rendelési/előrejelzési lista, amiben egyes cikkekre több megrendelési sor is létezik, és vele párhuzamosan az egyik oszlopban találhatóak a hozzájuk tartozó darabszámok.

 

 

A kérdésem, hogy milyen képlettel tudnám egy új munkalapra beolvasni a lista/tábla tartalmát úgy, hogy az A oszlopban szerepeljenek a cikkszámok (mindegyik csak egyszer - ezt a részt elvileg még meg tudom oldani;)), és az egyes mennyiségek pedig ezek mellett legyenek úgy, hogy az első sor tartalmazza az egyes napokat.

 

Tehát a kiindulás kb ez (persze sokkal több cikkszámmal):

 

És kb. ezt szeretném:

 

 

 

 

Előre is köszönöm a segítséget. Persze közben én is kutakodok, mert rémlik, mintha tanultam volna ilyesmit, de nagyon nem ugrik be :S

 

 

Zs:) Creative Commons License 2021.06.01 0 0 35749

Használhatod a számok keresésére a Fferi50 által megadott képletet is!

=Darabteli($A:$A;C1)

Tehát az A oszlopban vannak a számaid, mondjuk a C1-től indulva 1-től a számok lefele oszlopban, a fennti képlet pedig a D1-ben, majd lehúzva amíg a C-ben van szám. Ahol 0 az eredmény, az a szám nincs a listában. Ráadásként beágyazhatod egy HA függvénybe, hogy 0-nál legyen üres a cella, vagy feltételes formázással kiemeld a 0-kat.

Előzmény: Sutigti (35743)
dorogszu Creative Commons License 2021.06.01 0 0 35748

Hihetetlen! Nagyon szépen köszönöm! 

Megyek is egy kávéra! Minden flottul működik! 

Hálás vagyok ismételten!

Előzmény: Fferi50 (35747)
Fferi50 Creative Commons License 2021.05.31 0 0 35747

Szia!

Ez a makró megcsinálja amit kérsz, egy picivel többet is ha szeretnéd, a H oszlopon túl további oszlopokba is beírhatod az ilyen formájú adatokat és mindaddig átfordítja az A-G oszlopokba azokat, ameddig adatot talál az oszlop első sorában:

Sub atforditja()
Dim cl As Range, ucell As Range, fcell As Range
Set fcell = Range("H1:H7")
Do
Set ucell = Range("A1000").End(xlUp).Offset(1, 0)
For Each cl In fcell.Cells
ucell.Value = Application.Substitute(Mid(cl.Value, Application.Search(",", cl.Value, 5) + 3, Len(cl.Value)), Right(cl.Value, 4), "")
Set ucell = ucell.Offset(0, 1)
Next
Set fcell = fcell.Offset(0, 1)
Loop While fcell.Cells(1) <> ""
End Sub

Természetesen ha csak a H oszlopban van adat, azt a következő üres sorba fordítja át.

Nálam egyből számok lettek a méretekből, ha nálad nem így lenne, kérlek írj - Excel verzió stb.

Üdv.

Előzmény: dorogszu (35746)
dorogszu Creative Commons License 2021.05.31 0 0 35746

H1:H11 

Azaz a

H1 cellában van az első sor a minta szerint           ["SAP szám ", "S110228580", "

H2 cellában van a második sor a mita szerint         ", "Üzem", "HD-2", "

és így tovább egészen a H11-ig 

Köszönöm!

Előzmény: Fferi50 (35739)
Sutigti Creative Commons License 2021.05.31 0 0 35745

Nagyon szépen köszönöm, ez első körben megoldást jelentett a kérdésemre :)

 

Kipróbálom az fkeres varriációt is mindjárt :)

Előzmény: Fferi50 (35742)
Garashan Creative Commons License 2021.05.31 0 0 35744

Az fkeres függvényben a keresési tartományt rögzítsd le.

Pl. =fkeres(b1,$a$1:$a$1000,1,hamis)

Előzmény: Sutigti (35743)
Sutigti Creative Commons License 2021.05.31 0 0 35743

Megnézem a listám csak 501ig van, de ez lényegtelen :) Csak 303 szám van meg, de ha mellé teszek egy 501es listát akkor már 70nél elveszítí a fonalat, merthogy addig van csak meg folyamatosan egymás mellett a két sorozat. :( Próbálom feltételes formázással, hogy szinezze ki azt a számot amit megtalál a kisebb listában...de valahogy azzal is elakadok

Előzmény: Zs:) (35741)
Fferi50 Creative Commons License 2021.05.31 0 1 35742

Szia!

Ha az A oszlopban vannak a számaid, akkor pl. feltételes formázással is megállapíthatod, mi hiányzik:

Feltételes formázás - szabályok kezelése - új szabály: a formázandó cellák kijelölése képlettel - A képlet pedig:

=Darabteli($A:$A;sor($A1))=0

Meghatározod a formátumot. OK.

Majd az érvényesség tartományának megadod az A1:A1000 tartományt.

Amely számok hiányoznak, azok a sorok színesek lesznek. Utána használhatod a szűrést színre eszközt.

Üdv.

Előzmény: Sutigti (35740)
Zs:) Creative Commons License 2021.05.31 0 1 35741

Elméletben:

Csinálsz egy oszlopot 1-1000 -ig számokkal, mellé oszlopba keresést a szomszédos számra, ahol nem lesz találat, az hiányzik.

Előzmény: Sutigti (35740)
Sutigti Creative Commons License 2021.05.31 0 0 35740

Olyan kérdésem lenne, hogy van egy oszlopom amiben vannak számok 1-1000 között, és azt szeretném tudni,  hogy melyik sorszámok hiányoznak a sorozatomból? Erre van valami egyszerű módszer vagy valami képlet?

Fferi50 Creative Commons License 2021.05.28 0 0 35739

Szia!

A Data.hu vírusvizsgálata miatt csak most tudtam letölteni.

Akkor most hogyan néz ki a szöveged a beolvasás után?

Egy cellában van a szögletes zárójelek közötti szöveg, vagy így függőlegesen egy oszlopban? Mert nem mindegy.

Olyan legyen a mintád, amit feldolgoztatni szeretnél.

Üdv.

Előzmény: dorogszu (35737)
pimre Creative Commons License 2021.05.27 0 0 35738

Ha már úgyis makró - ahogy a letöltött fájlban írod -, nem lenne egyszerűbb szövegből oszlopok nélkül az összes adatot makróval kiolvasva a helyére másolni megfelelő formátumra alakítva?

 

Mert nem tudom, hogy választod szét az adatokat a szövegből oszlopok eljárással, de ha onnan kiolvasol egy adatot, amit számmá alakítasz, és minden további (pl. NumberFormat = "0.00") nélkül átmásolod egy másik helyre (ahogy a fájlodban látom), akkor persze, hogy dátumnak hiszi őket, és úgy formázza.

Előzmény: dorogszu (35737)
dorogszu Creative Commons License 2021.05.27 0 0 35737
Előzmény: Fferi50 (35735)
m54-b Creative Commons License 2021.05.26 -1 1 35736

Fferi50 Creative Commons License 2021.05.26 0 0 35735

Szia!

Mutatsz egy mintát? Milyen Excel verziód van?

Üdv.

Előzmény: dorogszu (35734)
dorogszu Creative Commons License 2021.05.26 0 0 35734

Próbáltam sajna ugyanez lett

a helyzet 

 

Előzmény: Fferi50 (35733)
Fferi50 Creative Commons License 2021.05.26 0 0 35733

Szia!

Szerintem próbáld meg úgy, hogy az ezeket tartalmazó oszlopokat SZÖVEG-nek választatod szét, nem pedig általánosnak.

Ezután cserélheted a pontot vesszőre.

Üdv.

Előzmény: dorogszu (35732)
dorogszu Creative Commons License 2021.05.26 0 0 35732

Sziasztok! 

 

Adott egy szöveg:

 

["SAP szám ", "S110223557", "
", "Üzem", "HD-1", "
", "Pozíció", "C401", "
", "Engedély száma", "1115", "
", "Hossz", "2.07", "
", "Szélesség", "1.07", "
", "Magasság", "2.25", "
", "Elhelyezkedés", "+ 8 méter", "
", "Légköbméterben:  ", 4.98352, "
", " Megjegyzés: adat"] 

 

Adatok Szövegből oszlopok paranccsal szétválasztom az adatokat. Tagolt Tabulátor szóköz Oszlop adaatípusa Általános

Kijelölöm a szétválasztott összes oszlopot

A szétválasztott adatoszlopokra csere paranccsal kiszedem a tizedesjegyeket és a vesszőket.

 

Azonban a Hossz Szélesség Magasság értékei  a veszző cserélése után átalakulnak dátummá vagy számmá attól függően, hogy próbálkoztam a cella adattípus beállításaival is kísérletezni 

 

Mit rontok el?

 

bandika33 Creative Commons License 2021.05.25 0 0 35731

Köszönöm szépen 

Előzmény: Delila10 (35730)
Delila10 Creative Commons License 2021.05.24 0 1 35730

=A2 & "-" & B2

Előzmény: bandika33 (35729)
bandika33 Creative Commons License 2021.05.24 0 0 35729

Sziasztok!

Megint egy kis segítséget kérnék.

Két oszlopban számok vannak ezek meccs eredmények,hogyan tudom összekötni öket kötöjellel

egy harmadik oszlopban

Példa.

        A        B        C

        0        1       0-1

        1        1       1-1

milyen képlettel tudom léterhozni

előre is köszönet

Sheeny Creative Commons License 2021.05.23 0 0 35728

Az idő majd eldönti melyik válik be, addig is kezdünk az elsővel :)

 

Köszönöm szépen !!

Előzmény: Fferi50 (35727)
Fferi50 Creative Commons License 2021.05.22 0 0 35727

Szia!

Szerintem a legegyszerűbb, ha a törlő makród

1. induláskor rákérdez, hogy valóban törölni szeretnéd-e az adatokat:

   If MsgBox("Valóban törlöd az adatokat",vbYesNo)=vbNo Then Exit Sub ' ha meggondolta magát, kilép a makróból

2. elmented a munkalap másolatát:

  Dim sh As Worksheet, msh As Worksheet
  Set sh = ActiveSheet
  sh.Copy after:=Sheets(sh.Index)

  Set msh=ActiveSheet

  msh.Name="Mentett"
  sh.Activate

  ha nincs már szükség a mentett munkalapra, akkor

  msh.Delete  vagy Sheets("Mentett").Delete

3. ha vissza szeretné hozni:

   Dim msh As Worksheet, sh As Worksheet

   Set msh = Sheets("Mentett")
   Set sh = ActiveSheet
   msh.UsedRange.Copy sh.Range(msh.UsedRange.Cells(1).Address)

Üdv.

Előzmény: Sheeny (35726)
Sheeny Creative Commons License 2021.05.22 0 0 35726

Sziasztok

 

Elkészült egy táblázat, melyben különböző mezőkbe kell/lehet csak beírni értékeket a usereknek, a számolások csak akkor indulnak ha ezekbe a cellákba adat kerül.

A táblázatot újra és újra lehet használni, viszont a munkafüzet szóban forgó celláit kijelölgetni és törölni macerás, csináltam rá egy makrót, ami a feladat végeztével kattintásra minden adatot töröl, és a kezdő cellára ugrik.

 

És itt kérném a segítségeteket.

 

Sajnos a makrós műveleteket nem lehet visszavonni (tudom én :) ), de mégis szeretném, ha mondjuk ctrl z-re vissza lehetne tölteni a törölt adatokat, ha mégis szükség lenne rá.

Van erre valami egyszerű makró utasítás, vagy ilyenkor meg kell írni, hogy mentse el magának a törölt adatokat ?

 

 (nem tudok makrót írni, kb ennyi megy, hogy Select meg ClearContents).

 

Köszi

gio014 Creative Commons License 2021.05.21 0 0 35725
  • Köszönöm szépen!
Előzmény: Fferi50 (35718)
B7378 Creative Commons License 2021.05.20 0 0 35724

Működik!

Kösz mindenkinek a segítséget! :)

Előzmény: Fferi50 (35723)
Fferi50 Creative Commons License 2021.05.20 0 0 35723

Szia!

Hossz=LEN

Helyette=SUBSTITUTE

Üdv.

Ps. Ezért jó, ha megírjátok, milyen Excel verzióval dolgoztok....

Előzmény: B7378 (35722)
B7378 Creative Commons License 2021.05.20 0 0 35722

Köszi mindenkinek!

Hogy ez mekkora ötlet, megszámoltatni a kívánt szám nélkül a hosszát és a különbség az eredmény.... szóval király ötlet, zsenik vagytok. 

Még egy utolsó kérdés, valaki tudja az angol parancsokat? Nem magyar az excellem.... 

A HOSSZ meg a HELYETTE kellene...

Delila10 Creative Commons License 2021.05.20 0 0 35721

Képpel könnyebb.

Előzmény: B7378 (35717)
Delila10 Creative Commons License 2021.05.20 0 0 35720

A második könnyebben érthető.

A HOSSZ függvény megadja a hivatkozott cella adatának a hosszát. A példádban ez 15.

A HELYETTE(A1;"0";"") az A1 cella szövegében a nullák helyett üres stringet ("") ad. Ha ennek a hosszát kérdezed le, akkor az eredei hossz, mínusz a nullák számát kapod, ami 13.

A képlet az eredeti hosszból levonja a nullák nélküli szöveg hosszát, az eredmény 2.

Előzmény: B7378 (35717)
Fferi50 Creative Commons License 2021.05.20 0 0 35719

Szia!

Próbáld így:

A G2 cella képlete: =HOSSZ($A$2)-HOSSZ(HELYETTE($A$2;G$1;""))

A képlet húzható jobbra és lefelé is.

A képletben fontosak a címzések, a $ jelölésekre figyelj.

Üdv.

Előzmény: B7378 (35717)
Fferi50 Creative Commons License 2021.05.20 0 1 35718

Szia!

A B1 cellában a képlet: =HA(MARADÉK(SOR();2)=0;"";A1)

A C1 cellában a képlet: =HA(MARADÉK(SOR();2)=0;"";A2)

Ezeket a képleteket végighúzod a 2 oszlopon lefelé, ameddig adataid vannak.

Ezután: A B-C oszlopot kijelölöd - másolás - irányított beillesztés értéket ugyanoda  - ezzel megszűnik a képlet, majd

A oszlop törlése.

Üdv.

 

Előzmény: gio014 (35715)
B7378 Creative Commons License 2021.05.20 0 0 35717

Köszönöm szépen...

de nem értem... próbáltam kimásolni és beírni a cellába, átírtam a cella nevét, de nem működik....

Előzmény: Delila10 (35716)
Delila10 Creative Commons License 2021.05.20 0 0 35716

Szia!

 

=SZORZATÖSSZEG(--(KÖZÉP(A1;SOR(A1:INDIREKT("A"&HOSSZ(A1)));1)="0")), vagy

=HOSSZ(A1)-HOSSZ(HELYETTE(A1;"0";""))

Előzmény: B7378 (35714)
gio014 Creative Commons License 2021.05.20 0 0 35715

Sziasztok!

Cellák tömeges áthelyezésében szeretnék segítséget kérni. 

Van egy táblázatom, ami egy oszlopból áll, s az adatok kettesével vannak egymás alatt párban. Ezeket kéne egymás mellé rakni, a nagy mennyiség miatt egyesével nem belátható a feladat. 

Tehát A1-A2 cellatartalom változzon A1-B1 elrendezésre, A3-A4 változzon A3-B3-ra, és így tovább. 
Van ötletetek valamilyen parancssorra? 

Köszönöm!

B7378 Creative Commons License 2021.05.20 0 0 35714

Sziasztok Excell guruk, egy kis segítséget szeretnék kérni. 

Van egy A oszlopom, amiben vannak 10 jegyű számok. A feladat az lenne, hogy meg kellene számolni, hogy az adott cellában hány darab 0-s, egyes, kettes, hármas stb stb számjegy szerepel. 

Például, egy ilyen cella, pont a legelső, az A2 az:    HU 32078 1203 8     ebben ugye van két darab nulla, egy db egyes, két kettes stb. 

Próbálkoztam fél napon át a COUNT meg a COUNTIF különböző változataival, próbáltam súgót is lesni, de nem sikerült. 

Tud valaki ebben segíteni? 

Ha valai várprofi és rámír egy emailt, még a táblázatot is át tudom küldeni. Ha működne a parancs, akkor gondolom fél perces ujjgyakorlat lehet annak, aki ért hozzá :)

előre is köszi!

Bizonyos68 Creative Commons License 2021.05.20 0 0 35713

Kedves hozzáértők. Ki tudja megmondani mi az oka, hogy a Win10 alatt használt office365 esetén ha egy korábban elmentett xlsx fájlt megnyitok, akkor nem az eredeti fájlt nyitja meg, hanem abból készít egy másolatot. Pld ha az eredetileg elmentett fájl neve teszt.xlsx akkor ha azt megnyitom, a megnyílló fájl neve már teszt1.xlsx lesz. Nagyon dühít, mikor módosítok egy ilyen fájl tartalmán és praktikusan elegendő lenne a mentésre kattintanom, az eredeti fájl felülírásához végig kell tallóznom annak elérési útját, azt kijelölnöm az eredeti fájlnév használata kedvéért és felülírnom a módosított fájllal. A legérdekesebb, hogy ezt csak az xlsx esetében csinálja az Excel, az xls -sel normális a működése. Előre is nagyon köszönöm annak aki le tudná írni, hogy hol lehet kikapcsolni ezt a működést, hogy az xlsx -et ne másolatba nyissa meg az Excel. 

Zs:) Creative Commons License 2021.05.20 0 0 35712

Szia,

Kijelölt cellákon csinálja meg:

 

Sub Makró3()

Dim i As Integer
Dim c As Range

For Each c In Selection.Cells
i = 1
Do
c.Characters(i, 1).Font.FontStyle = "Félkövér"
i = i + 1
Loop Until c.Characters(i, 1).Text = Chr(10) Or i > c.Characters.Count
Next c

End Sub

 

 

Előzmény: tekeoff (35710)
Törölt nick Creative Commons License 2021.05.20 0 0 35711

Ez egy publikus weboldal?

Előzmény: dorogszu (35701)
tekeoff Creative Commons License 2021.05.19 0 0 35710

Szia!

 

Sikerült! :)

Viszont az egymás alatti cellákban, hiába jelölöm ki az oszlopot vagy több cellát, mindig csak a legfelsőben csinálja meg.

Hogyan lehetne az egész oszlopban egyszerre megcsinálni?

Előzmény: Zs:) (35706)
rezso54 Creative Commons License 2021.05.19 0 0 35709

közben rájöttem
pl
145734  E6 cellában
konvertálás:
=IDŐ(KÖZÉP(E6;1;2);KÖZÉP(E6;3;2);KÖZÉP(E6;5;2))

 

Előzmény: rezso54 (35707)
tekeoff Creative Commons License 2021.05.19 0 0 35708

Huh, na ilyent még nem csináltam, de köszönöm.

Szóval valahogy megírom a makrót, majd ki kell jelölni cellákat és futtatni kell?

Előzmény: Zs:) (35706)
rezso54 Creative Commons License 2021.05.19 0 0 35707

Sziasztok,

Egy rendszer generál egy csomó dátum adatot, amit excel be át lehet húzni,

 

pl 184321

Egy egy idő pont vagy is ez 18 óra 43 perc 21 másodperc

Hogy lehet ezt Excelbe átalakítani

erre a formátumra: 18:43:21

Elég sok adat, szóval...kézzel nem érdemes.

 

Néztem a neten, de még csak hasonlót se találtam, biztos triviálisan egyszerű

 

Mi lehet a megoldása?

 

Köszi

Zs:) Creative Commons License 2021.05.19 0 0 35706

Elvileg ez működik:

 

Sub Makró1()

Dim i As Integer

i = 1

Do
ActiveCell.Characters(i, 1).Font.FontStyle = "Félkövér"
i = i + 1
Loop Until ActiveCell.Characters(i, 1).Text = Chr(10) Or i > ActiveCell.Characters.Count

End Sub

 

A változtatni kívánt cellán kell futtatni!

Előzmény: tekeoff (35703)
tekeoff Creative Commons License 2021.05.19 0 0 35705

Szia!

A gondom az, hogy egy-egy lapon 100-300 ilyen sor van, azt egyesével módosítgatni kicsit lassú. Nincs valami kód erre?

Előzmény: Fferi50 (35704)
Fferi50 Creative Commons License 2021.05.19 0 0 35704

Szia!

A cellában csak az első sort jelölöd ki és átváltoztatod vastagra.

Akár minden egyes betű lehet más-más színű és betűtípusú.

Üdv.

Előzmény: tekeoff (35703)
tekeoff Creative Commons License 2021.05.18 0 0 35703

Sziasztok!

Formátummal kapcsolatban lenne egy kérdésem. Három (vagy több) cellában található szöveget egy újba összefűzök úgy, hogy azok egymás alá kerüljenek. Beállítható az, hogy az első sorban szereplő vastag betűtípusú legyen?

 

Példa 1. sor

példa 2. sor

példa 3. sor

Garashan Creative Commons License 2021.05.18 0 0 35702

Ha nekem nagyon unalmas munkafolyamatot kell elvégezni sokszor egymás után, akkor többnyire az Auto Hot Key nevű programot szoktam hozzá használni.

Pl. a számlázó programunk bizonyos részén nem lehet sehogy sem kijelölni mindent adatot egyszerre, de egy-egy sort lehet másolni. Ez több száz sor esetén kicsit unalmas lett volna, így automatizáltam:

ctrl+c

alt+tab

ctrl+v

le nyíl kétszer

alt+tab

le nyíl

Ez egészen addig ismétlődött, amíg a vágólap tartalma nem volt egyenlő az egy körrel hamarabbi vágólap tartalmával. A dolog hátránya, hogy minden folyamat közé be kellett iktatni legalább 100 ms várakozási időt, az alt+tab után amikor az Excelbe léptem be, akkor 500 ms-t, amikor visszaléptem a számlázóba, akkor 1000 ms-t. Erre azért volt szükség, mert néha sokat gondolkodik a számlázónk és ha nem voltak ott a várakozási idők, akkor nem hajtotta végre normálisan a scriptet. Összesen 1800 ms várakozási idő volt benne. Ennél gyorsabban tudnám manuálisan csinálni, mert ha éppen nem gondolkodik egyik program sem, akkor haladós. De így vagy elmentem ebédelni vagy kávézni, esetleg másik gépen dolgoztam és ez is haladt.

u.i.: közben másra nem lehet használni az adott gépet.

 

Nem tudom, hogy neked mennyi adatot kell felvinni nap mint nap, de ha a weblap enged ugrálni a tabulátorral a beviteli mezőknél, akkor a megfelelő sorrendbe kigyűjtve egy táblázatba az adatokat, akkor csak oda vissza kellene alttabolni a két program között és közben ctrl c&v gombokat nyomkodni, meg odébb lépkedni tabulátorral.

Előzmény: dorogszu (35701)
dorogszu Creative Commons License 2021.05.17 0 0 35701

Sziasztok! 

Nem excel kérdés de annyi segítséget kaptam már, így hátha valakinek ötlet!

 

Adott egy internet explorer böngészőben megnyitható webes felületen szerkeszthet űrlap amelyen szakma szerint be kell állítani a napi munkavégzés adatait szakma szerint.

 

Minden nap folyamatos munkavégzés folyik és szakma szerint rengeteg az állandó adat. Ezen adatok szövegbeviteli mezőben helyezkednek el vagy választási lehetőségek(bepipálom) közül kell választanom. Egyfajta automatikus kitöltési lehetőséget keresek az állandó értékekre. Valakinek ötlet?

GeoffAd Creative Commons License 2021.05.16 0 0 35700

Szuper! Egyforma súly nagyon kicsi eséllyel fordul elő, elvileg a percentilek eltérő értékek.

Köszönöm, kipróbálom a képletet!

Előzmény: Fferi50 (35699)
Fferi50 Creative Commons License 2021.05.16 0 0 35699

Ha nincs egyforma súly, akkor a következő minta lehet a képlet:

Egyforma súlyok esetén trükközni kell, azt még vizsgálom.

Üdv.

Előzmény: Fferi50 (35698)
Fferi50 Creative Commons License 2021.05.16 0 0 35698

Szia!

A kérdés a következő:

Az egyes hetekhez tartozó súlyok között van-e egyforma?

Ez fontos a keresés miatt.

Üdv.

Előzmény: GeoffAd (35697)
GeoffAd Creative Commons License 2021.05.16 0 0 35697

Köszönöm, ezt értem. A feladat azonban az, hogy a "hét" és "súly" alapján a "percentilt kikeressük.... 

 

Előzmény: Fferi50 (35696)
Fferi50 Creative Commons License 2021.05.16 0 0 35696

Szia!

Nézd meg az INDEX függvényt és hozzá valószínűleg szükséges lesz a HOL.VAN függvény is.

Nagyjából így néz ki a képlet:

=INDEX(Táblázat;HOL.VAN(keresett hét;táblázat első oszlopa;0);HOL.VAN(keresett percentil;táblázat első sora;0))

Ehhez az szükséges, hogy a táblázat első oszlopa a heteket, első sora pedig a percentileket tartalmazza.

                    10       25      50   stb

      37

      38

     stb.

Az INDEX függvény a sor és oszlop metszéspontjában levő adatot adja vissza a fenti képlettel.

Üdv.

Előzmény: GeoffAd (35695)
GeoffAd Creative Commons License 2021.05.16 0 0 35695

Sziasztok! Nem vagyok túl jártas a kétdimenziós Excel táblázatkezelésben, ezért kérem a segítségeteket.

Adott egy táblázat, vízszintesen percentil értékek (10-25-50-75-90), függőlegesen terhességi hetek (37-38-39-40-41) - és minden hét/percentil érték metszéspontban az adott héthez és percentil értékhez tartozó súlyok.

Hogyan tudok olyan képletet írni, amelyik a terhességi hét (függőleges változó) és a súly (táblázat érték) alapján a vízszintes változót (percentil érték) visszaadja? Köszönöm, ha segítetek!

bandika33 Creative Commons License 2021.05.16 0 0 35694

Köszönöm szépen nagyon jó sokat segítettél

Előzmény: Garashan (35693)
Garashan Creative Commons License 2021.05.16 0 0 35693

Ha mindent jól értelmeztem, akkor a következő a képlet:

G2 cellában:
=HA(E2=F2;HA(ÉS(B2>2;D2>2);"PD";"MD");HA(B2<D2;HA(E2>F2+2;"P";HA(E2=F2+2;"PK";HA(E2>F2;"PX";"M")));HA(E2>F2;"M";HA(E2+2<F2;"P";HA(E2+2=F2;"PK";HA(E2<F2;"PX";"M"))))))

Előzmény: bandika33 (35692)
bandika33 Creative Commons License 2021.05.16 0 0 35692

még 1 segítség hátha te erre is tudod a megoldást.

A  35675 és a35677-es hozzászólásomban leirtam ,hogy kellene nekem egy képlet

de  arra nem érkezett semmi segítség ha te elolvasnád talán tudnál rá megoldást

köszönöm elöre is

 

Előzmény: bandika33 (35691)
bandika33 Creative Commons License 2021.05.16 0 0 35691

Köszönöm szépen ez igy tökéletes

Előzmény: Garashan (35690)
Garashan Creative Commons License 2021.05.14 0 0 35690

Ha pedig szerepel benne negatív szám is:

=HA(H4=MIN(H4;J4);"x";"y")&ABS(CSONK(MIN(H4;J4)/10^INT(LOG10(ABS(MIN(H4;J4))))))

Az Excel nem szereti alapértelmezetten a komplex számokat :)

Előzmény: Garashan (35689)
Garashan Creative Commons License 2021.05.14 0 0 35689

Üdv. Valahogy így:

=HA(H1=MIN(H1;J1);"x";"y")&CSONK(MIN(H1;J1)/10^INT(LOG10(MIN(H1;J1))))

Előzmény: bandika33 (35688)
bandika33 Creative Commons License 2021.05.14 0 0 35688

Szia Köszönöm a segítséget még egy olyant hogy ha én nem A és B oszlopba írom

például legyen H és j az eredménynek nem az oszlop betüjét akarom hanem mondjuk X és Y

akkor hogy nézne ki a fügvény    H=X       J=Y

példa

        H          J               Eredmény

       1,2         2,5               X1

       2,3         1,5               Y1

       2,2         2,8               X2

       2,6         2,1               Y2

ezekkel a helyettesítésekkel hogy nézne ki a fügvény? 

Előzmény: Garashan (35687)
Garashan Creative Commons License 2021.05.14 0 0 35687

Nem egészre megoldás:

=HELYETTE(CÍM(SOR();HOL.VAN(MIN(A1:B1);A1:B1;0);4);SOR();"")&CSONK(MIN(A1:B1)/10^INT(LOG10(MIN(A1:B1))))

Előzmény: bandika33 (35685)
Fferi50 Creative Commons License 2021.05.13 0 0 35686

Szia!
Akkor is jónak kell lennie az INT függvény miatt, mivel az egész számra kerekít.

A tizedes nálad miért pont?

Üdv.

Előzmény: bandika33 (35685)
bandika33 Creative Commons License 2021.05.13 0 0 35685

bocs jó a képlet de ha nem egész szám pl 1.8  akkor ir ki nullát mennyivel lenne bonyolultabb ha ezek nem egész számok lennének elnézést mégegyszer

Előzmény: Fferi50 (35683)
bandika33 Creative Commons License 2021.05.13 0 0 35684

beillesztettem a képleted eredménynél csak A0  és B0 van azt hogy melyik oszlopban az oké

Előzmény: Fferi50 (35683)
Fferi50 Creative Commons License 2021.05.13 0 0 35683

Szia!

Nem egyszerű a képlet, de megy:

=HELYETTE(CÍM(SOR();HOL.VAN(MIN(A1:B1);A1:B1;0);4);SOR();"")&INT(MIN(A1:B1)/10)

Üdv.

Előzmény: bandika33 (35682)
bandika33 Creative Commons License 2021.05.13 0 0 35682

Sziasztok!

Egy kis segítséget kérnék.

Van 2 oszlop mind kettőben számok olyan eredményt szeretnék egy fügvénnyel.hogy melyik

oszlopban van a kisebb szám de ezt irja ki egy eredmény oszlopba a C oszlop lesz az eredmény

amit én szeretnék

Pl:

       A oszlop         B oszlop           C oszlop

            13                25                    A1       (A oszlopban 1-essel kezdődő)

            22                27                    A2       (A oszlopban 2-essel kezdödő) 

            18                24                    A1       (A oszlopban 1-essel kezdődő)

            22                16                    B1       (B oszlopban 1-essel kezdődő)

            28                21                    B2       (B oszlopban 2-essel kezdődő)

tehát csak azt irja ki hogy melyik oszlopban milyen számmal kezdődő szám van.

Köszönöm ha tudtok segíteni.

Fferi50 Creative Commons License 2021.05.11 0 1 35681

Szia!
Azért nézd meg lsz. ezt a képletet is:

=HA(HAHIÁNYZIK(FKERES($C2;$A$1:$A$18;1;0);"")<>"";1;"")

Itt a C oszlopban vannak a folyamatos dátumok.

Üdv.

Előzmény: szonti (35678)
szonti Creative Commons License 2021.05.11 0 0 35680

Müködik! Köszönöm szépen!

Előzmény: Garashan (35679)
Garashan Creative Commons License 2021.05.11 0 0 35679

Szia!

Én így oldanám meg:

=HA(HAHIÁNYZIK(FKERES(E8;A:A;1;HAMIS);HAMIS)=E8;1;"")

F8 cellába illesztettem be a képletet.

Előzmény: szonti (35678)
szonti Creative Commons License 2021.05.11 0 0 35678

Sziasztok!

Nálam excelben járatosabbak segitségét szeretném kérni. Van egy 1 oszlopbol állo táblázqtom a1:a20 melyben dátumok szerepelnek. Egy gépkocsi használatát tartalmazza, h mely napokon mentek a gépjármüvel. Nem minden nap ment a kocsi ezért van amikor több napot is ugrik a felsorolásban a dátum. A feladat az lenne, hogy van egy másik táblázqt amiben viszont az összes nap fel van sorolva és ebbe kellene beilleszteni vh h amelyik napon mentek a kocsival oda "1"-t irjon.

Mivel több évröl van szo egyesével macera lenne megnézni mely napokon ment a kocsi és azt beirni a másik táblázatba. Keres függvénnyel probálkoztam, de miután talált egyezést a napokban utána a következö találatig ugyanazt az eredményt hozta folyamatosan.

Orbitálisan egyszerü a dolog és megbolondulok h nem tufom h kell...

Kérem valaki segitsen!

bandika33 Creative Commons License 2021.05.09 0 0 35677

Bocsánat rosszul irtam a végét

Egy olyan képlet kellene hogy:

A  oszlop hazai csapat oddsa

B oszlop  döntetlen oddsa

C oszlop a vendég csapat oddsa

D   E   oszlop a pontos végeredmény  (Két oszlopban Van a végeredmény 

F oszlop az én általam a fenti feltételekkel létrejött eredmény

 

Így már jó

Zs:) Creative Commons License 2021.05.09 0 0 35676

Nálam működik!

Szerintem nem kellene annyit váltogatni az oszlopokat (A,B vagy B,C)!

Előzmény: bandika33 (35667)
bandika33 Creative Commons License 2021.05.09 0 0 35675

Még egy segítséget szeretnék kérni.

Magamnak készítek egy foci kiértékelő programot,de sajnos nagyon

az alapoknál járok az excelben.

Minden mérkőzésen van esélyes és esélytelen csapat,ezekre a fogadó iroda oddsai

adják meg a választ

Pl:a magyar bajnokságból veszek példát

Puskas Academy - Honved   1.59   3.96   4.90            1:0

 

A mérkőzés után három szám szerepel ezek az oodsok

1.szám a hazai győzelem

2.szám a döntetlen

3.szám a vendég győzelem 

és utánna a meccs végeredménye mivel itt a hazai csapat nyert ezért itt papirforma született

Az oddsok alapján és az pontos végereményböl szeretnék egy másik eredményt kihozni

6 eredmény lenne

1. P   Papirforma amikor az esélyes csapat nyer több mint 2 golal pl: 3-0,4-1,6-3

2. PX Papirforma amikor az esélyes csapat csak 1 gollal nyer pl: 1-0.2-1.3-2

3. PK Papirforma amikor az esélyes csapat 2 gollal nyer pl: 2-0,3-1,4-2

4. PD Papirforma döntetlen amikor két hasonló esélyes csapat döntetlent játszik ezt is az odds

    alapján döntöm el amikor az esélyes csapat oddsa 2 fölött van

5. MD  meglepetés döntetlen amikor az esélyes csapat oddsa 2 alatt van

6. M  meglepetés amikor az esélytelenebb csapat nyer

Az oddsoknál,hogy mindig a hazai és vendég csapat oddsa dönti el hogy melyik az esélyesebb van olyan hogy a döntetlen 

oddsa kisebb vagy nagyobb a többi odssnál.

Amikor a mérkőzés döntetlenre végződik az alapján döntöm el hogy papirforma döntetlen vagy meglepetés döntetlen az 

eredmény hogy mennyi az esélyes csapat oddsa

Pl:

MOL Fehervar - Puskas Academy  1.71  3.98   4.01   1:1     meglepetés döntelen mert az esélyes csapat oddsa 2 alatt van

Kisvarda - Honved  2.12  3.36  3.16  0:0    ez papirforma döntetlen mert az esélyes csapat oddsa 2 felett van

ha az esélyes csapat játszik vendégként ott annyi hogy az odds választó 1.5 alatt vagy felett van

pl:

DVTK - Ferencvaros  6.09  4.0 1.4  2:2  ez meglepetés döntetlen mert az esélyes csapat oddsa 1.5 alatt van

Paks - MOL Fehervar  4.03  3.98  1.70  1:1  ez papirforma döntetlen mert az esélyes csapat oddsa 1.5 fölött van

tehát ha hazai csapat oddsa 2 alatt van vagy ha a vendég csapat oddsa 1.5 alatt van az meglepetés döntetlen

ha a hazai csapat oddsa 2 fölött van vagy a vendég csapat odda 1.5 fölött van az papirforma döntetlen

Egy olyan képlet kellene hogy:

A  oszlop hazai csapat oddsa

B oszlop  döntetlen oddsa

C oszlop a vendég csapat oddsa

D oszlop a pontos végeredmény 

E oszlop az én általam a fenti feltételekkel létrejött eredmény

reméllem érthetően irtam köszönöm ha tudtok segíteni

bandika33 Creative Commons License 2021.05.08 0 0 35674

Köszönöm Szépen NAGYON KIRÁLY vagy sokat segítettél

Előzmény: Fferi50 (35673)
Fferi50 Creative Commons License 2021.05.08 0 0 35673

Szia!

Nagy kár, hogy nem így kezdted a kérdésfeltevés során...

=HA(A1=0;HA(B1=0;0;"V");HA(B1=0;"H";"M"))

Ezt a képletet a C1 cellába kell beírnod, utána húzhatod lefelé a C oszlopon.

Ha nem az első sorban kezdődik az A oszlopban a beírás, akkor a C oszlopnál abban a sorban induljon a beírás, ahol az első érték van az A oszlopban, az 1-ek helyére pedig az induló sor számát kell írni. 

Üdv.

Előzmény: bandika33 (35672)
bandika33 Creative Commons License 2021.05.08 0 0 35672

Én nem irtam semilyen képletet csak magamtol beirtam,hogy

2020.09.12 Crystal Palace Southampton 1 0                 H   itt azért H mert csak a hazai csapat szerzett golt

2020.09.26 Burnley Southampton           0 1                V  itt azért V mert csak a Vendég csapat szerzett golt

2020.10.17 Chelsea Southampton           3 3                M  itt azért M mert mind két csapat szerzett gólt

2020.12.26 Fulham Southampton            0 0                0  itt azért nulla mert egyik csapat sem szerzett golt

leirnád úgy a képletet hogy a hazai csapat golja az A oszlop  

                                      a vendégcsapat golja   a B oszlop

                                            az eredmény meg a C oszlop

sajna én ehez nem értek azért is kértem segítséget

Előzmény: Fferi50 (35671)
Fferi50 Creative Commons License 2021.05.08 0 0 35671

Szia!

Mit jelent az, hogy hibát ír ki a képlet? Milyen hibát?

Azt hiszem félreértettem a kérdést, ezek szerint nem a győzelem a mérés tárgya, hanem a gólok elérése. :)

Ebben az esetben a képlet:

=HA(C1=0;HA(D1=0;0;"V");HA(D1=0;"H";"M"))

Ami megegyezik ZS:) legutóbbi képletével, oszlopra igazítva.

Megmutatnád, te milyen képletet használtál és melyik oszlopban milyen adat van?

Üdv.

Előzmény: bandika33 (35670)
bandika33 Creative Commons License 2021.05.08 0 0 35670

2020.09.12 Crystal Palace Southampton 1 0                 H

2020.09.26 Burnley Southampton           0 1                V

2020.10.17 Chelsea Southampton           3 3                M

2020.11.01 Aston Villa Southampton       3 0                H

2020.11.23 Wolves Southampton            1 1                M

2020.12.07 Brighton Southampton          1 2                M

2020.12.16 Arsenal Southampton            1 1                M

2020.12.26 Fulham Southampton            0 0                0

2021.01.16 Leicester Southampton          2 0                H

 

Leirtam milyen eredményt kellene kapni de azzal a képettel hibát ir ki

Előzmény: Fferi50 (35668)
bandika33 Creative Commons License 2021.05.08 0 0 35669

sajna valami nem jó áttirtam az oszlopszámokat de sajna úgy sem jó

Előzmény: Fferi50 (35668)
Fferi50 Creative Commons License 2021.05.08 0 0 35668

Szia!

Több feltételt is meg kell nézni. Próbáld az alábbi képletet:

=HA(B1=0;HA(C1=0;0;"V");HA(C1=0;"H";HA(B1>C1;"H";HA(B1<C1;"V";"M"))))

Üdv.

Előzmény: bandika33 (35667)
bandika33 Creative Commons License 2021.05.08 0 0 35667

Valami nem oké

Előzmény: Zs:) (35666)
Zs:) Creative Commons License 2021.05.08 0 0 35666

Megint elírtam :), úgyhogy akkor a második oszlopokkal:

=HA(B1=0;HA(C1=0;"0";"V");HA(C1=0;"H";"M"))

Előzmény: Zs:) (35665)
Zs:) Creative Commons License 2021.05.08 0 0 35665

B1 helyett akkor C1, A1 helyett pedig B1.

Majd lehúzod a képletet.

 

Előzmény: bandika33 (35663)
Zs:) Creative Commons License 2021.05.08 0 0 35664

=HA(A1=0;HA(B1=0;"0";"V");HA(B1=0;"V";"M"))

Előzmény: bandika33 (35662)
bandika33 Creative Commons License 2021.05.08 0 0 35663

2020.09.12 Crystal Palace Southampton 1 0

2020.09.26 Burnley Southampton          0 1

2020.10.17 Chelsea Southampton            3 3

2020.11.01 Aston Villa Southampton        3 0

2020.11.23 Wolves Southampton            1 1

2020.12.07 Brighton Southampton          1 2

2020.12.16 Arsenal Southampton           1 1

2020.12.26 Fulham Southampton           0 0

2021.01.16 Leicester Southampton         2 0

bemásoltam  itt az erednények 2 oszlopban vannak Pl. B és C

akkor mi a képlet?

Előzmény: Zs:) (35661)
bandika33 Creative Commons License 2021.05.08 0 0 35662

1-0,2-0,3-0   H  mert csak a hazai csapat rugott golt

0-1,0-3,0-5  V   mert csak a vendég csapat rugott gólt

1-1,3-1,2-2,4-4  M mert mind két csapat rugott gólt

0-0                    0 mert senki nem rugott gólt

Előzmény: Zs:) (35660)
Zs:) Creative Commons License 2021.05.08 0 0 35661

Bocsánat, "H" helyett "M"!

M: =HA(ÉS(A1>0;B1>0);"M";"")

Előzmény: Zs:) (35660)
Zs:) Creative Commons License 2021.05.08 0 0 35660

És mondjuk 3:1-nél is?

 

M: =HA(ÉS(A1>0;B1>0);"H";"")

Előzmény: bandika33 (35659)
bandika33 Creative Commons License 2021.05.08 0 0 35659

2-2 nél M: mindkét csapat 

Előzmény: Zs:) (35658)
Zs:) Creative Commons License 2021.05.08 0 0 35658

És 2-2 -nél pl HVM lesz a jelölés? Vagy a H az a haza csapat nyerte a mérkőzést?

A H-nál a jelenlegi leírásnál a képlet lehet =HA(A1>0;"H";"").

 

Előzmény: bandika33 (35657)
bandika33 Creative Commons License 2021.05.08 0 0 35657

Sziasztok!

Segítséget szeretnék kérni tőletek.

Foci meccsek eredményeit szertném táblázatba foglalni.

1.adott eredmények pl: 1-0,2-1,0-0,1-4,0-1,3-3 ezek oszlopban vannak beirva 

(két külön oszlop Pl: 1-0  A oszlop az 1-es B oszlop a 0)

erre szeretnék egy fügvényképletet kérni tőletek

H:Hazai csapat rugott golt    pl:1-0

V:Vendégcsapat rugott gólt   pl: 0-2

M:mindkét csapat rugott gólt   pl: 2-2

0: egyik csapat sem rugott gólt  pl:0-0

 

2. két oszlopban irtam,hogy az első félidőben mennyi gol születt és mennyi a másodikban

1:mikor csak az első félidőben volt gól    

2: amikor csak a második félidőben esett gól

M: amikor mind két félidőben volt gól

0: amikor nem esett gól a mérkőzésen

errre is kellene egy képlet

Gondolom mind kettőnél a HA fügvény kell 

Segítségeteket előre is köszönöm

bolygohollandi1 Creative Commons License 2021.05.07 0 0 35656

Az előzőhöz:

 

Előzmény: bolygohollandi1 (35655)
bolygohollandi1 Creative Commons License 2021.05.07 0 0 35655

Szia!

 

Köszönöm, hogy vetted a fáradságot és válaszoltál.

Most, hogy felnéztem ide, hátha válaszolt valaki épp sikerült megoldani a problémát

Közlöm a megoldást, hátha valakinek hasonló problémája akad:

 

 

Sub levelkuldes()

Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
              
    xStrBody = Cells(239, 5) & "<br><br><br>" & Cells(240, 5) & "<br><br><br>" & _
               "<a HREF=" & Cells(47, 7) & Cells(47, 18) & "> jelentés " & Date & "</a>" & _
               "<br> <br> <br>" & Cells(241, 5) & "<br>"
              
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.createitem(olMailItem)
    With xOtlMail
        .To = Cells(234, 5).Value
        .cc = Cells(235, 5).Value
        .BCC = Cells(236, 5).Value
        .Subject = Cells(238, 5).Value
        .HTMLBody = .HTMLBody & xStrBody
        .display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

 

Eredmény:

 

Előzmény: Garashan (35654)
Garashan Creative Commons License 2021.05.07 0 0 35654

Hasonló problémába ütköztem én is anno. Én Thunderbird levelező klienst vezérlek Excelből.
Olyasmi volt a problémám, hogy ha Excel munkalapról olvastam be a szöveget, vagy a makróba írtam bele, akkor bizonyos karaktert vezérlő karakternek vett és hibával leállt a levél küldés vagy be se töltötte rendesen a szöveget.

Ezt úgy oldottam meg, hogy a Thunderbird esetében meg lehet adni külső fájlt is levél törzsnek és azt a Thunderbird dolgozza fel és nem az Excel vagy a parancssori meghívás.
Így már csak az Excelből kellett elmenteni egy html kódokkal megformázott fájlt, amit nálam TXT kiterjesztésű, de ennek nincs is jelentősége.

Valószínűleg itt is valami hasonló megoldást kellene keresni.

Előzmény: bolygohollandi1 (35653)
bolygohollandi1 Creative Commons License 2021.05.07 0 0 35653

Hátha tud valaki segíteni. Az alábbi kódot a NEtről loptam. Azért loptam,mert szeretnék Excel-ből úgy Emailt küldeni, hogy a szövegben van egy hivatkozás, amire a levelet olvasó rákattintva valamit elérhet

Na most akárhány példát találok a neten, pont avval a "ref"-es sorral van baja a rendszernek. Naszóval ki tud segíteni, hogy tudnék a levél szövegébe hyperlinket tenni?

Előre is köszönöm, ha valaki tud valaki okosságot

 

Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
    xStrBody = "Hi there:" & "<br>" _
              & "Please click " & "<a href="/"http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
              & "Thank you."
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.CreateItem(olMailItem)
    With xOtlMail
        .To = "Email Address"
        .CC = "Email Address "
        .BCC = " Email Address "
        .Subject = "Subject line"
        .HTMLBody = .HTMLBody & xStrBody
        .Display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

Delila10 Creative Commons License 2021.05.07 0 0 35652

Nyilván jobb a rövid makró, de azért beteszem 2 feltétellel a tömbképletet.

Előzmény: Eredő Vektor (35651)
Eredő Vektor Creative Commons License 2021.05.07 0 0 35651

Szia,

Köszönöm. Sajnos, mint írtam a kritérium több az eredetiben (25-30 sor). Így már nem működik tömbképlettel. Hisz egy feltétellel csak egy szumha lenne, 4-5 feltételle egy szumhatöbb.

 

Csináltam egy rövid UDF-et hozzá, tömbváltozókba szedi ami kell és kiszámolja azt amit szeretnék.

 

Előzmény: Delila10 (35650)
Delila10 Creative Commons License 2021.05.07 0 0 35650

Tömbfüggvénnyel:

 

Előzmény: Eredő Vektor (35636)
Fferi50 Creative Commons License 2021.05.06 0 0 35649

Szia!

Az a baj, hogy a DSUM a kritériumot is tartománynak (Range) várja el, tömböt nem eszik meg :(.

Tehát a módosított kritériumokat vissza kell írni egy tartományba a DSUM számára. 

Üdv. 

Előzmény: Eredő Vektor (35647)
pimre Creative Commons License 2021.05.06 0 0 35648

Még egy utolsó kérdés, aztán nem próbálkozom többet.

Az udf-ben a következő paranccsal nem tudod becsempészni a megfelelő kifejezést: Activesheet.Range("V2")="=" & """=ap""" ?

 

Előzmény: Eredő Vektor (35647)
Eredő Vektor Creative Commons License 2021.05.06 0 0 35647

Dehogynem. De épp ez nem tetszik, hogy csak így működik. Anélkül pedig mindent kiértékel, ami "úgy" kezdődik.

Ez jó dolog - de most nekem nem így kellene. Hanem = jel nélkül kiértékeljen mindent, ami teljesen egyezik.

 

Azt látom, h beépített függvénnyel nem fog menni, szerintem lehetetlen még egy tömbképletgurunak is.

 

Csinálok egy egy udf-et... dsum-ot használva megadom neki egy tömbben, hogy ott legyenek az a fránya "=" jelek...

Nem tudom beépített fgvekkel... :(

Előzmény: pimre (35646)
pimre Creative Commons License 2021.05.06 0 0 35646

Nem működik nálad az ="=xxxxx" formátum? Nálam igen:

 

Előzmény: Eredő Vektor (35645)
Eredő Vektor Creative Commons License 2021.05.06 0 0 35645

Igen, ez így van...

Már csak azt nem tudom, hogy mivel lehetne megkerülni, hogy ne a kezdődő karaktereket hasonlítsa, hanem a teljes kifejezést. Mert nincs lehetőség odarakni a '=szöveghez az egyenlőségjelet és mást sem.  (Egyébként működik " '= " kifejezéssel is: Aposztróf=szöveg)

 

Amúgy jó dolog ez az ab.szum, kb ugyanaz az elv, mintha pivotot használnék - de itt szövegesen, operátorokkal bőven lehet definiálni a kritériumot.

Előzmény: Fferi50 (35643)
pimre Creative Commons License 2021.05.06 0 0 35644

Tényleg. Köszönöm.

 

Előzmény: Fferi50 (35643)
Fferi50 Creative Commons License 2021.05.06 0 0 35643

Szia!
"Itt már csak egy dolgot nem értek. Ha az ap az S2, vagy a V2 cellában van, akkor jó eredményt ad, ha a T2, vagy U2-ben, akkor nem."

A helyzet az, hogy a kritérium az adott fejlécre vonatkozik minden esetben. Mivel az T oszlopban n a fejléc, az u oszlopban pedig üres, ezért nem értelmezhető a függvény számára.

Üdv.

Előzmény: pimre (35642)
pimre Creative Commons License 2021.05.06 0 0 35642

Szerintem ez jó. Legalábbis nálam. Ha a V2-be simán ap-t írok, akkor az összes ap-vel kezdődőt összeszámolja, ezért ad 6-ot. Ha ="=ap"-t írok, akkor csak a teljes szót veszi figyelembe, és 1-et ad eredményül. Ha ="=apacs"-ot írok, akkor csak az apacsot találja, és 3-at ad eredményül. Az  "=a" vagy "=apa" stb. keresőszóra semmit nem talál, és 0-t ad. 

 

Egyébként a help szerint (ugyanarról beszélünk?: https://support.microsoft.com/hu-hu/office/ab-szum-f%c3%bcggv%c3%a9ny-53181285-0c4b-4f5a-aaa3-529a322be41b?ns=excel&version=90&syslcid=1038&uilcid=1038&appver=zxl900&helpid=xlmain11.chm60089&ui=hu-hu&rs=hu-hu&ad=hu) érdemes a fejléc után üres sorokat hagyni az esetleges további kritériumoknak. És akkor valahogy így nézne ki a táblázatod:

 

 

Itt már csak egy dolgot nem értek. Ha az ap az S2, vagy a V2 cellában van, akkor jó eredményt ad, ha a T2, vagy U2-ben, akkor nem.

 

 

Előzmény: Eredő Vektor (35636)
Eredő Vektor Creative Commons License 2021.05.05 0 0 35641

Sajnos nem pótolja az ab.szum-ot

Előzmény: Garashan (35640)
Garashan Creative Commons License 2021.05.05 0 0 35640

SZUMHATÖBB függvény nem megoldás?

Előzmény: Eredő Vektor (35639)
Eredő Vektor Creative Commons License 2021.05.05 0 0 35639

Esetleg ha valaki tud AB.SZUM-ot pótló tömbfgves megoldást, annak megköszönném. A szorzatösszeges trükköket ismerem, de azért NEM jó, mert a kritériumnál nem csak egyetlen sor van eredetileg, hanem 15-20.

 

Az adazbázisfüggványek pl (AB.SZUM) nem tömbösíthetőek sajnos.

 

Ha nincs ilyen, akkor kénytelen leszek egy függvényt készíteni vba-ban, ami az dsum()-ot használja és ellátja a kritériumot a szükséges "=" jelekkel :(

Előzmény: Eredő Vektor (35638)
Eredő Vektor Creative Commons License 2021.05.05 0 0 35638

Hát ez sajnos direkt így értékeli ki az adatokat. Ha van = jel, akkor "egyenlő", ha nincs, akkor "kezdődik"

Ez sokszor előnyös tud lenni, de nálam most hátrányos :(

 

Előzmény: Eredő Vektor (35637)
Eredő Vektor Creative Commons License 2021.05.05 0 0 35637

Azért sem helyes ez a működés, mert a kritériumnál a "pa*" definíciónak kéne az összes ilyen kezdetűt beszámítania - dokumentáció szerint is. Tehát akkor miért számolja "így"

Előzmény: Eredő Vektor (35636)
Eredő Vektor Creative Commons License 2021.05.05 0 0 35636

Sziasztok,

kipróbálnátok, hogy az AB.SZUM helyesen működik e nálatok?

 

Nálam (2019-es excel) az alábbira ezt mondja:

W1 = =AB.SZUM(S1:T10;"n";$V$1:V2)

 

Ha az "V2" = "ap" helyett '=ap van, akkor jól hozza. Egyébként minden ilyen kezdetűt beleszámol. A helpjében "=" jellel együtt mondja a kritérium megadást, de ennek akkor sem így kéne szrtem működnie. Tehát mennie kéne "=" jel nélkül is. Nekem legalábbis nem logikus. 

Nem is találok erre semmilyen  dokumentációt, hogy ennek így kéne működnie "=" jel nélkül. :(

 

dorogszu Creative Commons License 2021.05.01 0 0 35635

teljes mértékben nem. Az az érdekes, hogy jegyzettömböt megnyitva Ctrl v -t használva beillesztődik az adat. 

Amikor pedig menteni szeretném pl Total Commanderben akkor a filenév megadásakor a beillesztés helyén üres mező jelenik meg. Erre találtam ki a makrót s így automatizálható valamelyest, de köszönöm!!

Előzmény: pimre (35632)
Fferi50 Creative Commons License 2021.05.01 0 0 35634

Szia!

Ezt csak úgy lehet megoldani, hogy

 

1. SaveCopyAs azaz létrehozod az új munkafüzetet

2. visszanyitod az így mentett munkafüzetet - ekkor az lesz az aktív és nyitva marad a forrás is.

 

Üdv.

Előzmény: dorogszu (35631)
pimre Creative Commons License 2021.05.01 0 0 35633

Ott=off. Hülye okostelefon.

Előzmény: pimre (35632)
pimre Creative Commons License 2021.05.01 0 0 35632

Itt ugyan ott, de megkérdezem, hogy a masolassal kapcsolatos gondod (35624) megoldódott-e?

Előzmény: dorogszu (35631)
dorogszu Creative Commons License 2021.05.01 0 0 35631

Szuper! Működik köszönöm szépen.

Viszont mentés után a forrás munkafüzet marad aktív.

A mentett munkafüzetet szeretném aktívnak 

A háttérben pedig a forrás munkafüzet is nyitva maradjon.

 

Előzmény: Fferi50 (35630)
Fferi50 Creative Commons License 2021.05.01 0 0 35630

Szóval backslash (\)

 

:(

Előzmény: Fferi50 (35629)
Fferi50 Creative Commons License 2021.05.01 0 0 35629

Megette a blogmotor a blackslash-t (\)

Ez a sor a helyes:

fPath = .SelectedItems(1) & "\"

 

Előzmény: Fferi50 (35628)
Fferi50 Creative Commons License 2021.05.01 0 0 35628

Szia!

 

"ActiveWorkbook.SaveAs ActiveWorkbook.Path & Format(ActiveSheet.Range("K1").Value, "") & ".xlsm""

helyett:

Dim fPath As String
With Application.FileDialog(msoFileDialogFolderPicker) 'így lehet könyvtárat választani
.AllowMultiSelect = False
If .Show = True Then
fPath = .SelectedItems(1) & ""
Else
MsgBox "Nem választottál" :STOP ' Itt megáll és eldöntheted, hogy folytatod az If . Show-ra visszaugorva, vagy leállítod
End If
End With

ActiveWorkbook.SaveCopyAs fPath & Format(ActiveSheet.Range("K1").Value, "") & ".xlsm"

 

A SaveCopyAs menti a fájlt más néven, az eredeti fájl pedig változatlan marad.

 

Üdv.

Előzmény: dorogszu (35627)
dorogszu Creative Commons License 2021.05.01 0 0 35627

Sziasztok! 

 

A lenti makróban szeretném beállítani azt hogy a makró futtatása végén a K1 cella értéke alapján mentődjön le az új munkafüzet.

 

A mentés a Application.GetSaveAsFilename paranccsal történjen azaz a mentési mappát magam választhassam ki. 

 

Az eredeti file pedig maradjon nyitva a háttérben. A k1 cella alapján újonnan létrehozott munkafüzet pedig az előtérben legyen aktív.

 

Köszönöm!

 

Sub Import()
'
' Import Makró
'

'
Selection.Copy
Sheets("napiAJ_20pand ").Select
Range("C13").Select
Sheets("AJB Adatok").Select
Application.CutCopyMode = False
Selection.Copy
Range("C1").Select
Application.CutCopyMode = False
Range("C1").Select
Selection.Copy
Sheets("napiAJ_20pand ").Select
Range("C13").Select
ActiveSheet.Paste
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Font.Bold = True
Sheets("AJB Adatok").Select
Columns("D:D").Select
Selection.Replace What:=":", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("D1").Select
Selection.Copy
Sheets("napiAJ_20pand ").Select
Range("F13").Select
ActiveSheet.Paste
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Font.Bold = True
Sheets("AJB Adatok").Select
Range("P1").Select
Selection.Copy
Sheets("napiAJ_20pand ").Select
Range("C14:D14").Select
ActiveSheet.Paste
Selection.Font.Bold = True
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets("AJB Adatok").Select
Range("B1").Select
Selection.Copy
Sheets("napiAJ_20pand ").Select
Range("D16").Select
ActiveSheet.Paste
Selection.Font.Bold = True
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.Font.Underline = xlUnderlineStyleNone
Range("K1").Select
Selection.Copy
Application.CutCopyMode = False
ActiveWorkbook.SaveAs ActiveWorkbook.Path & Format(ActiveSheet.Range("K1").Value, "") & ".xlsm"
End Sub

James 42 Creative Commons License 2021.04.28 0 0 35626

Nálam is alapból az értéket illeszti be (Office 2010).

Előzmény: dorogszu (35624)
pimre Creative Commons License 2021.04.28 0 0 35625

Nálam ugyan nem. Persze, ha a szerkesztőlécről másolod ki, akkor igen. 

Előzmény: dorogszu (35624)
dorogszu Creative Commons License 2021.04.28 0 0 35624

Igen ez így működik! Azonban ha egy külső programba szeretném beilleszteni pl egy word dokumentumba akkor a képlet illesztődik be:(

Előzmény: pimre (35623)
pimre Creative Commons License 2021.04.27 0 0 35623

A cél cella felett egér jobb gomb, majd Beillesztés beállításai->értékek

 

Előzmény: dorogszu (35621)
James 42 Creative Commons License 2021.04.27 0 0 35622

Nem tudom pontosan, hogyan csinálja az Excel, de szerintem a lényeg az, hogy a beillesztésnél kell azt mondani, hogy Értékek beillesztése. Ezt általában a Ctrl-V után is ki lehet választani, az alábbi képen látható kis (Ctrl) feliratú jelre kattintva:

Előzmény: dorogszu (35621)
dorogszu Creative Commons License 2021.04.27 0 0 35621

Sziasztok! 

adatoka t

A1 cellába összefűz függvénnyel szövegeket számokat stb. fésülök egy helyre. Ebből a cellából a Ctrl c paranccsal próbáltam kimásolni az így összefűzött   adatokat. 

 

Beillesztéskor azonban a függvényt másolja ki nem pedig az összefésült adatokat. Hogyan tudom kimásolni vágólapra tenni az összefűzött adatokat?

Delila10 Creative Commons License 2021.04.23 0 0 35620

Nem a tartalom, hanem az animált diagram miatt teszem fel a linket.

https://telex.hu/belfold/2021/04/23/igy-nyomta-le-az-ellenzek-a-fideszt-facebookon

Tessitore22 Creative Commons License 2021.04.23 0 0 35619

Sziasztok, van valami módja, hogy a plot area-t pontos méretre állítsam be? Valamiért a Format-ba szürke a méret (nem tudom állítani). 

mofdgy Creative Commons License 2021.04.23 0 0 35618

Sziasztok!

 

Nekem van egy GID_leltar nevü excelem amiben gyűjtök számozott adatokat az N1 nevű cellám összegzi melyik sorszámokat használtam fel és hozzáadva egyet a következő felhasználható sorszámot írja ki nekem.

Szeretném egy másik táblában ezt a számot kitenni egy központi tévére amin mindenki látja, hogy mivel haladhatna tovább. Sima cellahivatkozásnál nem frissít, csak ha bezárom és újranyitom a a táblám. 

 

Van esetleg valami jól használható ötletetek, hogy ez a kijelzős tábla kov_gid nevre keresztelve huzza át azt amit szeretnék?  Sajnos nem egy gépen vannak a táblák, mert akkor szépen ment, de egy hálózati mappában vannak két külön gépen.

 

Köszi: Csabi

tekeoff Creative Commons License 2021.04.23 0 0 35617

@primre Köszönöm a választ!

tekeoff Creative Commons License 2021.04.23 0 0 35616

Köszönöm a választ!

Előzmény: Fferi50 (35613)
tekeoff Creative Commons License 2021.04.23 0 0 35615

Köszönöm a választ!

 

 

Előzmény: Delila10 (35614)
Delila10 Creative Commons License 2021.04.23 0 0 35614

1. Ráállsz a cellá(k)ra, majd Adatok, Szövegből oszlopok menüpont. A varázsló 2. ablakában az Egyéb mezőben add meg a határoló x-et, kész.

 

2. A pimre által által javasolt BAL függvény helyett sok adat esetén a villámkitöltést is alkalmazhatod. Vegyük, hogy az A1-ben van a hosszú adatod. B1-be simán beírod a (jelen esetben) 400-at, majd Kezdőlap, Szerkesztés, Kitöltés, Villámkitöltés. Eredményként az összes celládba beírja az első 3 karaktert, egy fia képlet nélkül.

 

 

 

Előzmény: tekeoff (35611)
Fferi50 Creative Commons License 2021.04.22 0 0 35613

Szia!

35x70x24 méretet az Adatok - szövegből oszlopok menüponttal tudsz egyszerűen és gyorsan szétszedni. Válaszd a tagolt fájltipust és utána pedig határolójelnek az egyéb-hez írd be az x -et.

 400V 3~ / 50Hz ÷ 60Hz képlete =BAL(A1;SZÖVEG.KERES("V";A1)-1)

Üdv.

Előzmény: tekeoff (35611)
pimre Creative Commons License 2021.04.22 0 0 35612

Tegyük fel, hogy A1-ben van a 35x70x24, vagy ennek bármilyen kombinációja 2, vagy 3 jegyű számokkal, pl. 350x70x240 stb.

 

Akkor a B1-be írt a következőt: =BAL($A1;SZÖVEG.KERES("x";$A1)-1)

C1-be ezt:  =BAL(KÖZÉP($A1;SZÖVEG.KERES("x";$A1)+1;HOSSZ($A1));SZÖVEG.KERES("x";KÖZÉP($A1;SZÖVEG.KERES("x";$A1)+1;HOSSZ($A1)))-1)

D1-be pedig ezt:  =KÖZÉP($A1;SZÖVEG.KERES("x";$A1;SZÖVEG.KERES("x";$A1)+1)+1;HOSSZ($A1))

 

És aztán ezt a 3 ószlopot töltsd ki lefelé, amíg A1-ben a különböző számhármasok vannak.

 

A másik kérdésedre, ha tényleg csak annyi a teendő, hogy "400V 3~ / 50Hz ÷ 60Hz feliratból kiszedni a 400-at külön cellába", akkor ha az is A1-ben van, akkor B1-be ezt írd: =BAL(A10;3)

 

Bár van egy gyanúm, hogy nem potsoan ezt akarod az utóbbi kifejezéssel.

 

Előzmény: tekeoff (35611)
tekeoff Creative Commons License 2021.04.22 0 0 35611

Szervusztok!

 

Tudnátok abban segíteni, hogyha egy cellában a 35x70x24 méret szerepel, ezt hogy lehet 3 különböző, egymás utáni cellára szedni? Az "x"-re nincs szükség. A méretszám lehet 1, 2 vagy 3 jegyű is.

Illetve a 400V 3~ / 50Hz ÷ 60Hz feliratból kiszedni a 400-at külön cellába. (400 helyett más 3 jegyű szám is lehet.

 

Köszönöm.

 

m54-b Creative Commons License 2021.04.22 0 0 35610

Sikerült a https://stackoverflow.com/questions/6245725/how-do-i-group-a-set-of-shapes-programmatically-in-excel-2007-vba alapján

 

Dim arr_txt() As Variant

Dim ws As Worksheet

Dim i as Long

 

set ws = ThisWorkbook.Sheets(1)

 

With ws

  ReDim arr_txt(1 To .Shapes.Count)

  For i = 1 To .Shapes.Count

    arr_txt(i) = i 'or .Shapes(i).Name

  Next

  .Shapes.Range(arr_txt).Group

End With

 

rész használatával megoldani.

Előzmény: m54-b (35608)
m54-b Creative Commons License 2021.04.21 0 0 35609

Vannak más ábrák is, ezért szeretném a névvel történő csoportosítást.

Előzmény: m54-b (35608)
m54-b Creative Commons License 2021.04.21 0 0 35608

2007-es Excel

 

Cella értéke alapján létrehozok téglalapokat MyShape.Name = "f" + Str(i) névvel. Miként tudom ezeket csoportba foglalni?

(Volt Google, annak alapján még nem sikerült...)

local75 Creative Commons License 2021.04.21 0 0 35607

Szia!

Az a helyzet hogy ezt a táblázatot vegyesen ipaden és pc-n is töltögetem.

iPaden viszont nem működik a rendezés, csak képlettel tudnám megoldani.

Előzmény: pimre (35606)
pimre Creative Commons License 2021.04.21 0 0 35606

A függvény helyett nem lenne megoldás, hogy kijelölöd a C2:D101 tartományt, és a Szerkesztés>rendezés gombbal rendezteted C oszlopra?

Előzmény: local75 (35603)
m54-b Creative Commons License 2021.04.21 0 0 35605

Wordbe átmásolva, majd onnan vissza "elfelejti". (2007-es Office.)

Előzmény: pimre (35604)
pimre Creative Commons License 2021.04.20 0 1 35604

Az aposztrof egy elég sajátságosan működő megoldás. Az őt követő tartalmat (legyen szám, vagy más) stringgé alakítja,viszont valahogy nem veszi figyelembe magát az aposztrofot, mint karaktert.

Ha az így átalakłtott stringet megnézed, az aposztrof nem lesz benne  a hosszában: =HOSSZ(A1) ugyanúgy 1-et ad, mintha az A1 ben 1 lenne, nem pedig '1. Ugyanez érvényes a többi függvényre. 

 

Szóval ezzel nem érdemes műveleteket végezni.

Előzmény: NeomatiK (35598)
local75 Creative Commons License 2021.04.20 0 0 35603

..és nem csak akkor.

Ha beírok valamit a C2:D101 tartományba (windowsban) már hibát jelez és a művelet visszavonása nem működik.

Előzmény: local75 (35601)
local75 Creative Commons License 2021.04.20 0 0 35602

Szerk.:

=SORBA.RENDEZ(C2:D101)

 

 

 

 

(miért nem lehet itt utólag hozzászólást szerkeszteni..?)

Előzmény: local75 (35601)
local75 Creative Commons License 2021.04.20 0 0 35601

Sziasztok!

Van ennek a függvénynek megfelelője?

=SORBA.RENDEZ(C2:C101)

 

Ez a függvény a 365-höz való, működik is ha ipaden megcsinálom. Viszont az a baja ennek a függvénynek hogy windowsban ha duplikálom a munkafüzetet, szétcseszi az eredeti táblámat is.

Windowsban a képen látható függvény jelenik meg, a fent említett helyett.

 

NeomatiK Creative Commons License 2021.04.20 0 0 35600

Na kicseleztem. Nem ' jelet tetem be, hanem mást az = jel elé. Még nem tudom, hogy jó lesz-e így, kézzel még így is bele kell nyúlni.

Na befejezem a monológot :)

Előzmény: NeomatiK (35599)
NeomatiK Creative Commons License 2021.04.20 0 0 35599

Vagy visszacsinálom CTRL-Z -vel, vagy mind a 200 cellába bemegyek manuálisan F2-vel és kitörlöm az aposztróf  ' jelet, hogy = jellel kezdődjön a beírás. Hát ez elég nagy hiányossága az Excelnek.

Előzmény: NeomatiK (35598)
NeomatiK Creative Commons License 2021.04.20 0 0 35598

Az előző problematikához...

 

gondoltam, hogy a kiejlölt cellákban a képletekben pl =A1*AA1 -ben kicserélem CTRL+F -fel a =-t '= -re. Ez sikerült is, lett belőle '=A1*AA1

 

Így átmásoltam a kívánt helyre, így megmarad a képletek eredeti hivatkozott cellája. Ezután vissaz akartam alakítani CTRL+R -fel a '=-t sima = jelre.

 

Keresett szöveghez: '=

Csere erre: =

 

Na erre azt írta, hogyaz MS Excel nem talált egyezést. :-//// Érdekes, előtte még tudta erre cserélni, de visszacseréléskor már nincs egyezés. Faxa.

NeomatiK Creative Commons License 2021.04.20 0 0 35597

Oké, köszi, ki fogom próbálni. Már nem reszelek rajta egyelőre.

Előzmény: pimre (35594)
NeomatiK Creative Commons License 2021.04.20 0 0 35596

Nem. Hanem a C oszlop üres. A C oszlop azon celláiba számérték másolunk, ahol a B oszlopban is számérték van. És képletet másolunk, ahol képlet van a B oszlopban, de ne "ugorjon" a képletben a cellahivatkozás, hanem maradjon az, ami a B oszlopban van, tehát B1-ben =A1 van, és C1-ben is =A1 -nek kellene lenni.

Előzmény: Delila10 (35595)
Delila10 Creative Commons License 2021.04.20 0 0 35595

Úgy értelmeztem a kérdésed, hogy a C oszlopban már vannak itt-ott számok, ahogy a képen látszik (C5; C7; C9). Az értékek beírása után akarod az üresen maradt cellákba beírni a hivatkozást.

Előzmény: NeomatiK (35593)
pimre Creative Commons License 2021.04.20 0 0 35594

Delila javaslatát megpróbáltam, de némi változtatással:

 

1. Kijelölöm a B oszlop összes érintett celláját (vagy akár a teljes oszlopot), és átmásolom C-be.

 

Ezzel ki is jelölődik a C oszlop, de ez most még mindegy is, mert a kovetkező Ctrl+G úgyis csak a C oszlop első összefűggő tartományával foglalkozik, tehát ha üres cella van benne, akkor az előtt megáll)

 

2. Ctrl+G->Irányított->Képletek->OK erre kijelölődikaz összefüggő tartomány összes képlete (csak a képletek!!!)

 

3. Ekkor javítom át a legelsőt =B1-ről =A1-re, majd Ctrl+Enter.

 

Előzmény: NeomatiK (35593)
NeomatiK Creative Commons License 2021.04.20 0 0 35593

Nem értem.

 

A1-A10 és B1-B10 cellák fel vannak töltve. C1-C10-ben meg minden üres. Mert ide akarok képletet vagy számértéket beírni ahogy a B oszlopban van, ahogy az inzertál képen van.

 

MIndegy. Köszi. Majd eltökölök másképp.

Előzmény: Delila10 (35592)
Delila10 Creative Commons License 2021.04.20 0 0 35592

"Itt IrányítottÜres cellák. Az első nem üres cella lesz aktív. Ha ez a C1, beírod: =A1, majd Ctrl+Enterrel egyszerre beviszed az összes kijelölt cellába a képletet. A C oszlopban a bevitt számok megmaradnak."

Ha az első üres cellád a C3, akkor a képlet =A3. Az üres cellák kijelölése marad, most jön a Ctrl+Enter.

Előzmény: NeomatiK (35590)
Garashan Creative Commons License 2021.04.20 0 0 35591

A notepadot csak azért írtam, mert ha be van kapcsolva a "képletek" gomb, akkor nem az értékét másolja a vágólapra, hanem magát a képletet.
Azt beillesztve a notepadba és onnan kimásolva (akár az egész oszlopot is), már nem az eltolt függvény fog beillesztődni, hanem az eredeti egy másik oszlopba.

Előzmény: NeomatiK (35588)
NeomatiK Creative Commons License 2021.04.20 0 0 35590

Köszönöm szépen.

 

De valamit itt még nyomni kell, vagy más cellára állni, mint ahogy én csináltam. Mert a CTRL+Enter -es nyomásnál nem történik semmi. CTRL+Enter -t melyik cellán állva kell nyomni? Előtte ki kell jelölni még valamit?

 

 

Előzmény: Delila10 (35589)
Delila10 Creative Commons License 2021.04.20 0 0 35589

Beviszed a B oszlopba a képleteket.

Kijelölöd a C1:C10 tartományt, Ctrl+G-re bejön az Ugrás menü. Itt Irányított, Üres cellák. Az első nem üres cella lesz aktív. Ha ez a C1, beírod: =A1, majd Ctrl+Enterrel egyszerre beviszed az összes kijelölt cellába a képletet. A C oszlopban a bevitt számok megmaradnak.

Előzmény: NeomatiK (35586)
NeomatiK Creative Commons License 2021.04.20 0 0 35588

Ehhez egyesével kéne ezt eljátszani.

 

Egyébként nem kell Notepad-et közbeiktatni. Ha belépek az adott cellába F2-vel például, és kijelölöm a képletet és CTRL+C-vel vágólapra teszem, majd az új cellában CTRL+V-vel beillesztem, akkor is marad az ereeti hivatkozás. De körülményes, hosszadalmas ez is.

 

Előzmény: Garashan (35587)
Garashan Creative Commons License 2021.04.20 0 0 35587

Hogy Excelen belül meg lehet-e oldani azt nem tudom. Ha a képletek szalagon bekapcsolod a képletek gombot és úgy másolod át pl. Notepad++-ba, majd illeszted vissza a C oszlopba, akkor marad minden az eredeti. Utána kikapcsolva a képletek gombot látszódik minden "rendesen".

Előzmény: NeomatiK (35586)
NeomatiK Creative Commons License 2021.04.20 0 0 35586

Sziasztok!

 

A1-A10 cellákban van 10 cella egymás alatt  számértékekkel.

 

B1-B10 cellákban van 10 cella egymás alatt képletekkel.

 

Egy másik oszlopba, legyen "C" szeretném átmásolni a képleteket. Irányított beillesztéssel is úgy másolta be, hogy a képletben lévő hivatkozott cellát is annyival jobbra "tolta".

Azaz pl.:

 

B1-ben: =A1

és

C1-be másolás után kapott képlet: =B1

De nekem a C1-be is =A1 kell.

 

És ha nem muszáj, nem szeretnék $ jelleket beírkálni a képletbe.

 

Van erre valami egyszerű megoldás?

 

 

-----

 

Még annyit bonyolódik a helyzet igazából, hogy B1-B10 nem mindegyikben van képlet, hanem kb a fele számérték.

Tehát úgy kéne C1-C10 oszlopba másolni, hogy amely cellákban képletek vannak B1-B10-ben, ott C1-C10-ben is képlet legyen, a fent leírt nem "jobbra eltolt" hivatkozással és ahol számérték van B1-B10-ben, pl B5, B7, B9-ben, onnan C5, C7, C9-be ezt a számértéket másolja be.

 

Példa

 

Delila10 Creative Commons License 2021.04.19 0 0 35585

Bocsi, nem keresem meg a kiinduló kérdést.

A makró elején egy változóban (vagy konstansban) le kellene tárolni a kérdéses füzet nevét, majd az említett mentés után ezt kellene aktiválni.

Előzmény: Fferi50 (35581)
local75 Creative Commons License 2021.04.15 0 0 35584

Az lehet. :)

Köszönöm hogy segítettél.

Előzmény: Fferi50 (35583)
Fferi50 Creative Commons License 2021.04.15 0 0 35583

Szia!

Sajnálom, nem tudom előidézni a jelenséget nálam, azzal a tálcabeállítással sem, ami nálad van.

Nálam a mentett munkafüzet marad az aktív, azt látom. 

Valami rossz szellem járhat feléd...  :(

Üdv.

Előzmény: local75 (35582)
local75 Creative Commons License 2021.04.15 0 0 35582

Jó reggelt!

 

Ugyan.. köszönöm hogy foglalkoztok a problémámmal, ami egyébiránt most már elhanyagolható.

A lefutás után egy kis ablakban megjeleníti a nevét a mentett munkalapnak. amit le kell okézni.

 

Tálca (jobb klikk)  >> Tulajdonságok >> Tálcagombok >> Soha nincs összevonás

 

Én így szoktam beállítani mert akkor látom hogy mi van nyitva és azonnal oda tudok kattintani, ha éppen nem billentyűkombinációt használok.

 

 

Előzmény: Fferi50 (35581)
Fferi50 Creative Commons License 2021.04.15 0 0 35581

Szia!

Ha beírod az Activate sor helyére a végén, hogy

Msgbox ActiveWorkbook.Name

akkor milyen üzenetet kapsz és mit látsz a makró lefutása után?

Bocs, hogy csak találgatunk, de nálam is 2016-os van és nem csinál ilyeneket.

Milyen beállításaid vannak, hogy külön jelenik meg a lenti soron az Excel két munkafüzetének ikonja?

Üdv.

Előzmény: local75 (35580)
local75 Creative Commons License 2021.04.14 0 0 35580

Mint írtam 2016-os, az utolsó sor nélkül is próbáltam.

Kompatibillis üzemmód van a zárójelben. Ezt nem mindig írja ki, vagy mire odanézek már eltűnik.

Előzmény: Fferi50 (35579)
Fferi50 Creative Commons License 2021.04.14 0 0 35579

Szia!

A Szabó Konyha ikonján a tálcán látok valami [ szögletes zárójeles szöveget, ami nem olvasható rendesen.

Az mi lehet?

Már kérdeztem, hogy milyen Excel verziót használsz, 2019-es?

A makrót próbáltad már úgy, hogy az utolsó Activate-es sort elhagyod belőle?

Üdv.

Előzmény: local75 (35575)
pimre Creative Commons License 2021.04.14 0 0 35578

Kösz, akkor ez a nyom is kizárva. Marad a rejtély.

Előzmény: local75 (35577)
local75 Creative Commons License 2021.04.14 0 0 35577

Igen, abban van egyedül makró.

 

Előzmény: pimre (35576)
pimre Creative Commons License 2021.04.14 0 0 35576

Bocs, hogy belekérdezek, de valami feltűnt: következetesen úgy fogalmazol, hogy

"a makrót egy harmadik munkafüzetből indítom el", vagy

"1. "Lista" Munkafüzet (Ebből indítom a makrót..."

 

Emiatt felmerül bennem a kérdés: A makró a "Lista" munkafüzetben van, vagy csak onnan indítod el? Ha az utóbbi a helyzet, akkor hogyan?

 

 

Előzmény: local75 (35565)
local75 Creative Commons License 2021.04.14 0 0 35575

Előzmény: Fferi50 (35573)
local75 Creative Commons License 2021.04.14 0 0 35574

A kinézetét ne nézd, nem az én művem. :)

 

 

 

Előzmény: Fferi50 (35573)
Fferi50 Creative Commons License 2021.04.14 0 0 35573

Nem, hanem a képernyődről, hogyan helyezkednek el pl. az Excelek.

Előzmény: local75 (35572)
local75 Creative Commons License 2021.04.14 0 0 35572

2016-os

 

"Mutatnál egy képet a makró lefutása utánról?"

 

A táblázatról? Igazából az ég világon semmit nem látsz rajta csak hogy U1 (mert közben módosítottam) cellába beírja hogy mondjuk Szabó_Konyha.

Előzmény: Fferi50 (35571)
Fferi50 Creative Commons License 2021.04.14 0 0 35571

Szia!

Bocsánat, az F8 a léptető billentyű (csak én egeret használok, ezért kevertem meg).

Milyen Excel verziód van?

Mutatnál egy képet a makró lefutása utánról? (Az adatokat természetesen töröld ki a képről.)

Üdv.

Előzmény: local75 (35570)
local75 Creative Commons License 2021.04.14 0 0 35570

Látom ahogy beírja, igen. Egyébként egyszeri F5 megnyomásra lefut.

 

Mentés másként után azt látom hogy minden feladatot elvégzett a makró, (kimásolja a fájlnevet a cellából, beilleszti adott cellába, és elmenti ezen a néven).

Majd nyitva hagy két munkafüzetet és a "Lista" munkafüzetet hagyja elöl, amelyből a makrót indítottam.

 

Előzmény: Fferi50 (35569)
Fferi50 Creative Commons License 2021.04.14 0 0 35569

Szia!

Ha a mentés makrót lépésenként hajtod végre, akkor látod a Megrendelő sablon nevű munkafüzetet és a benne levő U2 cella változását?

Mentés másként után mit látsz?

Makró lépésenkénti végrehajtása: Fejlesztőeszközök - Makrók - lépésenként. Utána F5 egy-egy lépéssel tovább lép a makróban.

Üdv.

 

Előzmény: local75 (35568)
local75 Creative Commons License 2021.04.14 0 0 35568

Köszi a segítséget.

 

"A mentés másként után nem zárul be ez a munkafüzet, hanem a más néven aktív marad!"

Bocsánat, fogalomzavarban voltam.

 

"Viszont a más néven mentett munkafüzeted - az U2 cella nevű - aktív marad, azt nem kell ismételten aktíválni."

Igen, csak én azt neveztem aktívnak amely munkafüzet előttem előttem nyitva áll, ez a "Lista" nevű, a más néven mentett az a tálcán marad.

 

Az Immediate ablakban látom a mentett  munkafüzet nevét a kiterjesztéssel, csak a rá hivatkozás nem sikerült.

Végül is egy Alt+Tab -al rögtön tudok váltani a nyitva maradt két munkafüzet között, úgyhogy így is maradhat.

Előzmény: Fferi50 (35566)
Fferi50 Creative Commons License 2021.04.14 0 0 35567

Más még:

Ahhoz, hogy a következő megrendelő részére is készíts munkafüzetet, ismételtem meg kell nyitnod a Megrendelő Sablon munkafüzetet.

Üdv.

Előzmény: Fferi50 (35566)
Fferi50 Creative Commons License 2021.04.14 0 0 35566

Szia!

"2. "Megrendelő Sablon" Munkafüzet      (Ezt mentem másként, ez bezárul a makró lefuttatása után.)"

A mentés másként után nem zárul be ez a munkafüzet, hanem a más néven aktív marad! (Ezt írtam korábban is.) Attól, hogy te nem látod a nevét, nem a bezárás miatt nem látod, hanem amiatt, mert más néven mentetted.

Viszont a más néven mentett munkafüzeted - az U2 cella nevű - aktív marad, azt nem kell ismételten aktíválni.

Windows(xx munkafüzet) helyett használd a Workbooks(munkafüzet neve) megoldást  (tudom, a makrórögzítő az előzőt dobja), mert a munkafüzet műveletekhez az lesz egyértelmű. 

Egy munkafüzet nevét megkapod az Immediate ablakban a Debug.Print (helyette egy ? is elég) ActiveWorkbook.Name utána Enter beírásával.

A névben nem feltétlenül szerepel a kiterjesztés, erre légy szíves figyelj oda.

Üdv.

 

Előzmény: local75 (35565)
local75 Creative Commons License 2021.04.14 0 0 35565

Szia!

 

Így néz ki a makróm:

 

Sub MENTÉS()
'
'MENTÉS Makró
'
Range("U2").Copy
    Windows("megrendelő sablon.xls").Activate
    Range("U2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    ActiveWorkbook.SaveAs Filename:= _
"C:" & Range("U2").Value _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Windows(Range("U2").Value & ".xls").Activate

 

End Sub

 

Amit nem látsz a makrón de az utolsó hozzászólásban említettem hogy ezt a makrót egy harmadik munkafüzetből indítom el.

 

Tehát:

1. "Lista" Munkafüzet      (Ebből indítom a makrót, ez kezdettől fogva aktív és a futtatás után is ez marad aktív)

2. "Megrendelő Sablon" Munkafüzet      (Ezt mentem másként, ez bezárul a makró lefuttatása után.)

3. "U2 cella" Munkafüzet    (Új néven elmentett munkafüzet. Ezt szeretném ha aktív maradna a makró lefuttatása után.)

 

 

Elnézést ha valamit nem jól írtam.

 

Előzmény: Fferi50 (35562)
pimre Creative Commons License 2021.04.14 0 0 35564

Azt miből állapítod meg, hogy melyik munkafüzet aktív?

Szúrd be az End Sub előtti sorba a következőt: debug.print activeworkbook.name

majd a futás után nézd meg, hogy mit írt ki az Immediate ablakban. 

Előzmény: Garashan (35560)
Fferi50 Creative Commons License 2021.04.14 0 0 35563

Egyébként ha ezt a "Megrendelő sablon" munkafüzetet más néven elmented, akkor bizony "bezárul" az eredeti nevű munkafüzeted, hiszen már nem az a neve, hanem az új néven találod meg.

Előzmény: Fferi50 (35562)
Fferi50 Creative Commons License 2021.04.14 0 0 35562

Szia!

Ha egy munkafüzetet új néven elmentesz, akkor az lesz az aktív munkafüzet, nem kell ismételten aktívvá tenni.

Ha ezt a munkafüzetet bezárod, akkor a megnyitás előtti munkafüzet lesz aktív.

Szerintem jó lenne, ha egyben látnánk az egész makródat, mert így töredékesen az összefüggések nem feltétlenül derülnek ki.

Pl. miért zárja be a "Megrendelő sablon" munkafüzetet.

Üdv.

 

Előzmény: local75 (35561)
local75 Creative Commons License 2021.04.14 0 0 35561

Sem a windows, sem a workbooks paranccsal nem aktív a létrehozott munkafüzet.

 

Én egy harmadik, eddig meg nem nevezett munkafüzetből indítom a makrót, nekem az marad aktív. A "Megrendelő sablon" munkafüzetet bezárja, az újonnan létrehozott munkafüzet nyitva áll de továbbra sem aktív.

Előzmény: Garashan (35560)
Garashan Creative Commons License 2021.04.14 0 0 35560

Szerintem így:

 

Workbooks(Range("U2").Value & ".xls").Activate

 

A2 cellába beírtam az eredeti dokumentum nevét, mert nekem a teszt.xlsx maradt aktív, csak már teszt4.xls néven. Nálam az A1-ben teszt4.xls volt az új fájl neve.

Előzmény: local75 (35559)
local75 Creative Commons License 2021.04.14 0 0 35559

Szuper! Köszönöm szépen. Őszintén megvallva már a végén elveszett a türelmem és kitörölhettem azt is amit nem kellett volna.

A fájlelérési úttal kicsit meggyűlt a bajom, de most már minden működik ahogy kell.

 

Még azt nem tudtam megadni neki hogy a létrehozott dokumentumban maradjon. Nyitva van, csak az az ablakom aktív amiből a makrót indítottam.

Hogyan lehet arra a munkafüzetre hivatkozni?

Előzmény: Garashan (35557)
Garashan Creative Commons License 2021.04.14 0 0 35558

Sőt, ha kihagyod a fájl névből az xls részt, az talán jobb is.

A formátumot a FileFormat rész definiálja. Csak próbából kipróbáltam, hogy mi van, ha xlsx-et írok be a fájl névhez és engedte úgy is elmenteni. De azt már nem tudtam megnyitni, mert hibás volt a fájl formátum, mert a belső szerkezet továbbra is xls szerinti maradt.

 

Én nem tudok alapjáraton a C gyökérkönyvtárába menteni, ezért tettem a mentést a temp könyvtárba. Ha a C-be próbálok menteni, akkor akkor visszabeszél, hogy rendszergazdai jogosultság kell a programnak.

Előzmény: Garashan (35557)
Garashan Creative Commons License 2021.04.14 0 0 35557

Szia!

Valahogy így:

 

Sub teszt()
ActiveWorkbook.SaveAs Filename:= _
"C: visszaper temp visszaper" & Range("U2").Value & ".xls" _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

 

Nálad több sebből is vérzik: U2 értékét kitörlöd. Utána az ActiveWorkbook.SaveAS Filename:= után nincs " _" ez a karakter sorozat (macskakörmök nélkül).
Majd a következő sorban sima per jelek vannak (bár ez lehet, hogy csak a fórum miatt tetted be), de oda visszaper kell. és a Range("U2").Value után kell >> & ".xls" _  << a csibecsőrök közötti rész.

Előzmény: local75 (35556)
local75 Creative Commons License 2021.04.14 0 0 35556

Szia!

Kikészít :)

Először átírtam akkor látszólag sikerült csak a windows rendszerbiztonság kért belépési adatokat a docs.live.net-be... Lövésem sincs mi ez..

Aztán próbálgattam mindent de mostanra elfáradtam.

 

Lecsupaszítottam mindent, áthelyeztem egy másik cellába a fájl nevét, megadtam neki egy egyszerű elérési utat hogy a onedrive se ugasson (ha működik a makró majd átírom) most így néz ki a makró:

 

Range("U2").Value = ""
        Windows("megrendelő sablon.xls").Activate
    ActiveWorkbook.SaveAs Filename:=

        "C:/" & Range("U2").Value.xls _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

 

Gondolom mindent rosszul csináltam.

Hogy nézne ki egy ilyen makró alap esetben? Az interneten egy sokkal bonyolultabb leírást találtam, nem is igazán értem.

Előzmény: Fferi50 (35555)
Fferi50 Creative Commons License 2021.04.14 0 0 35555

Szia!

   "https://d.docs.live.net/758e182828202717/XY Kft/Megrendelések/Szabó_Konyha.xls"

helyett

   "https://d.docs.live.net/758e182828202717/XY Kft/Megrendelések/" & Range("AA9").Value

Más:

Nem szükséges, hogy az adott cellát Select utasítással kijelöld, direktben lehet címezni:

Range("AA9").Value="Szabó_Konyha"

az első két sorod helyett.

Ebben az esetben nem változik az eredeti kijelölésed helye!

Üdv.

Előzmény: local75 (35553)
Psycho10 Creative Commons License 2021.04.14 0 0 35554

Üdv!

Nagyon szépen köszönöm!

Mivel az eredeti kérdőív igen hosszú, és egy-egy ilyen faktorhoz elég sok kérdés tartozik,

reméltem, hogy elkerülhető a 40 méter hosszú képlet, tele összeadásokkal :D

Ettől függetlenül sikerült, úgy tűnik, működik! :)

Elképesztően hálás vagyok a segítségért, mivel egy óra guglizás sem hozott eredményt.

Köszönöm még egyszer!

Szép napot!

Előzmény: Fferi50 (35552)
local75 Creative Commons License 2021.04.14 0 0 35553

Random mindent átformázott, ahol adatok voltak azt is.

Beszúrtam egy üres sort fölé hogy ne vegye át a formázást a fejlécből. Ami egyébként ugyanolyan formátumú csak a szöveg máshová zár, így aztán nem tudom honnan vette a félkövér betűt, felette mellette sehol sincs ilyen.

De így már jó lesz.

 

Más:

 

Egy mentés másként nem akar összejönni.

Makrórögzítéssel csináltam. Működne is csak a fájl elnevezés miatt mégsem. Definiálnom kellene az AA9-es cellában lévő mindig változó fájlnevet.

 

Range("AA9").Select
    ActiveCell.FormulaR1C1 = "Szabó_Konyha"
    Range("B10:B11").Select
    Windows("megrendelő sablon.xls").Activate
    ActiveWorkbook.SaveAs Filename:= _
        "https://d.docs.live.net/758e182828202717/XY Kft/Megrendelések/Szabó_Konyha.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Windows("Alkatrész jegyzék 3.2.1.xlsm").Activate
 
End Sub

 

 

Előzmény: Fferi50 (35550)
Fferi50 Creative Commons License 2021.04.14 0 1 35552

Szia!

Ez lehet például a megoldás:

=HA($A2=1;0;1)+HA($C2=1;0;1)

vagy

=SZUM(HA($A2=1;0;1);HA($C2=1;0;1))

A képlet húzható lefelé.

Erre a mintára a többit is meg tudod csinálni szerintem.

Üdv.

Előzmény: Psycho10 (35551)
Psycho10 Creative Commons License 2021.04.14 0 0 35551

Sziasztok!

 

A következő problémám volna. Office 2007-et használok.

Az alaphelyzet: Kérdőív eredményeit szeretném kiértékelni. Soronként vannak az egyes személyek eredményei, az oszlopok pedig az egyes kérdésekre adott válaszokat kódolják.

Ha "igen"-nel válaszolt az illető akkor 1 az érték, ha "nem" a válasz, akkor 0. Idáig oké.

Új oszlopokat szeretnék létrehozni a kiértékelés miatt. Vannak faktorok fordított itemekkel, ami annyit jelent, hogy akkor növekszik az illető pontszáma

az adott faktorban, ha "nem"-el válaszolt, vagyis 0 az érték.

 

Lényegében az adott sor egyes celláiban a 0-k számát szeretném megszámolni, de nem egymás mellett lévő oszlopokban.

DARABTELI függvénnyel próbálkoztam. Nagyon jól működne, ha ezek a kérdések (vagyis az oszlopok) egymás mellett lennének, mert akkor a tartomány argumentumnál

ki tudnám jelölni azt a tartományt, ami kell. Viszont össze vissza vannak a megszámolandó cellák. Ha több cellát akarok kijelölni (felsorolni őket), akkor hibát ír ki az excel.

Ilyenkor mi a teendő? Hogyan tudok különböző cellákra hivatkozni? Bocsi, kezdő exceles vagyok...

 

Csatoltam egy leegyszerűsített példát, ami szemlélteti a problémámat.

 

Tegyük fel, a G oszlop a kiszámolandó faktor (Faktor1). Ennek pontszáma a Kérdés1 és Kérdés3 (fordított) itemekből tevődik össze. Annyi pontja lesz az illetőnek Faktor1-ben, ahányszor "nem"-el válaszolt

Kérdés1 és Kérdés3 kérdéseknél, vagyis össze kellene adni, hány darab 0 van.

Faktor1 értékeit kézzel írtam be, hogy szemléltesse, minek kellene kijönnie.

A kérdés tehát az, milyen képletet kellene beírnom Faktor1-hez, hogy működjön a dolog?

 

Előre is köszi a válaszokat!

 

Fferi50 Creative Commons License 2021.04.14 0 0 35550

Szia!

Ez a beszúró makró a formátumot alapvetően a fölötte levő sorból veszi.

Mondjuk azt nem értem, ha üres sort szúrsz be, akkor miből látod a formátumot?

Üdv.

Előzmény: local75 (35548)
Delila10 Creative Commons License 2021.04.13 0 0 35549

A makróban nincs formátumra utaló utasítás. Az a tábládban lehet. :)

Előzmény: local75 (35548)
local75 Creative Commons License 2021.04.13 0 0 35548

Köszönöm szépen. Szuperül működik. :)

Annyi csak hogy random formázza a cellastílusokat, félkövérre és van amit balra rendez, máskor meg nem, vagy nem abban a sorban.
Pedig a környező cellákat is már ugyanolyan stílusra formáztam, mégis. Valószínű hogy nem értéket illeszt be.

 

De semmi gond, ez csak egy gyűjtő tábla, a kinézete nem érdekes, ebből úgyis csak értéket viszek tovább.

Előzmény: Delila10 (35547)
Delila10 Creative Commons License 2021.04.13 0 0 35547

A másik kérdésedhez egy makró.

 

Sub Sorbeszuras()
   Dim sor As Integer

   For sor = 229 To 4 Step -1
       If Cells(sor, 2) <> Cells(sor - 1, 2) Then  Range("B" & sor & ":N" & sor).Insert Shift:=xlDown
   Next
End Sub

Előzmény: local75 (35535)
local75 Creative Commons License 2021.04.13 0 0 35546

OFF

onedrive...

 Igen észre szoktam venni hogy elmentek valamit mondjuk a megrendelések mappába és keresem hogy hol van. Ilyenkor a frissítés sem segít csak ha mondjuk létrehozok valamit a mappában.

Előzmény: Fferi50 (35542)
local75 Creative Commons License 2021.04.13 0 0 35545

Jajj, ne haragudj!

Ott alakult ki a hiba hogy én ugye képileg látom az oszlopok sorrendjét de az összefűz képletben nem úgy vannak sorrendben.

 

Így az S és T cellákban van az adat minden esetben a P és a Q-ban nem.

Na majd ha hazaértem helyrehozom a hibám, ne vesződj vele. :)

Előzmény: Fferi50 (35543)
Fferi50 Creative Commons License 2021.04.13 0 1 35544

Szia!

Ebben az esetben a Q4 és T4 cella értéke minden esetben bekerül az R4 cellába. Ez így szerintem nem felel meg a feltett kérdésnek.

Üdv.

Előzmény: Garashan (35539)
Fferi50 Creative Commons License 2021.04.13 0 0 35543

Szia!

Már bocsáss meg, de az S4 cellában van adat, az nem üres!!!

Üdv.

Előzmény: local75 (35541)
Fferi50 Creative Commons License 2021.04.13 0 0 35542

Szia!

"Lehet nem jól fogalmaztam mert nem működik."

Ez vajon mit jelent? Hiba a képlet eredménye? Nem fűzi össze az értékeket?

 

Az Onedrive elérése "izgalmas"

Üdv.

Előzmény: local75 (35538)
local75 Creative Commons License 2021.04.13 0 0 35541

Igen, most vettem észre hogy a per jeleket kivette a fórum.

Így összejött azonban: https://d.docs.live.net/758e182828202717/XY%20kFT/Megrendelések/

 

A onedrive kavarhat be. Excelből megnyitva rögzítettem a megnyitást és így már sikerült, de csak ezzel az elérési úttal.

 

A képlet így sem jó sajnos. R4-ben így is vannak adatok.

 

 

 

Ezen a fórumon nem lehet hozzászólást szerkeszteni?

Előzmény: Garashan (35539)
Garashan Creative Commons License 2021.04.13 0 0 35540

Vagyis nem biztos, hogy hiányoznak csak az index fórum nem jeleníti meg. :)

Előzmény: Garashan (35539)
Garashan Creative Commons License 2021.04.13 0 0 35539

Szia!

A képleted: =HA(P4="";"";P4)&HA(S4="";"";S4)&Q4&T4

 

Az elérési útvonal biztosan nem jó. Hiányoznak a jelek a mappák nevei közül.

Előzmény: local75 (35538)
local75 Creative Commons License 2021.04.13 0 0 35538

Szia!

Lehet nem jól fogalmaztam mert nem működik.

A Q4-ben és a T4-ben fix adatok vannak. Ezeket írja be R4-be. (és összefűzi P4-el és S4-el)

Azt szeretném hogy ha P4-ben és S4-ben nincs semmi akkor az R4 üres maradjon.

 

 

Más:

A fájlnyitás miért nem működik ezzel a makróval?

 

Dim fajl As String
    fajl = ("C:UsersTeszt ElemérOneDriveXY KftMegrendelések1. MGM megrendelő sablon.xlxs")
    
    Workbooks.Open Filename:=fajl

 

Elvileg az elérési útvonal jó.

Előzmény: Fferi50 (35537)
Fferi50 Creative Commons License 2021.04.13 0 0 35537

Szia!

1.A képlet:

=HA(ÉS(P4="";S4="");"";P4 & S4 & Q4 & T4)  (Az & az Összefűz függvény helyett használható.)

Üdv.

Előzmény: local75 (35535)
local75 Creative Commons License 2021.04.13 0 0 35536

Bocsánat, inkább két sort szeretnék beilleszteni a táblázat jobb átláthatósága érdekében.

Előzmény: local75 (35535)
local75 Creative Commons License 2021.04.13 0 0 35535

Volna még kérdésem:

 

Az adott képletet hogyan kellene átalakítanom,

ha azt akarom hogy; ha P4 és S4 cellában nincs érték, akkor ebben a cellában (R4) ne jelenjen meg semmi?

 

=ÖSSZEFŰZ(P4;S4;Q4;T4)

Másik kérdés:

 

B4:N229 tartományban lévő táblázatban a B oszlopban meg kellene keresnem az azonos szövegeket és az utolsó után be kellene illesztenem egy üres sort, de nem egész sort.

Azt szeretném hogy a tartományon kívüli oszlopokat ne érintse, ezért a sima sorbeszúrás nem működik.

Makróval kellene megkeresni az azonosakat/eltérőket és lejjebb kellene vinni az adatokat, de ehhez én kevés vagyok.

 

 

 

 

local75 Creative Commons License 2021.04.13 0 0 35534

Basszus, én azt hittem az az input. :)

Köszi neked is.

Előzmény: Fferi50 (35533)
Fferi50 Creative Commons License 2021.04.13 0 0 35533

Szia!

"A gondom vele hogy átalakítja az eredeti szöveget, én pedig a mellette lévő két cellába szeretném beírni."

Az utolsó párbeszéd panelen kijelölheted, hogy hova kerüljön a szétválasztás eredménye.

Üdv.

Előzmény: local75 (35529)
Eredő Vektor Creative Commons License 2021.04.13 0 0 35532

amúgy a tökéletes megoldás ez:

 

Function ExtractElement(str, n, sepChar)

Dim x As Variant
x = split(str, sepChar)
If n > 0 And n - 1 <= UBound(x) Then
ExtractElement = x(n - 1)
Else
ExtractElement = ""
End If
End Function

 

felhasználó fgv-ek között találod:

ExtractElement(szöveg;hányadikat;"szeparátor")

Előzmény: local75 (35524)
local75 Creative Commons License 2021.04.13 0 0 35531

Köszi, a tied működik. :)

Előzmény: Garashan (35530)
Garashan Creative Commons License 2021.04.13 0 0 35530

Vesszőket használtál pontos vessző helyett.

Előzmény: local75 (35529)
local75 Creative Commons License 2021.04.13 0 0 35529

Eredő Vektor

 

Köszi, és köszi a keresőszót!

Itt találtam egy ilyen megoldást:

 

=LEFT(C5,FIND("x",C5)-1)

 

Ez alapján az én képletemnek így kellene kinéznie ha nem rontottam el semmit:

=BAL(U3,SZÖVEG.TALÁL("-",U3)-1)

 

Mit ronthattam el mégis?

 

 

Delila:
Köszi, ez működik.

A gondom vele hogy átalakítja az eredeti szöveget, én pedig a mellette lévő két cellába szeretném beírni. Ha képlettel nem sikerül, marad ez.

djuice:

Köszi, ez a megoldás most nem jó nekem.

Az adatok jönnek-mennek, én pedig az automatizálás híve vagyok. :)

Előzmény: Eredő Vektor (35527)
Garashan Creative Commons License 2021.04.13 0 0 35528

Üdv!

Ha az A oszlopban vannak a szavak, akkor a következő képleteket is használhatod:

B oszlopba: =BAL(A1;SZÖVEG.KERES("-";A1)-1)

C oszlopba: =JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES("-";A1))

Értelemszerűen, ha máshol vannak a szavak, akkor akkor módosítsd a képleteket.

Előzmény: local75 (35524)
Eredő Vektor Creative Commons License 2021.04.13 0 0 35527

split function excel -re keresve tökéletes példákat hoz:

 

https://www.ablebits.com/office-addins-blog/2016/06/01/split-text-string-excel/

 

 

Előzmény: local75 (35524)
djuice Creative Commons License 2021.04.13 0 0 35526

Másik megoldás:

Szoveget kimásolod és pl. Notepad++ programban cseréled a kötőjelet (vagy megfelelő karaktereket) tabulátorra és visszadobod az Excelbe. 

Sztem ilyesmi soxor gyorsabb és hasznosabb, mint elvetemült fügvényeket kutatni rá napokig, de persze mindenki másképp csinálja. (-;

Előzmény: local75 (35524)
Delila10 Creative Commons License 2021.04.13 0 0 35525

Szia!

 

A szövegből oszlopok funkció jó erre.

Előzmény: local75 (35524)
local75 Creative Commons License 2021.04.13 0 0 35524

Sziasztok!

Milyen képlettel tudnám a kötőjeles szavakat szétválasztani külön cellába?
ALMA-KÖRTE

MANDARIN-BARACK

önindítópersely Creative Commons License 2021.04.12 0 0 35523

Szia Fferi!

 

Köszi a törődést, meg lett! Valószínű, nem éjjel fáradtan kell csinalni és már működik is!

 

Üdv!

Előzmény: Fferi50 (35521)
önindítópersely Creative Commons License 2021.04.12 0 0 35522

Szia! 2013 as verziót használok. 

Nyitottam egy munkafüzetet, alul a munkalapokon talalhato a két táblázat. X keres függvényt használtam, #ÉRTÉK! eredmény jön ki örökké. A táblázat egyik oszlopa a cikkszámokat, a másik a cikk neveket tartalmazza, ehhez szeretném megkerestetni a másik munkalapon levő helyről, szintén ezeken a cikkszámokon és neveken szereplő, de más sorrendben feltüntetett termékek újabb oszlopban levő önköltségeit.

 

Üdv

Előzmény: Fferi50 (35521)
Fferi50 Creative Commons License 2021.04.12 0 0 35521

Szia!

"X keressel próbálkoztam, de valahogy nem ok."

Szuper, meg tudnád mondani, hogy miben nyilvánul meg a nem ok? Mit talál meg és mit nem? Hol van az egyik  és hol van a másik "tábla" (azért írom idézőjelben, mert munkalapok, munkafüzetek vannak)?

Mi a képlet, ami valahogy nem ok?

Milyen Excel verziót használsz?

Üdv.

 

Előzmény: önindítópersely (35520)
önindítópersely Creative Commons License 2021.04.12 0 0 35520

Jóemberek!

 

Segítséget kérnék! 

Olyan feladatom lenne, hogy két táblázatból kéne összekerstetnem adatokat az excellel. Napi forgalmat húzok le, amelyben ciikszám, cikk név és napi nettó forhgalom van. Szeretnék árrést is számooni, de az önköltségek egy másik táblában vannak, ugyan ezekkel a cikkszámokkal és cikknevekkel. Itt az összes termék fent van, értelem szerűen. A  napi forgalomban, csak azok, amelyekből forgalmat realizáltunk adott napon. Tehát, a napi forgalomban levő termékek önköltségét szeretném megkerestetni egy másik táblából. Milyen függvényt, vagy praktikát használjak? 

X keressel próbálkoztam, de valahogy nem ok. 

Ha van ötlet, szívesen venném!

 

Köszi!

HR

Fferi50 Creative Commons License 2021.04.11 0 1 35519

Szia!

Ajánlom figyelmedbe a Képletek - képletvizsgálat - képletkiértékelő menüpontját. Csak kijelölöd a kérdéses cellát (nem lépsz bele) és lépésenként meg tudod nézni az eredmény alakulását, vagy F2-vel belelépsz a szerkesztésbe, ráállsz a függvényre és az Fx gombot megnyomod, akkor láthatod a függvény paramétereit és eredményét.

Üdv.

Előzmény: djuice (35518)
djuice Creative Commons License 2021.04.11 0 0 35518

Köszönöm szépen! Kapkodtam és elnéztem...

Működik a képleted.

 

A hibára vonatkozólag nekem is csak annyi jelent meg hogy: #HIBA!

Erről én se tudtam akkor többet hogy miért nem jó, de köszi a segítséget még1x!

Előzmény: Fferi50 (35517)
Fferi50 Creative Commons License 2021.04.09 0 0 35517

Szia!

 "sajnos hibára fut."

(Mi pedig találjuk ki, hogy milyen hiba keletkezett.....) 

A képletben szerintem 3 db n kell, akkor kapsz rövidített nap nevet.

Ezen kívül hiányzott egy bezáró zárójel a Vagy függvénynél.

Próbáld ezt így:

=HA(VAGY(SZÖVEG(A1;"nnn")="szo";SZÖVEG(A1;"nnn")="v");"hétvége";SZÖVEG(A1;"nnn"))

Üdv.

Előzmény: djuice (35516)
djuice Creative Commons License 2021.04.09 0 0 35516

Összekombináltam, de sajnos hibára fut. :(

 

=ha(vagy(SZÖVEG(A1;"nnnn")="szo";SZÖVEG(A1;"nnnn")="v";"hétvége";SZÖVEG(A1;"nnnn")))

Előzmény: Eredő Vektor (35514)
Garashan Creative Commons License 2021.04.08 0 0 35515

Szia!

Keresés ablaknál "Egyebek > >" gomb, majd a keresés helyénél "Értékek".

Előzmény: djuice (35513)
Eredő Vektor Creative Commons License 2021.04.08 0 0 35514

Használd ezt a keresőképletben:

=SZÖVEG(A1;"nnn")

=SZÖVEG(A1;"nnnn")

 

a hét napjának kijelzésétől függően.

Előzmény: djuice (35513)
djuice Creative Commons License 2021.04.08 0 0 35513

Helló!

 

Excelben ezek a dátumok adott számjegyként tárolódnak, de a formátumuk "bármi" lehet.

Na most, ha én azt adom meg, hogy a napok neveinek rövidítése legyen a kijelzett formátum ( H, K, Sz...), abban hogyan tudnék mégis rájuk betű szerint keresni?

Pl. ha a találat Szo, V, akkor az a hétvégét jelentse...?

Köszi!

Eredő Vektor Creative Commons License 2021.04.08 0 0 35512

Értem. Az pedig érezhető volt, hogy nem állsz hadilábon az excellel.

 

A feltételes formázás helyett segédoszlopban függvényekkel beazonosítás / /megjelölés? 

Előzmény: Garashan (35511)
Garashan Creative Commons License 2021.04.07 0 0 35511

Szia!

Az ismétlődéseket nem szeretném letiltani, mert van létjogosultságuk.

Fiktív példával:
A2 = 2891
B2 = "ácsceruza"

és mondjuk az alatta lévő 3 sorban ugyan ez a termék csak más beszállítóktól. Úgymond a fő beszállítónál van az a cikkszám, ami a számlázó programban is szerepel. Az alternatív beszállítóknál viszont mögé biggyesztek egy csillagot. Erre csak azért van szükség, hogy amikor árat változtatok a számlázóban vagy a webshopban, akkor elég a cikkszámokat figyelnem. Mert ami csak számból áll az élő termék, amiben van csillag, vagy más séma alapján épül fel az fiktív termék és nincs benne a számlázó és a webshop rendszerében. De így is van 3 ismétlődés ami megengedett. Nem csak beszerzési árat tartunk nyilván az adott terméknél, hanem a szállítót és a devizát is (meg még jó pár dolgot). Majd a végén kalkulálunk egy árat, hogy mennyibe van nekünk itt egy darab ceruza. Mert a szállítási költség eléggé befolyásolja az árat mire ideér. (csak néhány opció: leszállítva kapjuk meg a terméket, nincs szállítási költség; saját gépjárművel hozzuk el a nagykerből Pestről; európai import; távolkeleti import). A fenti négy termék minden paraméterében megegyezik (szín, hossz, átmérő, stb.), így eladás szempontjából teljesen mindegy, hogy ki melyiket kapja. Az alternatív beszerzési árak nyilvántartására is csak azért van szükségünk, hogy ha valamelyik gyártó elszáll az árakkal, akkor tudjunk rögtön váltani beszállítót.

Nem állok hadilábon az Excellel, ki merem jelenteni, hogy az átlag felhasználónál magasabb a tudásom. De azt is tudom, hogy vannak olyan funkciói, amiket sohasem használtam és nem vagyok velük képben. Pl Power Pivot-ra még sohasem volt szükségem, így nem is foglalkoztam vele, nem is vagyok vele képben. De több száz soros makrókat meg tudok írni.

 

Egészen Sheeny felvetéséig nem is foglalkoztam a feltételes formázások szétcsúszásával. Csak írtam, hogy nálunk is jelentkezett a probléma. De most már fogok rá valami megoldást keresni.

Előzmény: Eredő Vektor (35510)
Eredő Vektor Creative Commons License 2021.04.07 0 0 35510

megpróbálhatod a feltételes formázást adatérvényesítéssel helyettesíteni. Ekkor nem lesz a "belső azonosító ütközés" formázással kiemelve - viszont nem tud majd ilyen ütköző azonosítót felvinni senki. (Mert az adatérvényesítés nem engedi)

 

Viszont, ha ez nem megy egyedül, akkor már látni kéne a táblát, hogy segíteni lehessen.

 

Előzmény: Garashan (35509)
Garashan Creative Commons License 2021.04.07 0 0 35509

Szia!

Köszi szépen. Valószínűleg hasznos lesz valamikor, amit linkeltél, de jelen helyzetemen nem segít.

 

A táblázat amiről szó van egy beszerzési-eladási ár kalkulátor a termékeinkre. Ha új terméket vagy alternatív beszerzési forrást írunk bele a táblázatba, akkor szükségünk van rá, hogy tudjunk új sort beilleszteni. A táblázat legtetején van egy biankó sor, amiben már a szükséges képletek szerepelnek minden cellához.

A feltételes formázás arra van használva, hogy figyeljük a belső azonosító ütközést. Ennél fontos leginkább, hogy a teljes A oszlopot egybe kezelje és ne széttördelje tartományokra. A többi feltételes formázás nem ennyire tartomány függő, ott csak az árváltozást jelölöm egy rögzített cellához képest. (HA (új_ár_dátum > új_árjegyzék_dátum; háttér (piros); semmi))

Előzmény: Fferi50 (35507)
thomas5000 Creative Commons License 2021.04.06 0 0 35508

Sziasztok!

 

Letöltöttem windows 10-hez bizonyos témát, ami tetszik, viszont az excelem hátterét tönkrecseszi.

 

 

Ha a fejem tetejére állok se tudom fehérré varázsolni. Már oda jutottam, hogy letöltöttem egy fehér hátteret, és azt tettem be.
Ez jó megoldásnak is tünt, viszont ahogy bezártam, és új excelt nyitottam, persze nem maradt meg a beállított háttér.

XLSTART mappába mentettem be xltx formában sablont, de nekem nem működött, nem azt nyitotta meg, vagy a háttér nem tartozik bele, csak a téma, én nem tudom, de sajnos nem működik.

Erre valaki tud esetleg valamilyen megoldást?

 

Fferi50 Creative Commons License 2021.04.06 0 0 35507

Szia!

Úgy tűnik, csak makróval lehet megoldani, itt https://itcafe.hu/tema/excel/hsz_46378-46378.html találsz rá egy konkrét megoldást.

Talán még egy próbát megér a következő:

A lapvédelemnél kijelölhetsz területeket, amelyeket jelszóval levédsz és csak meghatározott felhasználók számára engedélyezed a bele való írást. Véleményezés menücsoport - változások - tartományok szerkesztésének engedélyezése.

Üdv.

 

Előzmény: Garashan (35506)
Garashan Creative Commons License 2021.04.06 0 0 35506

Elrontani el lehet táblázaton belüli másolással is. Sajnos ez a tapasztalat nálunk is: $A:$A tartomány formázása ismétlődő értékek esetén. Majd jön a kolléga, kimásol egy véletlenszerű sort, beilleszti ahova be szeretné és máris szét darabolódik a tartomány.

  1. $A1:$A20
  2. $A20
  3. $A21:$A(munkafüzet legutolsó sora; valami jó nagy szám)

Ha eddig semmi sem volt formázva, mert nem volt ismétlődő érték, akkor akármit beírhat pl az A20 cellába, mert annak a formázási képlete csak azt az egy cellát figyeli. Nyilván egy cellán belül nem lesz ismétlődés.

 

Ettől függetlenül nem tudok a problémára megoldást. Mivel csak pár ilyen táblázatunk van, néha napján törlöm a fölösleges formázásokat és ismét beállítom a megfelelő tartományra a maradék formázást.

Előzmény: E.Istvan (35505)
E.Istvan Creative Commons License 2021.04.06 0 0 35505

Szerintem makró nélkül ez nem megoldható. Én a formázásokat és a feltételes formázásokat igyekeztem úgy elkészíteni, hogy univerzálisak legyenek, az egész táblázatra legyenek érvényesek. Segédoszlopokat és sorokat figyelnek a formázó képletek, így ha táblázaton belül másol akkor elvileg nem tudja elrontani, csak ha más táblázatból másol. Ha meg elrontják akkor egy pár cella kivételével törlöm az összes feltételes formázást, majd kiterjesztem a meghagyott feltételes formázások érvényesítési tartományát.

Előzmény: Sheeny (35504)
Sheeny Creative Commons License 2021.04.06 0 0 35504

Kérlek segítsetek.

Adott egy kész táblázat (szabadságokat és egyéb távolléteket vezetünk benne).

Mindenféle feltételes formázás van benne, és lapvédelemmel van ellátva.

Természetesen, ahogy az lenni szokott a usereknél, CTRL-C - CTRL-V vel töltik ki, mert az "egyszerűbb" mint beírni egy akármilyen betűt.

 

A probléma az, hogy másolja minden egyes helyre a feltételes formázást is, aktív lapvédelem mellett, és szét van cseszve az egész tábla emiatt.

Be tudom valahol állítani,hogy a feltételes formázást ne másolja csak a cella értékét? Vagy akár a másolás/beillesztést is tiltanám ha lehetne. (persze beírni lehessen). Sajna nem találok ilyen opciót :( (makró nélkül kellene mindez, a céges policy nem enged makrót).

 

Lapvédelemnél, csak az első két opció, van megengedve (zárolt és nem zárolt cella kijelölés).

 

Köszönöm

 

pimre Creative Commons License 2021.03.31 0 0 35503

Köszönöm. Erre tényleg nem gondoltam (Csak a CSV-ből való beolvasáshoz kötöttem ezt a technikát). De ezzel még kényelmesebben sikerült szöveggé alakítani a számnak látszó azonosító kódot.

Előzmény: E.Istvan (35502)
E.Istvan Creative Commons License 2021.03.31 0 1 35502

Amikor a cella formátumát átállítod szövegről számra, vagy fordítva azt az excel nem veszi figyelembe. A cella tartalma továbbra is szám vagy szöveg marad, csak a formázás változik. A valódi átalakítást a "adatok" menü "szövegből oszlopok" varázslóval lehet elvégezni. Kijelölöd az oszlopot->"szövegből oszlopok"-> fix széles ->tovább->tovább->általános (szám) vagy szöveg ->befejezés

Amikor az egyik helyen szöveg a másik helyen szám van akkor a keresőfüggvények nem találják meg az értéket.

Előzmény: pimre (35495)
Fferi50 Creative Commons License 2021.03.31 0 0 35501

Szia!

Igazad van, úgy látszik, túl késő volt már. Fordítva gondolkodtam. :(

Üdv.

Előzmény: Delila10 (35500)
Delila10 Creative Commons License 2021.03.31 0 0 35500

Fordítva. Így szöveget lehet számmá alakítani.

 

Számot szöveggé pl. =A1&""

 

Előzmény: Fferi50 (35499)
Fferi50 Creative Commons License 2021.03.30 0 0 35499

Szia!

Számot szöveggé így is lehet alakítani:

Egy cellába beírsz 1 db egyest. Másolás - kijelölöd a B oszlopot - irányított beillesztés - szorzás. Majd az egyest tartalmazó cellát kitörlöd.

Üdv.

Előzmény: pimre (35497)
Garashan Creative Commons License 2021.03.30 0 0 35498

Hasonlót írtam képlettel, de a vágólapról beillesztett fotót nem tette be a végső kommentbe....

A képletem a következő volt: =HAHIÁNYZIK(HOL.VAN(SZÁMÉRTÉK(A2);$A:$A;0);HOL.VAN(SZÖVEG(A2;"@");$A:$A;0))

Előzmény: pimre (35497)
pimre Creative Commons License 2021.03.30 0 0 35497

Kösz, időközben megtaláltam a megoldást: egy üres oszlopba beírom a következő képletet =SZÖVEG(B2;"0") (A 0 helyén @ is állhat, talán más is). Ez szöveggé konvertálja. És az eredményt értékként visszamásolom a 2. oszlopba.

 

Előzmény: Garashan (35496)
Garashan Creative Commons License 2021.03.30 0 0 35496

Elegáns megoldást nem tudok, én HAHIÁNYZIK() függvénybe ágyaznám:

Előzmény: pimre (35495)
pimre Creative Commons License 2021.03.30 0 0 35495

Még valamit találtam. Ha a B oszlopban lévő számok elé aposztrofot teszek, akkor megtalálja a képlet, amit keres. Tehát nem veszi figyelembe azt, amikor formázással szeretném szöveggé alakítani. Van rá mód, hogy kikényszerítsem a szövegként való kezelést?

 

Nem szeretném egyenként eléírogatni az aposztrofot.

 

Előzmény: pimre (35494)
pimre Creative Commons License 2021.03.30 0 0 35494

Sziasztok, a HOL.VAN függvénnyel van gondom. 

 

Egy munkalapon található azonosítót szeretnék megkeresni a munkafüzet egy másik munkalapján. De érthetetlen módon a keresések többségében hibát ad a képlet:

 

 

Teljesen érthetetlen a jelenség. A keresett azonosítók mindgyike megvan a Teljes lista nevű munkalapon. Kézzel végrehajtva a keresést természetesen megtalálja valamennyit. Ha sehol nem találná, akkor a képletben keresném a hibát. De így?

Még annyit, hogy a B oszlop adatait általános típusúak itt is, meg a keresés helyén is. Próbáltam szöveggé alakítani, nem segített. Még számként is próbáltam, úgy sem.

 

Ugyanannek a munkafüzetnek egy korábbi változatában hibátlanul működött a képlet.

 

Teljes a rejtély. Van ötletetek, hogy miben keressem a hibát? 

susos Creative Commons License 2021.03.29 0 0 35493

Szia!

Nagyon köszönöm a gyors segítséget!

Holnap kipróbálom :)

Szép estét!

Előzmény: pimre (35491)
pimre Creative Commons License 2021.03.29 0 0 35492

Még annyit, hogy a célterület természetesen lehet az adott munkafüzetnek egy másik munkalapja, de lehet egy új munkafüzet is, ha nem akarod elrontani az eredeti adataidat.

Előzmény: pimre (35491)
pimre Creative Commons License 2021.03.29 0 0 35491

Nem képet kell létrehoznod, hanem az Irányított beillesztést alkalmaznod. Kimásolod az értékekké alakítandó tartományt, majd a célterület első cellája felett (ez lehet akár a kimásolt terület bal felső cellája is) egér jobb gomb, és 

1. vagy a megjelenő 123 szimbólumre kattintasz,

2. vagy az Irányított beillesztést választva az értékek gombra kattintasz.

 

Mindkét esetben a képletek helyére az érték kerül.

 

Előzmény: susos (35490)
susos Creative Commons License 2021.03.29 0 0 35490

Sziasztok!

 

Olyan problémába ütköztem,hogy azt szeretném megoldani,hogy egy online adatbázisba feludjak tölteni egy előre megadott sémával rendelkező excel táblát(az oldal csak egy adott sémát tud lekezelni...) a feltölteni kívánt táblában egy adott szállítás termékeinek adatai szerepelnek, úgy mint név, vámtarifaszám súly stb... a munkám megkönnyítésére megoldottam,hogy ha beírok egy terméknevet,akkor automatikusan hozzárendeli egy másik tab bol a vámtarifaszámot,így azzal nem kell bajlódni.

Így saját magamnak pillanatok alatt tudok egy táblázatot létrehozni,azonban amikor feltölteném abba a problémába ütközök,hogy a netes oldal motorja nem konkrét értékeket lát a táblámban,hanem az azok helyen szereplő képleteket,azonban ezeket nemtudja értelmezni.

Mivel az oldalt nemtudom megváltoztatni,így más megoldáson töröm a fejem.

Ha a már elkészített,képletekkel telerakott excel táblám elkészítem,lehetőség van egy "kép" létrehozására,ami ugyanolyan táblázat lesz,csak nem képleteket tartalmaz,hanem a konkrét értékeket?

Így a netes oldalnak nem kellene túlagyalni magát...

 

Nehezen sikerült leírnom,de remélem érthető a gondom :)

Nagyon köszönöm,ha segítetek!

 

Ádám

Rookie(: Creative Commons License 2021.03.29 0 0 35489

Lemaradt.

Rookie(: Creative Commons License 2021.03.29 0 0 35488

Sziasztok,

 

az alábbi kimutatás kapcsán szeretném a pirossal áthúzott részeket kiszedni, meg lehet valahogy oldani? 

 

Az lenne a cél, hogy csak a csupasz táblázatot mutassa a jelmagyarázattal, a szűrők megjelenítése nélkül.

 

Köszi előre is!

 

R

 

pimre Creative Commons License 2021.03.26 0 0 35487

Kösz. Ezt nem ismertem.

Előzmény: E.Istvan (35486)
E.Istvan Creative Commons License 2021.03.26 0 1 35486

Védett munkalapon az autoszűrés működik, csak engedélyezni kell. A kódban ki kell egészíteni az AllowFiltering opcióval.

.Protect Password:="", Userinterfaceonly:=True, AllowFiltering:=True

 

 

Előzmény: pimre (35462)
Fferi50 Creative Commons License 2021.03.25 0 0 35485

Szia!

Szerintem 2 új oszlopban FKERES függvénnyel meg tudod tenni, hogy egymás mellé kerüljenek az adott értékek:

A képlet az első oszlop első cellában:

=FKERES($C1;$A$1:$B$50;1;0)

a második oszlop első cellában

=FKERES($C1;$A$1:$B$50;2;0)

A képletek húzhatók lefelé.

Ha mégsem lenne olyan dátum az A oszlopban, ami a C-ben van, akkor Hiányzik hibaüzenetet kapsz. Ezt kiküszöbölheted, ha beveted a HAHIBA függvényt az FKERES mellé. =HAHIBA(FKERES---;"") üresen marad, ha nem talál értéket.

Üdv.

Előzmény: Tessitore22 (35484)
Tessitore22 Creative Commons License 2021.03.25 0 0 35484

Sziasztok! 

 

Adott két adatsor, amik eltérő méretűek. Mindegyik adathoz tartozik egy dátum, hogy mikor került rögzítésre. Azt szeretném elérni, hogy a nagyobb adatsorból is csak azok az értékek legyenek láthatók, ami a másikkal azonos napon került rögzítésre (a képen: ahol A=C) . Hogyan tudom ezt elérni? A képet mellékeltem a jobb megértéshez. Köszi!

 

 

Fferi50 Creative Commons License 2021.03.25 0 0 35483

Szia!

Mondjuk, a 35478-as hsz-ban legalább látszik a képlet:

Miért az E:G oszlop a keresési táblád, amikor az F oszlopban kezdődnek az adataid?

A másik hsz-ban nem látszik a képlet.

Bocs, hogy nem volt világos az adatok elhelyezkedése.

Üdv.

Előzmény: bringas1 (35482)
bringas1 Creative Commons License 2021.03.25 0 0 35482

Nnnnna még egyszer

 

Az F oszlopban is külön van. F oszlopban a cikkszám, G oszlopban a név.

Előzmény: Fferi50 (35480)
bringas1 Creative Commons License 2021.03.25 0 0 35481

Az F oszlopban is külön van. F oszlopban a cikkszám, B oszlopban a név.

Előzmény: Fferi50 (35480)
Fferi50 Creative Commons License 2021.03.25 0 0 35480

Szia!

Namost az a kérdés, hogy a cikkszám külön oszlopban van-e az A oszlopban és a neve a B oszlopban, ugyanakkor az F oszlopban pedig egyben van a cikkszám és a név?

Mert akkor a képlet más kell legyen.

Próbáld ezt a képletet:

=HAHIBA(FKERES(BAL($F1;SZÖVEG.KERES(" ";$F1)-1);$A$1:$C$100;3;0);"")

illetve:

=HAHIBA(FKERES(BAL($I1;SZÖVEG.KERES(" ";$I1)-1);$D$1:$F$100;3;0);"")

Üdv.

 

Előzmény: bringas1 (35479)
bringas1 Creative Commons License 2021.03.25 0 0 35479

Hasonló sikerek közepette próbáltam elé is.

Előzmény: Fferi50 (35477)
bringas1 Creative Commons License 2021.03.25 0 0 35478

Köszönöm.
Ügyetlenségem határtalan. Most sem tiszta valami :(

 

 

 

Előzmény: Fferi50 (35477)
Fferi50 Creative Commons License 2021.03.25 0 0 35477

Szia!

Például így:

=HAHIBA(FKERES($A1;$F$1:$H$100;3;0);"") 

helyett

=HAHIBA(FKERES($F1;$A$1:$C$100;3;0);"")

De ebben az esetben nincs oszlop beszúrás, hanem a H oszlopban (vagy még hátrébb) kezdődik a képletbeírás.

Ha három oszlopot beszúrsz az A oszlop elé, akkor a képlet:

=HAHIBA(FKERES($I1;$D$1:$F$100;3;0);"")

Üdv.

Előzmény: bringas1 (35476)
bringas1 Creative Commons License 2021.03.25 0 0 35476

Ha felcserélném az oszlopokat (az eddigi F,G,H oszlop lenne az A,B,C oszlop. az A,B oszlop pedig az F,G oszlop) akkor mit kell változtatni a képleten?

Előzmény: bringas1 (35474)
bringas1 Creative Commons License 2021.03.25 0 0 35475

Köszönöm

Előzmény: pimre (35472)
bringas1 Creative Commons License 2021.03.25 0 0 35474

Tökéletes lett! Köszönöm!

Előzmény: Fferi50 (35473)
Fferi50 Creative Commons License 2021.03.24 0 0 35473

Szia!

Természetesen. Akkor 3 oszlopot kell beszúrnod és a hivatkozásokat az új oszlopoknak megfelelően módosítani.

Az FKERES függvénynél az új + oszlopra a 3. paraméter legyen 3.

=HAHIBA(FKERES($A1;$F$1:$H$100;3;0);"")

Üdv.

Előzmény: bringas1 (35471)
pimre Creative Commons License 2021.03.24 0 0 35472

Mivel Fferi adta meg eredetileg a képletes megoldást (ami elegánsabb, mint az én makrós elképzelésem), nem lenne illendő helyette folytatnom a megoldását. Biztosan kapsz választ hamarosan.

Előzmény: bringas1 (35471)
bringas1 Creative Commons License 2021.03.24 0 0 35471

Köszönöm jó lett. Az E-F oszlopban található adatokat beteszi a C-D oszlopba.

Még egy olyat bele lehet írni a képletbe, hogy a E-F oszlop mellett található G oszlopba található adatokat is oda tegye? 

Gondolom akkor kell plusz egy oszlop. Így csúsznak az oszlopok is.

Előzmény: pimre (35469)
Fferi50 Creative Commons License 2021.03.24 0 0 35470

Köszi, igazad van.

1 $-t megér.  :)

Előzmény: pimre (35469)
pimre Creative Commons License 2021.03.24 0 0 35469

A képletekben javítsd át a $E1-et $E$1-re.

Előzmény: bringas1 (35468)
bringas1 Creative Commons License 2021.03.24 0 0 35468

Köszönöm. 
Lehet valamit nem jól csinálok? Nekem csak az első 2 sorig működik

Előzmény: Fferi50 (35466)
Fferi50 Creative Commons License 2021.03.24 0 0 35467

Feltétel, hogy az A és a C oszlopban pontosan ugyanazok az adatok legyenek. Ha ez nincs így, akkor az első karaterek (gondolom cikkszám v. vmi ilyesmi) alapján is lehet keresni, akkor kicsit bonyolultabb a képlet.

Légy szíves írd meg, hogy mi lett az eredmény.

Előzmény: Fferi50 (35466)
Fferi50 Creative Commons License 2021.03.24 0 0 35466

Szia!

Az FKERES függvényt használhatod a következők szerint:

1. lépés A C oszlop elé beszúrsz két üres oszlopot. Ezzel a korábbi C-E oszlopaid E-G oszlopra "változnak".

2. A beszúrt első(C oszlop) első cellájának képlete:

=HAHIBA(FKERES($A1;$E1:$G$100;1;0);"")

A második (D oszlop) első cellájának képlete

=HAHIBA(FKERES($A1;$E1:$G$100;2;0);"")

Ezek a képletek lefelé húzhatóak. (A 100-at a képletben módosítsd a használt soraid számára.

3. A C-D oszlopot kijelölöd - másolás - irányított beillesztés érték  ugyanoda

4. Az E-G oszlopot törölheted. Ha nem teszik az eredmény, akkor a D oszlop elé beszúrhatsz egy üres oszlopot még.

 

Üdv.

Előzmény: bringas1 (35465)
bringas1 Creative Commons License 2021.03.24 0 0 35465

Bocsánat a rossz fogalmazásért. 
ilyenre szeretném a táblázatot

Előzmény: James 42 (35464)
James 42 Creative Commons License 2021.03.24 0 0 35464

Nem írnád le egy kicsit bővebben (vagy érthetőbben), hogy mit szeretnél? Például, mit értesz azon. hogy "egymás mellé szeretném rendezni"? Hát nincsenek egymás mellett? És az utolsó mondatot hogy kell érteni? Miféle adatok vannak ott, és hogyan kellene azt figyelembe venni?

Előzmény: bringas1 (35460)
pimre Creative Commons License 2021.03.24 0 0 35463

Ha jól értem ezt szeretnéd, azaz a-D oszlopok helyett a G-J oszlop szerinti rendezettség legyen (bocs, de nem volt kedvem bepötyögni a mintád adatait)?

 

 

És az E oszloppal - a figyelembe vételen kívül  - mi történjen?

 

1. Maradjon változatlan?

2. A C-D oszloppal együtt mozduljon az I-J mintájára?

 

Megoldást csak makróval tudok elképzelni.

Előzmény: bringas1 (35460)
pimre Creative Commons License 2021.03.24 0 0 35462

Védett lapon a szűrés, rendezés nem működik.

Előzmény: Alwaysproblems (35461)
Alwaysproblems Creative Commons License 2021.03.24 0 0 35461

Szia!

Beírtam a kódokat, de így a szűrők nem működnek. Kérhetnék ehhez is egy kis segítséget?

Előzmény: Fferi50 (35459)
bringas1 Creative Commons License 2021.03.24 0 0 35460

Sziasztok!

 

Egymás mellé szeretném rendezni a két oszlopban található adatokat. 

A rendezés alapja lehet az "A" és a "C" oszlop. 

Képletnél légyszi azt is vegyétek figyelembe, hogy az "E" oszlopban is vannak adatok.

 

Fferi50 Creative Commons License 2021.03.23 0 0 35459

Szia!

Végig kell menni mind a 4 munkalapon ciklusban a kóddal:

Private Sub Workbook_Open()

Dim sh As Worksheet

For Each sh In Worksheets()

With sh 

.Protect Password:="", Userinterfaceonly:=True

.EnableOutlining = True

End With

Next

End Sub

Üdv.

Előzmény: Alwaysproblems (35458)
Alwaysproblems Creative Commons License 2021.03.23 0 0 35458

Elnézést kifelejtettem a kódot, illetve kieg.: a worksheets utáni zárójelbe az adott lap nevét kellene írnom?

 

Private Sub Workbook_Open()

With Worksheets() 

.Protect Password:="", Userinterfaceonly:=True

.EnableOutlining = True

End With

End Sub

Előzmény: Alwaysproblems (35457)
Alwaysproblems Creative Commons License 2021.03.23 0 0 35457

Sziasztok!

 

Egy kis segítséged szeretnék kérni. Adott egy 4 munkalapos Excel fájl. Szeretném mind a 4-et levédeni úgy, hogy a szűrés és az oszlopok csoportosítása (nyitás/zárás) lehetősége megmaradjon. VBA-ban próbálkoztam már kódokkal, de csak 1 munkalapot tudtam így levédeni, a többin nem működött.

 

Köszi előre is.

m54-b Creative Commons License 2021.03.19 0 0 35456

Manuálisra állítva nem kell újraírni a képletet, elég az [F9] lenyomása az újraszámoláshoz (de ez nem állítja át automatikusra!).

Előzmény: FOMA (35451)
FOMA Creative Commons License 2021.03.19 0 1 35455

Nem volt ilyen dokumentum megnyitás, én követhettem el valamit, akaratlanul. De legalább fiatalodott kicsit a szoftver, a réginek már úgyis megszűnt a támogatása.:-) Sokat segítettél, még egyszer köszi.

Előzmény: Garashan (35454)
Garashan Creative Commons License 2021.03.19 0 0 35454

Nagyon szívesen, amúgy hasznos funkció, ha túl sok a képlet és lassan számol újra.
Nem tudok róla, hogy lenne ilyen billentyű kombináció.

Azt tudom elképzelni, hogy megnyitottál egy olyan dokumentumot amiben le volt tiltva és átállítódott nálad is.
És hogy ez a jelenség létezik-e, azt nem tudom.

Előzmény: FOMA (35453)
FOMA Creative Commons License 2021.03.19 0 0 35453

Nagyon szépen köszönöm a segítséged! Valóban így volt, működik.

 

Bár anno elvégeztem egy Excel-tanfolyamot (OFFICE 95 szörnyű régen), de ettől még nagyon mezei felhasználó vagyok. Viszont pont ezért nem nyúlok semmilyen beállításhoz.:-) Lehetséges, hogy egy szerencsétlen melléütésből beletaláltam egy billentyű kombinációba, és attól állt át?

Előzmény: Garashan (35452)
Garashan Creative Commons License 2021.03.19 0 0 35452

Képletek fül --> Számolási beállítások --> Automatikus

Szerintem itt állítódott át manuálisra.

Előzmény: FOMA (35451)
FOMA Creative Commons License 2021.03.19 0 0 35451

Egy kis segítséget kérek Excel-ügyben. Néhány napja az automatikus összeadás függvény nem működik. Ha módosítok egy cella értékén, akkor a végeredmény ugyanaz marad. Ha kitörlöm a végeredményt, újból kijelölöm a cellákat, és ismét rányomok az autoszumra, akkor kiírja a helyes értéket. Ha utána módosítok valamelyik cellán, akkor megint nem változik, és kezdődik elölről. A cellára kattintva, a függvény ellenőrzésénél ott vannak helyesen az összeadandó cellák, mégsem működik.

 

 

Korábban nem volt ilyen probléma. Mivel ez egy ősi Office 2007 volt, ezért ma lecseréltem 2016-ra (teljesen legálisak a szoftverek), és ugyanaz a jelenség. Mi lehet ennek az oka?

pimre Creative Commons License 2021.03.15 0 0 35450

Az első részére vonatkozóan figyelmetlenségről van szó. Bár nagy oszlopszámokat nyilván nem szerencsés számokká alakítva használni.

A második részre: az =oszlop(AX1) képlet lehetőségére nem gondoltam, pedig az valóban sokkal egyszerűbb képletet adott volna még a 2010-es verzióban is.

Előzmény: Fferi50 (35449)
Fferi50 Creative Commons License 2021.03.14 0 0 35449

Szia!

"nekem nem vált be, tekintve, hogy az oszlop() függvény numerikus értéket ad"

Valamit nem értek. Ha az oszlopot és a sort is számokkal adod meg a két forráscellában (ahogyan a kérdező mutatta), akkor miért gond, hogy az oszlop() függvény számot ad vissza? Arról nem is beszélve, hogy az oszlopot tartalmazó cellába írhatsz képletet is.. pl. =oszlop(AX1), aminek az eredménye 50 lesz.

Üdv.

Előzmény: pimre (35444)
thomas5000 Creative Commons License 2021.03.14 0 0 35448

Igen. 2007-es office-nál nem működik, de a 2019-nél már jó.

Előzmény: pimre (35446)
thomas5000 Creative Commons License 2021.03.14 0 0 35447

Ohh közben rájöttem. Tárgytalan. Sikerült. 

Előzmény: thomas5000 (35445)
pimre Creative Commons License 2021.03.14 0 0 35446

"Nekem működött Fferi megoldása is."

 

Akkor bocs (mármint Feritől). Elfelejtkeztem, hogy én most nem fértem hozzá a frissített gépemen, és Excel 2010-el próbáltam ki. Majd megnézem az újabb verzión is.

Előzmény: thomas5000 (35445)
thomas5000 Creative Commons License 2021.03.14 0 0 35445

Köszönöm mindkettőtöknek!

 

Nekem működött Fferi megoldása is.

 

Még egy kérdésem lenne feltételes formázással kapcsolatban.

 

Szeretnék egy egész oszlopot (nem sort!) feltétellel formázni.

 

Pl.:

 

D2:AY76 tartományt szeretném formázni a következőképpen:

 

B1=D1 --> D2:D76-ig legyen mondjuk piros

B1=E1 --> E2:E76-ig legyen mondjuk piros

B1=F1 --> F2:F76-ig legyen mondjuk piros

 

Ez sornál tök jól működik az excelben, viszont egyszerűen oszlopra nem tudom, hogy kéne.
Persze nem szeretném külön oszloponként, gondolom van erre valami megoldás.

 

Esetleg ebben még tudnátok nekem ötletet adni?

 

Előre is köszönöm!

 

pimre Creative Commons License 2021.03.14 0 0 35444

Szia, bocs én is megpróbáltam ezzel, de nekem nem vált be, tekintve, hogy az oszlop() függvény numerikus értéket ad. Ezért egy kicsit bonyolultabb képletet kellett készítenem, ezt is azzal a korláttal, hogy maximum 2 karakteres oszlopnevekkel dolgozik, azaz ha 3 karakterest ad meg, akkor figyelmen kívül hagyja.

 

=ÉS(HA(OSZLOP()<27;KARAKTER(64+MARADÉK(OSZLOP()-1;26)+1); KARAKTER(64+INT((OSZLOP()-1)/26))&KARAKTER(64+MARADÉK(OSZLOP()-1;26)+1))=$A$1; SOR()=$B$1)

 

Még az a szerencse, hogy nem kellett foglalkozni a kis és nagybetűkkel. Bárhogyan írja be, a függvény működik.

Előzmény: Fferi50 (35443)
Fferi50 Creative Commons License 2021.03.14 0 0 35443

Szia!

A formázandó cellák kijelölése képlettel. A képlet pedig:

=ÉS(SOR()=$B$1;OSZLOP()=$A$1)

A szabályok kezelése menüpontban pedig add meg az érvényességi területet (lehetőleg ne az egész munkalap legyen :)  )

Üdv.

Előzmény: thomas5000 (35442)
thomas5000 Creative Commons License 2021.03.14 0 0 35442

Sziasztok!

 

Feltételes formázással kapcsolatban lenne egy kérdésem.

Ha van két cellám, ami megadja, hogy hanyadik oszlopról és hanyadik sorról van szó, ezt valahogy meg lehet adni feltételes formázásban?

 

Tehát: A1=3 (C oszlop)

          B1=6 (6 sor)

 

Nekem az kéne, hogy ez alapján a C6 cellát félkövérre tegye. De ha változik az A1 és a B1 értéke, értelemszerűen változzon ez is.

Index függvénnyel próbálkoztam, de az nem igazán működött a feltételes formázásnál.

 

thomas5000 Creative Commons License 2021.03.13 0 0 35441

Köszönöm

Előzmény: Fferi50 (35440)
Fferi50 Creative Commons License 2021.03.13 0 0 35440

Szia!

Ez azért van, mert a fájlba nem maga a kép, hanem csak az elérési út kerül be.

Helyette használd a Shapes.AddPicture metódust, ebben megadhatod, hogy a kép vagy csak a link kerüljön be a fájlba, sőt át is méretezheted a képet.

Ez a hozzá tartozó help:

Shapes.AddPicture method (Excel) | Microsoft Docs

Persze ne feledd, ha a kép is belekerül a fájlba, akkor a mérete jócskán megnövekszik.

Üdv.

Előzmény: thomas5000 (35439)
thomas5000 Creative Commons License 2021.03.13 0 0 35439

Sziasztok!

 

Van egy makróm, ami tökéletesen csinálja, amit kell.

 

Sub Kepek()
Application.DisplayAlerts = False
On Error Resume Next
Dim Kepneve As String, utvonal As String, sor As Long

utvonal = "d:TomiKépek" '***

For sor = 1 To 30
If Cells(sor, "B").Value <> "" Then
Kepneve = Mid(Cells(sor, "B"), InStr(Cells(sor, "B").Value, " ") + 1) & ".png" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)

.Top = Rows(sor).Top - (Rows(sor).Height + 1 - .Height) / 2
.Height = 15
.Left = Columns(2).Left + Columns(2).Width - .Width

End With
End If
Next

Application.DisplayAlerts = True

On Error GoTo 0

End Sub

 

Beilleszti teljesen jól a képeket, a megfelelő helyekre. Ezeket a képeket én átmásoltam egy másik excelbe, ami szintén gond nélkül megtörténik.

 

A probléma akkor van, hogyha egy másik gépre átmásolom az excel file-t, és megnyitom, akkor azok a képek, amik makróval lettek hozzáadva nincsenek ott.
Tehát nem úgy kezeli őket, mintha normálisan, beszúrás útján tettem volna hozzá őket, hanem keresi az útvonalat.
Egyszerűen valahogy meg lehet ezt oldani, hogy normális képként kezelje az excel? A másolás, és kivágás sajnos nem megoldás, ugyanúgy nem találja.

 

Előre is köszönöm!

James 42 Creative Commons License 2021.03.10 0 0 35438

Kösz, hogy foglalkoztál vele! Mostanra nálam is meggyógyult. Volt közben egypár ki- és bejelentkezésem, de nem hiszem, hogy attól, mert már tegnap is ugyanez volt a gond. És azt sem hiszem, hogy a Védelem fül alatti beállításoktól, mert most is ugyanúgy látom a két pipát, a satírozással. Rejtély, de most működik.

Előzmény: pimre (35437)
pimre Creative Commons License 2021.03.10 0 0 35437

Nekem a 2010-es is simán megtalálja. A második sorba (A2) írtam, hogy körte. Aztán elléptem róla, majd kerestettem. Az eredmény a rejtett sor megvastagítása és a szerkeszőlécen a körte megjelenítése. Aztán ha listába kértem, akkor konkrétan meg is adta a helyét:

 

 

Elrejtett oszloppal ugyanez volt az eredmény.

 

 

Előzmény: James 42 (35436)
James 42 Creative Commons License 2021.03.10 0 0 35436

Nekem úgy tűnik, hogy nem volt világos, mit is szeretnék. Éppenséggel NEM akarom felfedni a rejtett sorokat, csak azt szeretném elérni, hogy az azokban levő adatokat is megtalálja a Ctrl-F-es keresés.

Előzmény: pimre (35435)
pimre Creative Commons License 2021.03.10 0 0 35435

Ez, amit találtál a munkalap védelemmel kapcsolatos. Azzal cellákat vagy tartományokat tudsz zárolni, vagy rejteni. Lásd inkább: Korrektúra->lapvédelem. De ez nem a sorok/oszlopok elrejtése. De nem is a munkalapé. Azt a nevére kattintva jobb gombbal rejtheted el. És persze ugyanott kattintva fedheted fel.

Előzmény: James 42 (35433)
pimre Creative Commons License 2021.03.10 0 0 35434

Hogy az Excel 2003-ban hogy volt, arra már nem emlékszem több év távlatából. A 2010-est, és a rákövetkezőket tudom. A rejtett sorok/oszlopok esetén a rejtett tartományt tartalmazó területet határoló sorokat/oszlopokat kijelölöd, majd jobb gomb és felfedés.

 

Egyébként a kérdező - 6 éve -  a 28755-re válaszul kicsit később megtalálta a vitorlázógép vizsgakérdésre a részmegoldást: http://forum.index.hu/Article/viewArticle?a=137029297&t=9009340

Előzmény: James 42 (35430)
James 42 Creative Commons License 2021.03.10 0 0 35433

Ha a Keresés ablakban kinyitom az Egyebek-et, akkor megjelenik egy Formátum gomb. Ha rákattintok, akkor feljön a Formázás kereséshez ablak. Azon van egy Védelem fül. Az alatt látható egy Zárolt és egy Rejtett jelölőnégyzet. Kezdetben mindkettőben pipát láttam, de satírozással. Megpróbáltam ki-be kapcsolgatni a Rejtett opciót, de hiába, egyik állásban sem találta meg a rejtett sorok adatait.

Előzmény: James 42 (35432)
James 42 Creative Commons License 2021.03.10 0 0 35432

Szerintem ez nem nyert. ÉN nem csalni akarok, hanem rendszergazda vagyok, és egy olyan táblázatban akarok keresni, amelyben felhasználónevek és jelszavak vannak, és szeretném, ha szükség esetén továbbra is meg tudnám nézni egy adott felhasználó jelszavát, anélkül, hogy a többi felhasználó jelszava is látszana a képernyőn. Ezért rejtettük el a táblázatnak a jelszavakat tartalmazó sorait. Az Excel 2003-mal nem volt probléma a keresés ezekben a rejtett sorokban, de most a 2010-essel ez nem működik. Az egyik kollégám szerint neki korábban is ment, amikor még 2010-est használt, de a saját szemével is láthatta, hogy nálam most nem megy. Az okát viszont együtt sem találtuk meg. Ezért kértem tippet itt a hozzáértőktől.

Előzmény: Delila10 (35431)
Delila10 Creative Commons License 2021.03.10 0 0 35431

A VeryHidden-nek nézz utána. Ha már csalni akarsz, dolgozz meg érte. :D

Előzmény: James 42 (35430)
James 42 Creative Commons License 2021.03.10 0 0 35430

rejtett munkalapot, tartományt keres...

 

Azt nem lehet? Én eddig ahhoz voltam szokva az Excel 2003-ban, hogy simán megtalálja azt is, ami az elrejtett sorokban van. Most váltottam 2010-esre, és ez meg nem. Pedig jó lenne. Nincs erre valami trükk?

Előzmény: Eredő Vektor (27855)
Fferi50 Creative Commons License 2021.03.09 0 0 35429

Szia!

Csinálnék egy segédoszlopot az alábbi képlettel:

Ha az adataid a második sorban kezdődnek, akkor a képlet:

=Int((sor()-1)/100)

Ha az első sorban kezdődik, akkor a képlet

=Int(sor()/100)

Ezt a képletet végighúzhatod a segédoszlopon lefelé, amíg az adataid vannak.

A képletet alakítsd át értékké   (másolás - irányított beillesztés értékek).

Ezután:

Adatok - Részösszegek - csoportosítási alap a segédoszlopod - melyik függvénnyel Átlag - összegzendő oszlop az adataid oszlopa. 

Részösszegek lecserélése - összeg az adatok alatt.

Ok.

Majd a 3. szint elrejtése után láthatod a 100-as átlagot és a teljes átlagot is.

Üdv.  

Előzmény: mark1223 (35428)
mark1223 Creative Commons License 2021.03.09 0 0 35428

Sziasztok! 
Lenne 15000 adatom egymás alatt. 
Kellene nekem 100-as osztásban átlag tehát 1-100-ig majd 100-200ig és erről mind külön átlag. 
Valaki erre megoldás esetleg? :D

 

Fferi50 Creative Commons License 2021.03.08 0 0 35427

Szia!

Az újabb Excel verziókban már van szín szerinti szűrési és szín szerinti rendezési lehetőség is.

Ha bekapcsolod az autoszűrőt, a lenyíló lehetőségek között ott találod a színre szűrést is.

Üdv.

Előzmény: dorogszu (35426)
dorogszu Creative Commons License 2021.03.08 0 0 35426

Sziasztok!

Létezik olyan megoldás, hogy egy excel táblázatból csak a fehér háttérrel rendelkező sorokat lássam? Adott egy nagy adatbázis amelyben a napi munkák vannak felsorakoztatva egymást követő sorokban.

 

Amelyik munka el van végezve azt a sort kiszínezik és szín szerint vannak osztályozva.Pl piros törölt munka, sárga elkészült, zöld a következő, sürgős stb. A státuszt ez alapján nem legördüléssel hanem színekkel fejezik ki:)

 

Nos a már valamilyen státuszban lévő munkák engem nem is érdekelnek de amelyik munkafolyamatnak a háttere fehér azokat szeretném látni

 

Köszönöm!

 

pimre Creative Commons License 2021.03.08 0 0 35425

Ágyazd be HA függvénybe az általad leírt feltételekkel!

 

 

 

Előzmény: Gabesz512 (35424)
Gabesz512 Creative Commons License 2021.03.08 0 0 35424

Sziasztok, egy olyan problémár keresek megoldást, hogy van egy HAHIBA fügvényem, ami két oszlop hányadosát jeleníti meg %-ban és ha még nincs bemenet vagy 0 az osztó akkor kiírja hogy nincs bemenet, viszont a következő oszlopban azt szeretném kiírni hogy ha az eddig beszélt oszlop eredménye >=80% ,akkor 1 et ír ki ha nem akkor 0 át, viszont a nincs bemenetre is 1 et ad eredményül. Hogy lehetne megoldani azt, hogy a nincs bemenetre mondjuk ugyanúgy 0 át adjon vagy mondjuk a nincs bementre egy kötőjelet ( "-" ). 

Fferi50 Creative Commons License 2021.03.06 0 0 35423

Szia!

Makróval le tudod kérdezni az egyesített cellában levő értéket:

Set ma = Range("a3").MergeArea 'az egyesített cellák tartománya

If Range("a3").MergeCells Then ' Mergecells tulajdonság mutatja meg, hogy egyesített-e az adott cella

     x=ma.Cells(1, 1).Value 'az egyesített tartomány első cella értékének kinyerése

End If

Üdv.

Előzmény: thomas5000 (35420)
Fferi50 Creative Commons License 2021.03.06 0 0 35422

Szia!

Milyen hibaüzenetet kapsz?

Üdv.

Előzmény: Czipóth_Feri (35419)
Delila10 Creative Commons License 2021.03.06 0 0 35421

Az egyesített cellák közül mindig a bal felső tartalmazza az adatot.

Lehetőleg kerülni kell az egyesítést, formázással is meg lehet oldani az egyesítés látszatát.

Előzmény: thomas5000 (35420)
thomas5000 Creative Commons License 2021.03.06 0 0 35420

Sziasztok!

 

A cellaegyesítéssel gyűlt meg kicsit a bajon. A problémám, hogy csak és kizárólag egyetlen egy cella tartalmazza ténylegesen az értéket, a többi 0.

Tehát pl.: A1 és A2 cella egyesítve van, de ha csinálok egy ilyen hivatkozást: =A2 az eredmény 0. Ha A1-re csinálom, akkor a normális értéket adja.

A baj az, hogy nekem szükségem lenne az A2-re is, aminek az értéke ugyanannak kéne lenni, mint az A1-nek. De sajnos nem így van.

 

Erre valami megoldást lehet esetleg találni?

 

Ui.: Az nem jó, hogy az előtte való értéket kérem tőle, mert összevissza vannak egyesítve, van ahol 2 cella csak, de alatta 3, az alatt megint 2, szóval nem tudná az excel melyikhez "tartozik".

Czipóth_Feri Creative Commons License 2021.03.06 0 0 35419

Az érdekes, hogy ha ezt benne hagyom, akkor mindig hibára fut. Viszont ha semleges tartományt adok meg, működik.

  If Not Intersect(Target, [B2:D8]) Is Nothing Then

 

Előzmény: Czipóth_Feri (35418)
Czipóth_Feri Creative Commons License 2021.03.06 0 0 35418

Hagyd.

Megoldottam úgy, hogy kivontam 1-t.

Előzmény: Czipóth_Feri (35417)
Czipóth_Feri Creative Commons License 2021.03.06 0 0 35417

ÉS ezt a kerekítést bele lehet tenni?

 

Azt hogyan lehet belekódolni, hogy a legkisebb érték a függőleges tengelyen a minimum érték egészre lefelekerekített értéke legyen? (Ne pedig a -1 és kerekítve a legközelebbi 5-tel osztható számra)

Lényegében a kerek.le függvény képlettel.

 

Pl. Ha  a legkisebb érték 16,75, akkor a függőleges érték legyen 16

Pl. Ha  a legkisebb érték 16,95, akkor a függőleges érték legyen 16

Pl. Ha  a legkisebb érték 17,25, akkor a függőleges érték legyen 17

Pl. Ha  a legkisebb érték 17,1, akkor a függőleges érték legyen 17

Előzmény: Delila10 (35416)
Delila10 Creative Commons License 2021.03.06 0 0 35416

Itt az új változat arra az esetre, mikor a másik fórumra kitett tartomány szerint kell a tengelyt módosítani.

 

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim minn As Single

 

   If Not Intersect(Target, [B2:D8]) Is Nothing Then
      minn = Int(Application.WorksheetFunction.Min(Range("B2:D8")))
      ActiveSheet.ChartObjects("Diagram 1").Activate
      ActiveChart.Axes(xlValue).Select
      ActiveChart.Axes(xlValue).MinimumScale = minn
   End If
End Sub

Előzmény: Czipóth_Feri (35415)
Czipóth_Feri Creative Commons License 2021.03.06 0 0 35415

szia, köszi, majdnem jó. :) 

Azt hogyan lehet belekódolni, hogy a legkisebb érték a függőleges tengelyen a minimum érték egészre lefelekerekített értéke legyen? (Ne pedig a -1 és kerekítve a legközelebbi 5-tel osztható számra)

Lényegében a kerek.le függvény képlettel.

 

Pl. Ha  a legkisebb érték 16,75, akkor a függőleges érték legyen 16

Pl. Ha  a legkisebb érték 16,95, akkor a függőleges érték legyen 16

Pl. Ha  a legkisebb érték 17,25, akkor a függőleges érték legyen 17

Pl. Ha  a legkisebb érték 17,1, akkor a függőleges érték legyen 17

Előzmény: pimre (35414)
pimre Creative Commons License 2021.03.04 0 0 35414

fogalmam sincs. Azt sem tudtam, hogy van ilyen küszöb.

Előzmény: Czipóth_Feri (35412)
pimre Creative Commons License 2021.03.04 0 0 35413

Megjegyzés: A lapon már meg kell lennie diagramnak, mégpedig elsőként. Ha nem az, akkor a neve nem Diagram 1.

Rákattintva: Diagrameszközök->Elrendezés->Tulajdonságok-ra megkapod a nevét.

Aztán az ActiveSheet.ChartObjects("Diagram 1").Activate sorban a nevet erre javítva működni fog.

 

Ettől kezdve, ha a B2:B8 tartományban bármit módosítasz mondjuk a 120-at felülírod akár seját magával, a progrma lefut, és skálázza a diagramot. Én ezt nem nevezném zoomlásnak, hiszen nem méretet csökkent vagy növel, hanem a diagram tartományát írja át.

Előzmény: Czipóth_Feri (35411)
Czipóth_Feri Creative Commons License 2021.03.04 0 0 35412

Egyébként ez a 20% küszöb miért van?

Előzmény: Czipóth_Feri (35401)
Czipóth_Feri Creative Commons License 2021.03.04 0 0 35411

Ok, köszi.

Le tudod írni nekem, hogy melyik sor mit jelent.

Nem működik teljesen jól, de ha megértem a kódot, akkor szerintem menni fog.

Előzmény: pimre (35410)
pimre Creative Commons License 2021.03.04 0 0 35410

Bocsw, hogy beleszólok, de magad is meg tudod csinálni.

 

1. Kijelölöd a kapott makrót. Kikopizod (Copy) Ctrl + C.

2. Megnyitod a munkafüzetedet amelyikben az adataid vannak.

3. Alt + F11-re megjelenik a VBA képernyő. 

4. A bal oldali listában kikeresed a munkalapot, amelyiken az adataid vannak. Duplaklikkel rákattintasz. Én például a Munk2-re klikkeltem.

5. Utána a középen megjelenő nagy méretű ablakra ráklikkelsz, majd beilleszted az 1. pontban kimásolt makrót:

 

 

6. Ezzel kész vagy. Alt + F11-el visszaállsz a munkalapra. 

7. A fájlt mented xlsm kiterjesztéssel (különben a makrót nem őrzi meg)

8. Innentől az xlsm kiterjesztésű fájlt használod.

Előzmény: Czipóth_Feri (35409)
Czipóth_Feri Creative Commons License 2021.03.04 0 0 35409

szia,

ha átküldöm a fájlt (emailodra), akkor bele tudod rakni nekem?

Előzmény: Delila10 (35406)
Fferi50 Creative Commons License 2021.03.04 0 0 35408

Szia!

Talán azért mert ez így nem függvény...

Ha össze szeretnéd adni, akkor pl. SZUM függvényt kell használnod.

Üdv.

Előzmény: Trodat72 (35407)
Trodat72 Creative Commons License 2021.03.04 0 0 35407

Sziasztok!

 

Excelben adott egy pár sor vagy oszlop, a bennük levő számokat akarnám összeadni ezzel a függvénnyel: =B4:F4 és összeadás helyet ezt írja ki #ÉRTÉK! Miért nem csinálja meg a kért műveletet?

 

Delila10 Creative Commons License 2021.03.04 0 0 35406

Látom, még nem jártál erre. Itt egy másik, laphoz rendelt makró. Ez akkor módosít a skála alján, ha valamelyik adatot átírod – itt a B2:B8 – tartományban.

 

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim minn As Long

   If Not Intersect(Target, [B2:B8]) Is Nothing Then
      minn = Application.WorksheetFunction.Min(Range("B2:B8"))
      minn = Application.WorksheetFunction.MRound(minn - 10, 5)
      ActiveSheet.ChartObjects("Diagram 1").Activate
      ActiveChart.Axes(xlValue).Select
      ActiveChart.Axes(xlValue).MinimumScale = minn
   End If
End Sub

Előzmény: Czipóth_Feri (35403)
Delila10 Creative Commons License 2021.03.04 0 0 35405

Egy laphoz rendelt eseményvezérelt makró megteszi.

Nálam az értékek a B2:B8 tartományban vannak.

A makró a lapra lépéskor fut le.

 

Private Sub Worksheet_Activate()
   Dim minn As Long

   ActiveSheet.ChartObjects("Diagram 1").Activate
   minn = Application.WorksheetFunction.Min(Range("B2:B8"))
   ActiveChart.Axes(xlValue).Select
   ActiveChart.Axes(xlValue).MinimumScale = minn
End Sub

Előzmény: Czipóth_Feri (35403)
t.lantos Creative Commons License 2021.03.04 0 0 35404

Mi az az excell?

Előzmény: Czipóth_Feri (35403)
Czipóth_Feri Creative Commons License 2021.03.04 0 0 35403

KÖszi, de azt akarom, hogy ez automatikus legyen, azaz ne kelljen semmit állítanom a tengelyen, hanem ha változnak a számok, akkor magától csinálja meg az excell.

Előzmény: Delila10 (35402)
Delila10 Creative Commons License 2021.03.04 0 0 35402

Az Y oszlop értékei határozzák meg. Ha nagyítani akarsz, ezekkel az értékekkel kell operálnod. Az alsó- és felső értékek közel legyenek az ábrázolandó értékekhez.

Előzmény: Czipóth_Feri (35401)
Czipóth_Feri Creative Commons License 2021.03.03 0 0 35401

Előzmény: Czipóth_Feri (35400)
Czipóth_Feri Creative Commons License 2021.03.03 0 0 35400

Sziasztok,

Hogyan lehet beállítani, hogy a diagramm az excellben automatikusan zoomoljon. (Ne manuálisan, azt ismerem.)

Van egy sejtésem, hogy ha a legnagyobb és legkisebb érték között 20%-nál nagyobb eltérés van, akkor nem zoomol, alatta pedig igen. Viszont akkor ezt a 20%-t át lehet írni? Vagy más ötlet?

axemiskolc Creative Commons License 2021.03.03 0 0 35399

Nem, az első kérdés nem a kitűzésről szól, ezért is írtam, hogy másik anomália ;)

Előzmény: pimre (35397)
pimre Creative Commons License 2021.03.02 0 0 35398

Megnéztem ezt a kitűzés dolgot.  Soha nem volt dolgom vele. Itt: http://forum.index.hu/Article/viewArticle?a=140528027&t=9221319 kiderült, hogy a tálcára rögzített alkalmazás (pl. Excel) jobb gombos listájához lehet rendelni gyakram használt fájlokat (kitűzés), amiket aztán inen is meg lehet nyitni. Ebből kiderült, hogy a kérdésed tényleg nem Excel kérdés, hanem Windows 10. Kérdezd meg abban a topikban!

Előzmény: pimre (35397)
pimre Creative Commons License 2021.03.02 0 0 35397

Ja, hogy a kitűzöttekről beszélsz. Ezt mondhattad volna.  Majd este megnézem.

Előzmény: axemiskolc (35396)
axemiskolc Creative Commons License 2021.03.02 0 0 35396

Sajnos nem a megnyitás sorrendjében maradnak.

Egyszerűen nem lehet megfejteni, hogy mi szerint változik a helyük.

Másik anomália (ld. a képen) a kitűzött táblázatok között kétszer jelenik meg a rendelési táblázat, ha bármelyiket kitörlöm akkor meg egyszer sem.

 

Ja, Professional plus 2019 a verzió alatt történnek ezek a csodák.

 

Előzmény: pimre (35392)
Delila10 Creative Commons License 2021.03.02 0 0 35395

Érvényesítésekkel oldhatod meg.

Nézd meg a Névkezelőt is. Figyeld meg, hogy a cégek neveiben a szóközöket alsó kötjelekre cseréltem, mert az elnevezésekben az Excel nem fogadja el a szóközt.

http://www.filedropper.com/telephelyek

Előzmény: srac9401 (35393)
Eredő Vektor Creative Commons License 2021.03.02 0 0 35394
Előzmény: srac9401 (35393)
srac9401 Creative Commons License 2021.03.02 0 0 35393

Sziasztok!

 

Adott egy 18.000 soros excel tábla. Cégekadatok szerepelnek benne, egy cégnév többször is szerepelhet benne. 1 székhely és több telephely mind eltérő címekkel. A táblában további általános vannak a cégekhez hozzárendelve, telefonszám, email cím, kapcsolattartó stb.

 

Egy olyan megoldást keresek, hogy egy cégenként csak a székhely jelenik meg alapesetben, de ha vannak további telephelyek, a címet tartalmazó cellából ki lehet választani cím szerint őket, és a kiválasztott telephelynek megfelelően változnak a további általános adatok a teljes sorban (telefonszám, e-mail, stb.)

 

Hogy tudnám ezt megoldani? Előre is köszi

pimre Creative Commons License 2021.03.01 0 0 35392

Szerintem a munkafüzetek megnyitásának sorrendje határozza meg a Tálcán (Tray) azok megjelenítési sorrendjét. Nem hinném, hogy korábban másképp volt.

 

 

És ez szerintem nem Excel probléma, ott ugyanis office 2010 alatt csak egy dolgot tudtam szabályozni, hogy a megnyitott munkafüzetek egy ablakban nyíljanak meg, vagy sem:

 

 

Most Office 2019 alatt még ezt sem látom, de a sorrendre vonatkozó módosítás lehetőségét sem.

Előzmény: axemiskolc (35390)
tekeoff Creative Commons License 2021.03.01 0 0 35391

Sziasztok!

Tudnátok segíteni a csatolt minta alapján?

Egy program kimenti a táblázatba az abban található gépeket a csatlakozásaikkal (program által kinyert adatbázis). Ha egy gépnek több csatlakozásai is van (példa szerint elektromos, légtechnikai, víz és lefolyó) akkor azt annyi sorba hozza ahányféle csatlakozás van, tehát itt 4 külön sorom lesz. A célom az lenne, hogy úgy konvertáljam át a táblázatot, hogyha a B oszlop értékei azonosak, akkor csak egy sorban írja az adatokat, külön oszlopokba ahogy az az "átkonvertált formátumban" látható.  

Ez megoldható?

https://tecogastro-my.sharepoint.com/:x:/g/personal/admin_tecogastro_onmicrosoft_com/EdBBRNPpp1lHhY70fo0d4xMBX6TuBKQkUg9052zhaJgmyQ?e=BQm55s

axemiskolc Creative Commons License 2021.03.01 0 0 35390

Sziasztok!

Kerestem, hogy feltettem-e már a kérdést de nem találtam,bocs ha régebben volt!

A munkafüzetek megjelenítésének sorrendje ( amikor az excel fölé viszem az egeret) állandóan változik de nem tudok rájönni, hogy miért! 

Több munkafüzetet használunk egyszerre, de az első 5 mindig ugyanaz.

Egy ideje változott valami és roppant zavaró módon összevissza kóborolnak. Néztem, hogy a módosítás ideje vagy az elnevezés a lényeg, de nem jöttem rá mi alapján rakja sorba.

Remélem érthető!

Van ötletetek,hogy mi lehet a megoldás vagy egyáltalán mi a beállítás neve?

pimre Creative Commons License 2021.02.20 0 0 35389

Egyébként a problémától függetlenül van egy észrevételem a makróddal kapcsolatban:

 

A BeforeClose utáni sorban az Application.EnableEvents = True ebben a használatban hibás. Ugyanis a BeforeClose eseménybe be sem lépne, ha nem True lenne az értéke. 

Ezt fordítva szokás használni. Az eseménykezelőbe belépve Application.EnableEvents = False paranccsal kikapcsoljuk az eseménykezelést, hogy amíg be nem fejeződött, ne ugorjon másik eseményre, majd a kilépést megelőző - az End Sub előtti - sorban visszaállítjuk True értékre.

Előzmény: capsicum (35381)
pimre Creative Commons License 2021.02.20 0 0 35388

"Több helyen olvastam, hogy a jelenség az Office frissítésével megoldódott.

 

Ez igaz. Én most Office 2019 alatt kipróbáltam, és hibátlanul működik. 

Előzmény: capsicum (35387)
capsicum Creative Commons License 2021.02.19 -1 0 35387

Igen, úgy tűnik, nincs mit tenni, bele kell törődni.

Több helyen olvastam, hogy a jelenség az Office frissítésével megoldódott.

Sajnos, ezt nem tudom tesztelni. 

Előzmény: Fferi50 (35386)
Fferi50 Creative Commons License 2021.02.19 0 0 35386

Szia!

Ez Redmond bűne....

Együtt kell(ene) vele élni.

Üdv.

Előzmény: capsicum (35385)
capsicum Creative Commons License 2021.02.19 -1 0 35385

Szia!

 

Igen, a Fájl -> Bezárás esetében mindig lefut a Workbook_BeforeClose.

A jobb felső sarokban lévő X-el csak egyszer fut le.

Idáig viszont az alábbi konfiguráción tökéletesen működött/működik, a jobb felső X-el is minden esetben lefutott a Workbook_BeforeClose. Ezért gondoltam, hogy az új platformon is működnie kellene.

 
 - Windows 7 (64 bit)
 - Microsoft Office Professional Plus 2010 (32 bit)
 - Excel 2010 (14.0)

Előzmény: Fferi50 (35384)
Fferi50 Creative Commons License 2021.02.19 0 0 35384

Szia!
Hogyan kezdeményezed a kilépést?

Ha a jobb felső X gombbal, akkor ez a jelenség valóban. Sajnos ezt nem lehet megkerülni, mert az X gomb Windows alatt érvényesül és nem az Excel alatt sajnos, ezért a BeforeClose eseménykezelő is csak 1x tud lefutni.

Amikor a Fájl-Bezárás menüpontokat használod, teljes mértékben érvényes az eseménykezelés és minden esetben megkérdezi amit szeretnél.

Üdv.

 

Előzmény: capsicum (35381)
capsicum Creative Commons License 2021.02.19 -1 0 35383

Köszönöm szépen, sajnos nem oldotta meg.

Előzmény: Garashan (35382)
Garashan Creative Commons License 2021.02.19 0 0 35382

Szia!

Próbálj meg benne elhelyezni 1-2 "DoEvents" függvényt.

Valahogy így:

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  DoEvents

  DoEvents

  Application.EnableEvents = True

  If MsgBox("Valóban kilépsz?", vbQuestion + vbYesNo, "Adatvédelem") = vbYes Then

   ThisWorkbook.Saved = True

   Cancel = False

  Else

    ThisWorkbook.Saved = False

    Cancel = True

  End If

End Sub

 

Ez lehet, hogy megoldja a problémádat.

Előzmény: capsicum (35381)
capsicum Creative Commons License 2021.02.19 -1 0 35381

Sziasztok!

 

Már elég régen jártam itt, de most megint egy bosszantó problémába ütköztem.


Van egy kis eljárás, ami az Excel bezárási kezdeményezéskor:
 - megkérdezi, hogy valóban kilép-e
 - mentés nélkül bezárja az Excel-t.

Ez idáig az alábbi konfiguráción tökéletesen működött/működik:
 - Windows 7 (64 bit)
 - Microsoft Office Professional Plus 2010 (32 bit)
 - Excel 2010 (14.0)

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  Application.EnableEvents = True

  If MsgBox("Valóban kilépsz?", vbQuestion + vbYesNo, "Adatvédelem") = vbYes Then

   ThisWorkbook.Saved = True

   Cancel = False

  Else

    ThisWorkbook.Saved = False

    Cancel = True

  End If

End Sub

 

A problémán az, hogy egy újabb konfiguráció alatt:
 - Windows 10 (64 bit)
 - Microsoft Office Professional Plus 2016 (32 bit)
 - Excel 2016 (16.0)

nem jól működik, olyan, mintha a „Workbook_BeforeClose” esemény csak egyszer futna le, amennyiben az első kilépési kezdeményezéskor a kérdésre a „Nem” opciót választom, a következő kilépési kezdeményezéskor már csak a hagyományos beépített kilépés előtt kérdéseket teszi fel (Ment; Nincs mentés; Mégsem).

Tudna valaki segíteni?

 

Redlac Creative Commons License 2021.02.18 0 0 35380

Ez szuper ötlet, köszönöm. Az általad leírt verzióban lefelé visszament az elejére, felfelé azonban továbbra is kilépett. Ezen kívül, ténylegesen nem tudtam kiválasztani az utolsó elemet, mert ha ekkor szerettem volna kilépni, egyből átugrott a nulladikra. Ezért kicsit átalakítottam. 

 

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   With Me.ComboBox1
      If .ListIndex = .ListCount - 1 Then .ListIndex = -1: Cancel = True

      If .ListIndex = 0 Then .ListIndex = 0: Cancel = True
   End With
End Sub

 

Ezen kívül a listák elejére és végére betettem egy üres cellát. Így a nyílbillentyűket nyomva nem körbepörög, hanem megáll az utolsó (üres) értéken. Azonban mivel erre nincsen szükségem, így bármelyiket kiválasztva onnan már ki tudok lépni a combobox-ból.

Előzmény: Fferi50 (35379)
Fferi50 Creative Commons License 2021.02.18 0 0 35379

Szia!

Nálam a Listbox nem lépett ki az általad leírt események során.

A Combobox-ra próbáld ki az alábbiakat a Userform kódlapjára írva:

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.ComboBox1
If .ListIndex = .ListCount - 1 Then .ListIndex = 0: Cancel = True
End With
End Sub

Természetesen a saját vezérlő neveddel.

Ha a Listbox is kilép, akkor ugyanígy megnézheted arra is ezt a kódot.

Üdv.

Előzmény: Redlac (35378)
Redlac Creative Commons License 2021.02.18 0 0 35378

Sziasztok!

 

Userform felületen Listbox és Combobox objektumokat használok, amikhez forrásnak egy-egy tartomány van csatolva.

A formon alapvetően a billentyűzettel haladunk, tehát a listboxban is le- és felbillentyűkkel állunk a választott szövegre, majd TAB-bal megyünk tovább. 

Az a gondom, hogy a listboxon (vagy combobox) állva ha a le- vagy felnyilakkal elérem a tartomány legalsó vagy legfelső adatát, akkor kilép a boxból és az előző (felfelé nyílnál) vagy a következő (lefelé nyílnál) boxba átlép.

Meg lehet-e oldani, hogy a legalsó vagy legfelső elérésekor álljon meg, és ne lépjen ki az aktív boxból?

thomas5000 Creative Commons License 2021.02.14 0 0 35377

Tökéletes. Pont ilyet szerettem volna. Nagyon szépen köszönöm a segítséget!

Előzmény: Fferi50 (35376)
Fferi50 Creative Commons License 2021.02.14 0 1 35376

Szia!

Beteheted a hibaüzenet elnyomást a makró elejére:

Application.DisplayAlerts=False

Ezután pedig:

On Error Resume Next

A makró végén pedig

Application.DisplayAlerts=True

On Error Goto 0

 

Üdv.

Előzmény: thomas5000 (35375)
thomas5000 Creative Commons License 2021.02.14 0 0 35375

Szia!

 

Köszönöm a válaszod! Betettem ezt a kiegészítést, de sajnos nem változott. Amint olyan cellához ér, ahol nem képnévvel egyező cella van, 1004-es hibát dob, és nem fut tovább.

Előzmény: Fferi50 (35374)
Fferi50 Creative Commons License 2021.02.14 0 1 35374

Szia!

A mielőtt a kép nevét meghatároznád, meg kell nézzed, hogy az adott sor képnevet tartalmazó cellájában van-e érték:

Pl.

For sor = 7 to 18

If cells(sor,"B").Value<>"" Then

    Kepneve....stb

End If

Next

A többinél hasonlóképpen.

Üdv.

Előzmény: thomas5000 (35373)
thomas5000 Creative Commons License 2021.02.14 0 0 35373

Sziasztok!

 

Van egy makróm, ami tökéletesen működik. A cella értékével megegyező nevű képet odarakja egy mappából.

Így néz ki:

 

Sub Kepek()

ActiveSheet.DrawingObjects.Delete

Dim Kepneve As String, utvonal As String, sor As Long

utvonal = "d:Tomiflags_excel" '***


For sor = 7 To 18
Kepneve = Mid(Cells(sor, "B"), InStr(Cells(sor, "B").Value, " ") + 1) & ".png" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)

.Top = Rows(sor).Top - (Rows(sor).Height + 1 - .Height) / 2
.Height = 15
.Left = Columns(2).Left + Columns(2).Width - .Width

End With
Next
For sor2 = 7 To 26
Kepneve = Mid(Cells(sor2, "P"), InStr(Cells(sor2, "P").Value, " ") + 1) & ".png" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor2).Top - (Rows(sor2).Height + 1 - .Height) / 2
.Height = 15
.Left = Columns(16).Left + Columns(16).Width - .Width

End With
Next
For sor3 = 7 To 26
Kepneve = Mid(Cells(sor3, "AD"), InStr(Cells(sor3, "AD").Value, " ") + 1) & ".png" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor3).Top - (Rows(sor3).Height + 1 - .Height) / 2
.Height = 15
.Left = Columns(30).Left + Columns(30).Width - .Width

End With
Next

For sor4 = 7 To 26
Kepneve = Mid(Cells(sor4, "AR"), InStr(Cells(sor4, "AR").Value, " ") + 1) & ".png" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor4).Top - (Rows(sor4).Height + 1 - .Height) / 2
.Height = 15
.Left = Columns(44).Left + Columns(44).Width - .Width

End With
Next
For sor5 = 7 To 24
Kepneve = Mid(Cells(sor5, "BF"), InStr(Cells(sor5, "BF").Value, " ") + 1) & ".png" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Top = Rows(sor5).Top - (Rows(sor5).Height + 1 - .Height) / 2
.Height = 15
.Left = Columns(58).Left + Columns(58).Width - .Width

End With
Next
End Sub

 

 

A problémám vele annyi csak, hogy ennél a makrónál nem maradhat ki sor, mert különben hibát dob.

Az lenne a kérdésem, hogy ezt esetleg átlehetne úgy írni, hogy tartományt vizsgáljon.

Tehát például az 1. és a 6. sorban szeretném beilleszteni képeket a C, E, F, G, I, M oszlopoknál.

 

A segítségeket előre is köszönöm!

forzajuvee Creative Commons License 2021.02.13 0 0 35372

Sziasztok!

Mi lenne az egyszerű módja automata kitöltéssel, hogy pl. 15 nevet egyenlő arányban elosszak egy több ezer soros táblában és mindegyik sorba be is írjam a nevet (pl. 2400 sor, 15 ember, akkor az 160 sorba az első ember neve, a második 160 sorba a következő ember neve, stb.)

Köszönöm szépen!

Redlac Creative Commons License 2021.02.12 0 0 35371

Sziasztok!

 

VBA-val email küldésében kérek segítséget.

 

Régóta használjuk ezt, de most a részben állandó tartalmak mellé bekerültek változók, valamint egy táblázat részlete is.

 

With email
   .To = Címzett
   .Cc = Másolatok
   .Subject = "Kmentés_" & Psz & "_" & TipK & "_" & WKm.Cells(sor, 6) & Atadva
   .Display
End With

 

Eddig nincs gond, a változókat remekül kezeli. A probléma a bodyval van.

 Az email szövege egy megszólítással kezdődik

 

Sendkeys "Tisztelt Főni! '(ez állandó)

 

Sendkeys "Tájékoztatom, hogy az ekkor és ekkor történt ilyen meg olyan valami megvalósult" '(ebben a szövegben változókból kapjuk meg a mondatot)

 

Majd itt jön egy táblázat meghatározott részének a bemásolása

 

Sheets("Kmentés").Range("A2:" & Sm & "5").Copy
SendKeys "^v"

SendKeys "{ENTER}"
SendKeys "{ENTER}"

SendKeys "Ide még jön egy lezáró szöveg, ami szintén állandó"

 

Tehát 4 részből áll össze a szöveg:

1. Megszólítás

2. Változó szöveg

3. Táblázat

4. Állandó szöveg

 

Alapvetően azt gondoltam, hogy mindegyik részt copy pasteval illesztem be egymás után. Azonban ha ebben a részben egynél több copy pastet szeretnék, annak ellenére, hogy egyenként másolom a meghatározott tartományt, majd illesztem be, mégis csak az egyik tartományt másolja be, de azt háromszor. 

Ha sendkeys-szel írom be a szöveget, akkor meg a szövegben lévő "í" betűt nem ismeri fel, és annak a helye karakter nélkül marad.

 

Milyen módon lehetne mégis pofásan megoldani ezt?

 

pimre Creative Commons License 2021.02.09 0 0 35370

"A kérdező pont az iránt érdeklődött, lehet-e egy billentyű kombinációhoz kötni az indulást."

 

Igen, de csak miután már elküldtem a makrót. És akkor meg azt is írta, hogy " Látom, kattintásra működik. Az is jó." Ezért aztán nem töprengtem más megoldáson, bár Delila duplaklikkes megoldása talán ésszerűbb lehetett volna.

 

 

Előzmény: Fferi50 (35369)
Fferi50 Creative Commons License 2021.02.09 0 0 35369

Szia!

Bocsánat, de miért kellene ezt a makrót eseménykezelésként futtatni? A kérdező pont az iránt érdeklődött, lehet-e egy billentyű kombinációhoz kötni az indulást. Miért ne lehetne?

"Az elindulást nem tudom megakadályozni"

Ha "sima" makróként használjuk - akár a munkalap kódlapján is, akkor a makróhoz hozzá lehet rendelni billentyű kombinációt. 

Vagyis így a felhasználó dönti el, hogy mikor indítja a makrót!

Üdv.

Előzmény: pimre (35366)
Johnnyman Creative Commons License 2021.02.09 0 0 35368

Köszönöm, értem.

Előzmény: pimre (35366)
Johnnyman Creative Commons License 2021.02.09 0 0 35367

Ezt is nagyon köszönöm.

Előzmény: pimre (35365)
pimre Creative Commons License 2021.02.09 0 0 35366

"De ha billentyűhöz lehetne adni, és csak akkor indítanám amikor én szeretném. Jobb lenne."

 

Az elindulást nem tudom megakadályozni, de azért tettem bele a kérdést. Hogy ha más célból kattintottál a cellára, vagy véletlenül, akkor választhasd, hogy ne csináljon semmit.

 

Lehetne más trükköt használni, például a Delila által javasolt duplaklikket, de még akkor is előfordulhat a téves duplaklikk. Egyéb megoldás meg szerintem túlbonyolított lenne.

Előzmény: Johnnyman (35361)
pimre Creative Commons License 2021.02.09 0 0 35365

Nem gond. Én azért jelöltem ki az első oszlopot, hogy ne zaklasson kérdéssel, bárhova kattintasz. De persze az is jó, ha te adod meg az oszlopot, amelyik reagál.

 

Ehhez cseréld le a 4. sort

 

If Target.Column > 1 Then Exit Sub ' Csak akkor foglalkozunk vele, ha az első oszlopba kattint

 

erre, és az "A" helyére írd a saját prferált oszlopod nevét:

 

If Target.Column <> oszlopszam("A") Then Exit Sub ' Csak akkor foglalkozunk vele, ha az adott oszlopba kattint

Előzmény: Johnnyman (35362)
Johnnyman Creative Commons License 2021.02.09 0 0 35364

Ez is jó. :) Neked is Köszönöm.

Előzmény: Delila10 (35363)
Delila10 Creative Commons License 2021.02.09 0 0 35363

Egy másik megoldás, ami a sor (amelyik alá be akarsz szúrni) bármelyik celláján duplaklikkre másol:

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim sor As Long, oszlop As Integer
   sor = Target.Row + 1
   Rows(sor).Insert
   Cells(sor, "A") = Cells(sor - 1, "A")
   For oszlop = 4 To 8
      Cells(sor - 1, oszlop).Copy Cells(sor, oszlop)
   Next
   Cells(sor, "K") = Cells(sor - 1, "K")
   For oszlop = 15 To 22
      Cells(sor - 1, oszlop).Copy Cells(sor, oszlop)
    Next
   Cancel = True
End Sub

Előzmény: Johnnyman (35356)
Johnnyman Creative Commons License 2021.02.09 0 0 35362

Köszönöm. Sajnos nem tudom, lehet e a korábbi hozzászólásokat módosítani. Látom, kattintásra működik. Az is jó. De mit és hol kellene átírni, hogy inkább az általam választott oszlop cellájában kattintva működjön és ne az A oszlopban. 

Előzmény: pimre (35359)
Johnnyman Creative Commons License 2021.02.09 0 0 35361

Bocsánat, történik. Így is jó.

De ha billentyűhöz lehetne adni, és csak akkor indítanám amikor én szeretném. Jobb lenne.

Előzmény: Johnnyman (35360)
Johnnyman Creative Commons License 2021.02.09 0 0 35360

Köszönöm.

Mivel lehet elindítani? (Nem mindig van rá szükség.) Billentyűhöz szeretném rendelni. Bemásoltam, de nem történik semmi.

Előzmény: pimre (35359)
pimre Creative Commons License 2021.02.09 0 0 35359

A következő programot másold be a használandó munkalapod kódterületére:

 

Használat:

1. A második sorban a másolás után kijavítod a listát a neked megfelelőre, a meglévő szabályokat betartva, azaz a cellákat vesszővel választod el, és kötőjellel tatományt is megadhatsz.

2. Egyelőre korlát, hogy legfeljebb 100 cella lehet a felsorolásban. Ha kevés lenne, akkor az ötödik sorban a Dim cellalista(100) étrékét növelheted tetszés szerint.

3. A program csak akkor lép működésbe, ha az adott soron az A oszlopra ugrasz. Ekkor megkérdezi, hogy tényleg szeretnéd-e beszúrni akiválasztott cellákat a következő sorba,

4. A program először végéigmegy a megadott cellalistádon,és ha az hibátlan, akkor kezdi el a beszúrást. Így ha elhibáztad a listát, és elakad a program, akkor nem történik semmi. 

5. A program első sora az Option Explicit. Ha nálad alapértelmezésben megjelenik, akkor az egyiket ki kell törölni. Ne legyen duplán.

 

Option Explicit 

Const oszlopok As String = "A, D-H, K, O, P-V"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column > 1 Then Exit Sub ' Csak akkor foglalkozunk vele, ha az első oszlopba kattint

Dim cellalista(100) As Long, cellasorszam As Long, valaszertek As String, szoveg As String, vhely As Long, khely As Long, aktoszl As String, kbetu As String, vbetu As String, i As Long

szoveg = Target.Row & ". sor " & Trim(oszlopok) & " celláinak beszúrása a következő sorba. Mehet?"

valaszertek = vbYesNo + vbExclamation

valaszertek = MsgBox(szoveg, valaszertek, "Biztos?")

If valaszertek = 6 Then ' Az Igen értéke 6

    cellasorszam = 0

    szoveg = Trim(oszlopok)

    While Len(szoveg) > 0

        vhely = InStr(szoveg, ",")

        If vhely = 0 Then

            aktoszl = szoveg

            szoveg = ""

        Else

            aktoszl = Trim(Left(szoveg, vhely - 1))

            szoveg = Trim(Mid(szoveg, vhely + 1))

        End If

        khely = InStr(aktoszl, "-")

        If khely = 0 Then

            kbetu = oszlopszam(aktoszl)

            vbetu = kbetu

        Else

            kbetu = oszlopszam(Trim(Left(aktoszl, khely - 1)))

            vbetu = oszlopszam(Trim(Mid(aktoszl, khely + 1)))

        End If

        For i = kbetu To vbetu

            cellasorszam = cellasorszam + 1

            cellalista(cellasorszam) = i ' feljegyezzük a másolandó oszlopot

        Next i

    Wend

    ActiveSheet.Rows(Target.Row + 1).EntireRow.Insert ' beszúr egy üres sort.

    For i = 1 To cellasorszam

        ActiveSheet.Cells(Target.Row, cellalista(i)).Copy ActiveSheet.Cells(Target.Row + 1, cellalista(i))

    Next i

End If

End Sub

'*******************************************************************************************************

'                               Oszlopnévből oszlopszám kiszámítás

'*******************************************************************************************************

Function oszlopszam(oszlopnev As String) As Long

oszlopszam = Cells(1, oszlopnev).Column

End Function

 

 

Előzmény: Johnnyman (35358)
Johnnyman Creative Commons License 2021.02.09 0 0 35358

Ahhoz képest a következő sorba szúrjon, ahol épp állok. 

Johnnyman Creative Commons License 2021.02.09 0 0 35357

Elnézést, az lemaradt, hogy a sorbeszúrás a következő sorba történjék, épp ott, ahol állok.

Johnnyman Creative Commons License 2021.02.09 0 0 35356

Egyszerű excel használóként olyan SORBESZÚRÁS makróhoz szeretnék segítséget kérni, ami előző sor meghatározott celláit másolja a beszúrt sorba.
Pl. A, D-H, K, O, P-V oszlop előző kitöltött sor celláit másolja. A segítséget előre is köszönöm.

pimre Creative Commons License 2021.02.08 0 0 35355

Bocs de ez nem valószínú. Ugyanis az Option Explicit mindig megjelenik a kód ablakban, ha a VBA settings alatt a Require Variable Declaration mellé kitettem a pipát. Ettől még nem válik makróvá a tartalom. Legalábbis szerintem csak egy Sub/End Sub pár megléte esetén lesz belőle makró.

 

És érdekesség, hogy amikor valódi makró esetén találom ezt az üzenetet, akkor a tartalom engedélyezése gombra kattintva legközelebb nem jelenik meg újra. De itt minden megnyitáskor előjött.

 

Viszont azt hiszen megtaláltam az okot: Rákattintottam az "A rendszer letiltotta a makrókat" szövegre, és a következő jelent meg:

 

 

Ezután megkerestem a hivatkozott fájlt, megnyitottam, és ezt találtam:

 

 

És valóban, korábban használtam az egyenletszerkesztőt, így az történhetett, hogy amikor visszaraktam a rendszer korábbi állapotát, a rendszer úgy érzékelhette, mintha újrainstalláltam volna a word-öt. Most uninstalláltam a Math Type-ot, és megszűnt a hibaüzenet.

 

 

 

 

Előzmény: Eredő Vektor (35354)
Eredő Vektor Creative Commons License 2021.02.08 0 0 35354

Az itt látható "Option Explicit" szerintem már épp elég ahhoz, hogy a biztonsági beállítások visszabeszéljenek.

Előzmény: pimre (35353)
pimre Creative Commons License 2021.02.07 0 0 35353

Sziasztok, nem igazán Excel problémám van, de a Word topikban kevesebb esélyem van válaszra.

 

Szóval az történt, hogy a Windows 10 elkezdett furcsán viselkedni, és biztos, ami biztos, visszaállítottam a rendszert egy 3 héttel ezelőtti állapotra (akkor mentettem utoljára a kiváló Macrium Reflect programmal). Ez sikerült is, de - talán ettől függetlenül? - a Word dokumentumok megnyitásakor közli az Office, hogy letiltotta a makrókat, és kéri, hogy engedélyezzem. A konkrét fájlt nemrég hoztam létre, egy új TV 300 oldalas használati utasításából írtam ki részleteket. Ebben egyértelűen nincs makró:

 

 

Az Excel és a Powerpoint fájlokkal nincs ilyen probléma. Az Office egyébként 2019-es, noha a Fájl->fiók kérdésre office 365-nek mondja magát, de nyilván egy tőről fakad a kettő)

 

Találkoztatok hasonlóval? Egyszerű lenne rákattintani, hogy engedélyezem, de azért óvatos szeretnék lenni. Érdekelne, hogy egyáltalán mitől van a figyelmeztetés.

 

 

 

 

Fferi50 Creative Commons License 2021.02.04 0 0 35352

Szia!

Ebben az esetben a sorban mellette levő cellára futtasd a makrót légy szíves és ott a másik állvány adatait hagyd meg.

Még valami:

Ctrl + u billentyű kombináció indítja a makrót. Ezt elfelejtettem.

Üdv.

Előzmény: dorogszu (35351)
dorogszu Creative Commons License 2021.02.04 0 0 35351

Minden jól működik nagyon sok időt spóroltál:)

Egy kérdés amennyiben több állvány van a B oszlop egyik cellájában a táblázatból kiindulva pl. a B62 cellában ez is megtalálható:

 

"Állvány méretek:
3 x 3 x 8 m
1 x 1 x 3 m"

 

akkor ugye a makró az első 3x3x8 állványt kiszámolva be tudom írni az eredményt (72), de az 1x1x3  állvány ugye kimarad. Nem gond mert a 40 karakteres kivágás során látom, hogy lesz ott még egy állvány ezért ezt a sort a jegyzettömbben felírom és a munkafolyamat végeztével egy másik cellába kiértékelem a második állvány adatait s akkor megvan. Erre látsz esetleg megoldást?

 

S mégegszer köszönöm a hozzááálásod

Előzmény: Fferi50 (35350)
Fferi50 Creative Commons License 2021.02.04 0 0 35350

Nincs mit. Szeretem a kihívásokat. Simán elképzelhető, hogy lesznek benne hibák, hiányosságok is. Akkor csak írj bátran.

Üdv.

Előzmény: dorogszu (35349)
dorogszu Creative Commons License 2021.02.04 0 0 35349

Hát le vagyok nyűgözve. Szóhoz sem jutok ez akkora segtség! KÖSZÖNÖM SZÉPEN! Nagyon hálás vagyok.

Fferi50 Creative Commons License 2021.02.04 0 0 35348

Már letölthető.

Előzmény: pimre (35347)
pimre Creative Commons License 2021.02.04 0 0 35347

Bocs, figyelmetllen voltam.

Előzmény: Fferi50 (35345)
James 42 Creative Commons License 2021.02.04 0 0 35346

De hiszen megírta, hogy esetleg várni kell a letöltés előtt a vírusellenőrzésre!

Előzmény: pimre (35343)
Fferi50 Creative Commons License 2021.02.04 0 0 35345

Szia!

Írtam a bejegyzés végén, hogy vírusellenőrzés miatt csak később lehet a fájlt letölteni.

Nekem is ezt mondja egyenlőre. Ezt több órába is beletelhet.

Üdv.

Előzmény: pimre (35344)
pimre Creative Commons License 2021.02.04 0 0 35344

Bocs, a Fer természetesen Feri akart lenni.

Előzmény: pimre (35343)
pimre Creative Commons License 2021.02.04 0 0 35343

Szia Fer, megpróbáltam letölteni a linket, de nem sikerült. Ez jelent meg:

 

Lehet, hogy én bénáztam el valamit, de az a gyanúm, hogy a kérdezőnek sem fog sikerülni.

 

 

Előzmény: Fferi50 (35342)
Fferi50 Creative Commons License 2021.02.04 0 0 35342

Szia!

https://data.hu/get/12784173/LD2_leallas_Panen.xlsb  fájlban van egy makró és egy form. A kettő segítségével könnyebb lehet a keresés és számolás.

A makró neve: szamol.

             használata: Feltétel, hogy a B oszlopban legyenek a szöveges adatok.

             kijelölsz egy - vagy több cellát abban az oszlopban, ahová az eredményt szeretnéd megkapni.

             ezután Fejlesztőeszközök - Makrók - szamol - indítás

             A makró végigmegy a kijelölt cellákon.

             Amennyiben nem talál Állvány szót az adott sor B oszlopában, akkor üzenetet kapsz.

             Amennyiben talál, akkor megjeleníti az Állvány szótól kezdődő 40 karaktert egy form szövegmezőjében. Ebben a                     mezőben szerkesztheted a szöveget - azaz kitörölheted a nem releváns részeket. A lényeg, hogy csak a három szám 

             maradjon x -ekkel elválasztva.

             Ezután a számold ki feliratú gombra kattintva megjelenik az eredmény a szövegmező alatt. Ha nem jól szerkesztetted               a szöveget, hibás eredmény üzenetet kapsz. Ekkor visszamehetsz a szövegmezőbe.

             Ha jó az eredmény, akkor a Beíró gombra kattintva beírhatod az adott cellába az eredményt.

             A Kilépés gombra kattintva kiléphetsz az adott cella számításából.   

             A folyamat akkor fejeződik be, ha elfogynak a kijelölt cellák vagy a B oszlopban üres cella van (például a cella                         összevonások miatt most a 3.4 sor üres)

Szerintem a használat magáért beszél.

Elképzelhető, hogy a fájl vírusvizsgálat miatt csak később tölthető le.

Üdv.

Előzmény: dorogszu (35338)
Delila10 Creative Commons License 2021.02.04 0 0 35341

"Az adatok sajnos egy cellában vannak"

Ezért kellene a villámkitöltést alkalmaznod.

Előzmény: dorogszu (35333)
Fferi50 Creative Commons License 2021.02.04 0 0 35340

Szia!

Támadt egy ötletem, megnézem, hogy mennyire releváns.

Légy kicsit türelmes.

Üdv.

Előzmény: dorogszu (35338)
Fferi50 Creative Commons License 2021.02.04 0 0 35339

Szia!

Ha lenne valamilyen szabály - akármilyen bonyolult legyen is - akkor akár képlettel, akár makróval megoldható lenne.

De ha mindenki kénye-kedve szerint írja be a szövegeket, akkor sajnos nem. Hiába veszed fel az eddig megtalált összes verziót, ha utána jön valaki és egy sokadik, eddig nem szereplő változatot talál ki. :(

Üdv.

Előzmény: Sánta Kutya (SK) (35335)
dorogszu Creative Commons License 2021.02.04 0 0 35338

Kigúvad a szemem 

 

Előzmény: James 42 (35337)
James 42 Creative Commons License 2021.02.04 0 0 35337

Mi az a gürü? A guru és a gülü törvénytelen gyereke?  :-)

Előzmény: dorogszu (35336)
dorogszu Creative Commons License 2021.02.04 0 0 35336

Feladtam. Amit tudok hasznosítok belőle már így is könnyebb. Köszönöm a segítséget mindenkinek! Marad a gép és a gürü szem:)

 

Előzmény: Sánta Kutya (SK) (35335)
Sánta Kutya (SK) Creative Commons License 2021.02.04 0 0 35335

Erre mondják a büntetőjogban, hogy alkalmatlan tárgyon elkövetett adatfeldolgozási kísérlet. :-)

Úgy emlékszem, makróban lehet reguláris kifejezést használni, az talán segít, de én ebbe bele nem ásom magam.

Előzmény: Fferi50 (35334)
Fferi50 Creative Commons License 2021.02.04 0 0 35334

Szia!

Csak gratulálni tudok annak, aki ezt így kitalálta!

Szerintem erre nem lehet igazán működő képletet, sőt makrót sem kitalálni. Annyi féle változat van "állványra", hogy egyszerűen nincs rá szabály.

Ezzel a képlettel:

=HAHIBA(SZÖVEG.KERES("Állvány";$B2)>0;HAMIS())

meg tudod állapítani, hogy van-e Állvány szó a szöveggarmadában.

Ezzel pedig:

=KÖZÉP($B2;SZÖVEG.KERES("Állvány";$B2);40) 

kivághatod az "Állvány"-nyal kezdődő 40 karaktert, amiből már láthatod, mivel kell számolnod. A második paramétert változtathatod, ha úgy gondolod, hogy keveset látsz a számításhoz.

Mindkét képletet a 2. sorban levő cellába kell beírni és onnan lehúzhatod.

A két képletet össze is vonhatod 1 cellába, így:

=HAHIBA(KÖZÉP($B2;SZÖVEG.KERES("Állvány";$B2);40);"NINCS")

Ebben az esetben vagy NICS szöveg szerepel vagy az Állvánnyal kezdődő szövegrész.

Ez alapján akár szűrni is tudsz és könnyebb lesz a számolás.

Ennél többet csak akkor lehetne tenni, ha az Állványozás adatai külön oszlopban szerepelnének.

Üdv.

Előzmény: dorogszu (35333)
dorogszu Creative Commons License 2021.02.04 0 0 35333

Az adatok sajnos egy cellában vannak 

 

Előzmény: Delila10 (35332)
Delila10 Creative Commons License 2021.02.04 0 0 35332

Most nincs magasabb verzióm a 2007-nél, így nem tudom produkálni a villámkitöltést. Ha ez menne, a képen a B oszlopban alkalmaznám, majd a C oszlopban végrehajtanám a cserét.

A névkezelő mutatja a KIÉRTÉKEL funkciót, a D oszlop megadja az eredményt. Már csak összesíteni kell a D oszlop értékeit.

 

Előzmény: dorogszu (35331)
dorogszu Creative Commons License 2021.02.04 0 0 35331

A megoldás a részletekben rejlik. Elrontottam. Sikerült kiemelnem a ellából az egyetlen legritkábban előforduló  adatot.

 

Legtöbbször csak egy állvány szerepel ritka az ilyen adat bár előfordul. 

 

Az adatok nagytöbbségében csak egy állvány szerepel s , hogy megértessem feltöltöttem az alábi linkre a filet. 

 

https://data.hu/get/12783854/LD2_leallas_Panen.xlsx

 

Legtöbbször ugyanis nem szerepel az eleje és vége szó:(

 

Amikor beirtam a képletet #ÉRTÉK hibaüzenet jelent meg.

 

 

Előzmény: Fferi50 (35330)
Fferi50 Creative Commons License 2021.02.03 0 0 35330

Szia!

Igazán elég lett volna, ha csak annyit írsz, hogy ez a szöveg egy cellában van. 

A javaslatom a következő:

Feltételezve, hogy az adatok az A oszlopban vannak, az A2 cellától kezdődően, két képletet kellene a névkezelőben megadni.

Képletek - Névkezelő - új 

A névhez beírod "eleje"

A hivatkozáshoz bemásolod ezt a képletet:

=KIÉRTÉKEL("SZORZAT(" & HELYETTE(KÖZÉP(Munka1!$A2;SZÖVEG.KERES("Eleje";Munka1!$A2)+7;SZÖVEG.KERES("m";KÖZÉP(Munka1!$A2;SZÖVEG.KERES("Eleje";Munka1!$A2)+7;15))-2);"x";";")  &")")

majd OK gomb

Ismét új név:

A névhez beírod "véges"

A hivatkozáshoz ez a képlet kerül:

=KIÉRTÉKEL("SZORZAT(" & HELYETTE(KÖZÉP(Munka1!$A2;SZÖVEG.KERES("Vége";Munka1!$A2)+6;SZÖVEG.KERES("m";KÖZÉP(Munka1!$A2;SZÖVEG.KERES("Vége";Munka1!$A2)+6;15))-2);"x";";")  &")")

Erre is OK gomb.

Ezzel a munka nehezebb része meg is van.

Ezután abba az oszlopba, ahol a szükséges információkat meg szeretnéd kapni, a szöveget tartalmazó sornak megfelelően elég beírni az =eleje, a mellette levő cellába pedig a =véges képletet. Ez húzható lefelé.

Íme a névkezelő kinézete:


Természetesen a $A oszlop jelölés helyett azt az oszlopot használd, amelyikben az adataid vannak.

Feltételeztem, hogy magyar Exceled van.

A két név mit hajt végre: Megkeresi az Eleje ill. a Vége méreteit és végrehajtja a szorzást. Ez utóbbit a KIÉRTÉKEL nevű EXCEL4 -ben használt makró végzi el, ezért előfordulhat, hogy engedélyezned kell a makró futtatást a munkafüzetre.

Remélem sikerül megoldani, ha gondod lenne, csak írj bátran.

Üdv.

Ps. Azért mégiscsak befigyelt egy makró, bár ezt nem nekünk kellett megírni, készen kaptuk.

 

Előzmény: dorogszu (35329)
dorogszu Creative Commons License 2021.02.03 0 0 35329

Egy cellában az adat a teljes munkafolyamatot tartalmazza. Amely adat ebből engem érint az az állvány mérete ami miatt az adatot vagy ha több állvány van az adatokat kell kinyernem s azokkal aza datokkalmár játszhatok. 

 

Konkrét példára levetítve ebből a sok szövegből amely egy cella adata nekem csak a 3 x 3 x 7 (63) adat és a 6 x 3 x 8 azaz 144 adat kell nekem ami az állvány légköbméter értéke. 

 

3RR2 Reaktor kamrában csúszócsőtartók ellenőrzése

A reaktor kamrában lévő 3RR2 reaktor, csúszócsőtartóinak ellenőrzése szükséges utánhúzások elvégzése, zsírzása. Helye üzemi igények alapján.
Évi tisztításon csak a végén É-i és D-i.

*
*
*
Állvány méretek:
Eleje: 3 x 3 x 7 m
Vége: 6 x 3 x 8 m
2 db átépítéssel
Közös állvány a 3RR2-vel.
Évi tisztításin 2 végén.

Szigetelés bontás és helyreállítása
DN100 peremdoboz bontása 40 db
15 m2 50mm gyapot;
15m2 Al fólia;
100/50 egyenes 6fm bontás+szer.


- Megjegyzés: 2 végén kell fel állványozni, Északi és Déli oldal.
Üzemi igény csak tájékoztatásul van benne.

Előzmény: Fferi50 (35327)
Redlac Creative Commons License 2021.02.03 0 0 35328

Előzmény: dorogszu (35326)
Fferi50 Creative Commons License 2021.02.03 0 0 35327

Szia!

Miért is kellene ehhez makró?

Kérdés: Ezen adattömeg 1 cellában van vagy cellákba elosztva az oszlopon belül?

Mert más-más képlet megoldás jöhet szóba.

Üdv.

Előzmény: dorogszu (35326)
dorogszu Creative Commons License 2021.02.03 0 0 35326

Sziasztok! 

Adott egy oszlop ennek a neve legye B oszlop.

A B oszlopban található cellákban az adatok ömlesztve helyezkednek el itt egy példa 

 

 

3RR2 Reaktor kamrában csúszócsőtartók ellenőrzése

A reaktor kamrában lévő 3RR2 reaktor, csúszócsőtartóinak ellenőrzése szükséges utánhúzások elvégzése, zsírzása. Helye üzemi igények alapján.
Évi tisztításon csak a végén É-i és D-i.

*
*
*
Állvány méretek:
Eleje: 3 x 3 x 7 m
Vége: 6 x 3 x 8 m
2 db átépítéssel
Közös állvány a 3RR2-vel.
Évi tisztításin 2 végén.

Szigetelés bontás és helyreállítása
DN100 peremdoboz bontása 40 db
15 m2 50mm gyapot;
15m2 Al fólia;
100/50 egyenes 6fm bontás+szer.


- Megjegyzés: 2 végén kell fel állványozni, Északi és Déli oldal.
Üzemi igény csak tájékoztatásul van benne.

 

 

 

Nos ebből a sok betűből nekem az állvány méreteire lenne csak szükségem azaz   3 x 3 x 7  és 6 x 3 x 8 

Azonban mindezt összeszorozva:) azaz légköbméterezve:) tehát             63               144     lenne a kimeneti adatom

Makróban nem nagyon vagyok jártas ezt előre bocsájtom. Ötleteket szívesen fogadok.

 

Köszönöm!

Fferi50 Creative Commons License 2021.02.01 0 0 35325

Szia!

Az adatsorok tulajdonságait a következőképpen módosíthatod:

Ráállsz egy adatsorra - jobb egérgomb - adatsor diagramtípusának módosítása.

Akkor a következő képet kapod:

 

Az alsó részen beállíthatod, hogy melyik adatsor milyen típusú legyen és melyik tengelyhez kapcsolódjon.

Én nem javaslom, hogy a másodlagos tengelyhez is ugyanolyan típusú adatábrázolás legyen, mert akkor nem tud elválni a kétféle megjelenítés. Szerintem használhatóbb, ha pl. a másodlagos tengelyhez vonaldiagram tartozik.

Az oszlopdiagramot egyébként nehéz úgy beállítani, hogy a két tengelyhez tartozó értékek ne takarják el egymást.

Üdv.

Előzmény: Tessitore22 (35324)
Tessitore22 Creative Commons License 2021.02.01 0 0 35324

Sziasztok!

 

Secondary axis-szel kapcsolatban lenne kérdésem. 

Adott egy tábla (1-es kép), ahol pl.:a,b,c.. személyekhez tartoznak százalékos és numerikus értékek is. Ezt a 2-es képen látható módon szeretném megjeleníteni (a képeken látható tábla és grafikon nem összetartózó, de remélem érthető a gondolatmenet), úgy hogy a jobb oldali tengelyen százalék, míg a baloldalin numerikus értékek legyenek és ehhez tartozzanak az oszlopok értelem szerűen. A probléma az, hogy nem tudom csak specifikusan azon oszlopokat kiválasztani (jelen esetben 2,4,6), amiket a secondary axisen szeretnék ábrázolni. 

Fontos lenne, hogy oszlopdiagram legyen. 

 

Válaszokat előre is köszi!

12

pimre Creative Commons License 2021.01.27 0 0 35323

Szívesen. Örülök, hogy segíthettem. 

 

Persze nem tökéletes. Mert például javítani nem tudsz. Ha beírtál egy számot a C, vagy a G oszlopba, majd észreveszed, hogy elírtad, nem tudod javítani. Illetve javíthatod, de akkor a javított cellához tartozó 3 cellát újra beírja a lista végére.

De ennek a kivédéséhez kellett volna egy kicsit vacakolni a sorszám megkeresésével, és a meglévő adat javításával. Erre most nem volt érkezésem:-(  

Előzmény: dorogszu (35322)
dorogszu Creative Commons License 2021.01.27 0 0 35322

Mélységes tiszteletem a kitartásodért! Nagyon szépen köszönöm!

 

Előzmény: pimre (35321)
pimre Creative Commons License 2021.01.26 0 0 35321

Akkor itt az új kód. Ezzel cseréld le az előzőt.

 

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim ujsor As Long

    ujsor = Worksheets("Összesítés").Range("C" & Rows.Count).End(xlUp).Row + 1

    If Target.Column = 3 Then

        Range("A" & Target.Row, "C" & Target.Row).Copy Worksheets("Összesítés").Range("A" & ujsor)

    ElseIf Target.Column = 7 Then

        Range("E" & Target.Row, "G" & Target.Row).Copy Worksheets("Összesítés").Range("A" & ujsor)

    End If

End Sub

 

Előzmény: dorogszu (35320)
dorogszu Creative Commons License 2021.01.26 0 0 35320

az A-C folytatásába. Igen. Köszönöm és bocs:)

 

Előzmény: pimre (35319)
pimre Creative Commons License 2021.01.26 0 0 35319

Szia, nem könnyű tőled pontos feladatmeghatározást kapni:-)

 

Most azt nem írtad neg, hogy amikor a G oszlopba írsz valamit, az E-G tartomány hova kerüljön másolásra az összesítőben. Az E-G oszlopokba, vagy az A-C folytatásába? 

 

A mintafájlodat nézve arra tippelek, hogy az is az A-C-ben akarod látni, mivel az A oszlop 29. sorszáma után jön az E oszlop 30-as sorszámmal. 

 

De ezt jó lenne biztosan tudni.

 

Előzmény: dorogszu (35316)
pimre Creative Commons License 2021.01.26 0 0 35318

Köszönöm. Viszont sajnos nem így másolódik az új rész. Ugyanis a G változására az E-F és G oszlopok cellái másolódnak a célterület E oszlopától kezdve (feltéve, hogy nem az A-C tartományba kell ennek is kerülnie):

 

 

Tehát az új rész ez lenne: 

 

    If Target.Column = 7 Then

        ujsor = Worksheets("Összesítés").Range("G" & Rows.Count).End(xlUp).Row + 1

        Range("E" & Target.Row, "G" & Target.Row).Copy Worksheets("Összesítés").Range("E" & ujsor)

    End If

 

Off: A fórumnak azt a hibáját ismerjük, beszéltünk is róla, hogy a VBA kód kimásolása uán a behúzások nem másolódnak ide, tekát minden parancs ugyanabban az oszlopban kezdődik. Ezért először kimásolom Wordbe, majd onnan ide, és akkor jó.

Viszont emlékeim szerint régebben nem volt gond azzal, ha innen kimásolok egy programot, akkor az jól kerül ki a VBA kódba. Most ez is változott. Kiderült, hogy minden soremelés duplán kerül a VBA kódba, ebből adódott is tegnap egy hiba a kétsoros parancsnál. Szóval, ha hibátlanul akarom a másolást, akkor az itteni kódot is először Wordbe kell írnom, majd azt kimásolva már jó lesz a VBA kód. 

Előzmény: Delila10 (35317)
Delila10 Creative Commons License 2021.01.26 0 0 35317

Míg pimre ebédel, küldöm a kibővített makrót.

 

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim ujsor As Long

 

    If Target.Column = 3 Then

        ujsor = Worksheets("Összesítés").Range("C" & Rows.Count).End(xlUp).Row + 1

        Range("A" & Target.Row, "C" & Target.Row).Copy Worksheets("Összesítés").Range("A" & ujsor)

    End If

 

    If Target.Column = 7 Then

        ujsor = Worksheets("Összesítés").Range("G" & Rows.Count).End(xlUp).Row + 1

        Range("G" & Target.Row, "F" & Target.Row).Copy Worksheets("Összesítés").Range("G" & ujsor)

    End If

End Sub

 

Azt nem írtad, hogy a második csapatot, amit a G oszlopba íráskor akarsz átmásolni, az Összesítés lapon az A, vagy a G oszlopba tegye. Ha a G-be, akkor a már ott lévő adatok alá, vagy abba a sorba, ahol az utolsó másolat az A oszlopban van.

Előzmény: dorogszu (35316)
dorogszu Creative Commons License 2021.01.26 0 0 35316

A jelenlegi segítségeddel kapott eseménykezelő a  Leltárív munkafüzet  C oszlopba beírt változásokat az Összesítés munkafüzetbe egymás alá kimásolta.

A mellékelt fotón sárga színnel kiemeltem, hogy a G oszlopban is lehetnek változások a darabszám beírásakor

 

Tehát a file szerinti C oszlop tartalmaz változásokat és ekkor az eseménykezelő az előtte A B valamint a változást rögzítő C oszlopokat kimásolja az összesítés munkafüzet utolsó sora utáni szabad sorba.

 

 

A G oszlopba viszont ha beírok egy változót akkor annak a sorát azaz a E F oszlopot nem másolja ki

 

Ezt szeretném. Köszönöm!

 

 

  

Előzmény: pimre (35315)
pimre Creative Commons License 2021.01.26 0 0 35315

Pontosítsd a dolgot. Egyetlen mozdulat javítanom.

Előzmény: dorogszu (35314)
dorogszu Creative Commons License 2021.01.26 0 0 35314

Tökéletesen működik de egyet elrontottam A G oszlopban is lesznek változók és az azokba beírt adatok így nem jelennek meg:(

 

Előzmény: pimre (35313)
pimre Creative Commons License 2021.01.25 0 0 35313

Egyszerre írtunk. Igen, jól látod. Itt jelentkezett a hiba, ahogy a bejegyzésed előtt megírtam. Töröld ki az üres sort!

Előzmény: dorogszu (35312)
dorogszu Creative Commons License 2021.01.25 0 0 35312

Van hibaüzenet a kép szerint.

Amikor beilleztem a kódot a Destination:=Worksheets("Összesítés").Range("A" & ujsor) sor piros színre vált tehát ez lehet véleményem szerint a hiba bár nem értek hozzá

 

Előzmény: pimre (35310)
pimre Creative Commons License 2021.01.25 0 0 35311

Megvan! A bemásolásnál nálad felesleges üres sorok szúródtak be minden sorhoz. Ami nem lenne baj, de a következő két sor közé nem szabad. Ugyanis ez egy sor, ami folytatódik a következőn (ezt jelzi a _ jel az első sor végén végén)

 

Worksheets("Leltárív").Range("A" & Target.Row, "C" & Target.Row).Copy _
              Destination:=Worksheets("Összesítés").Range("A" & ujsor)

 

Töröld ki innen az üres sort!

Előzmény: pimre (35310)
pimre Creative Commons License 2021.01.25 0 0 35310

Ezt nem értem. Ha jól látom, megáll az első soron hibaüzenet nélkül?

 

 

Hogy indítottad el?

Mit csinál, ha megnyomod az F5 billentyűt?

 

 

Előzmény: dorogszu (35308)
hellsing Creative Commons License 2021.01.25 0 0 35309

Sziasztok, ha egy képletben egy munkalapra beszúrt táblázat oszlopaira hivatkozok (pl. SZUMHATÖBB(HM_2020[qty];HM_2020[Age];">="&$D1...), akkor azt a képletet csak másolással duplikálhatom, húzó kitöltéssel nem? Ha ezt (ami megegyezik azzal, mintha $a:$a-t írtam volna) eggyel jobbra húzom, a hivatkozás is átugrik a szomszéd oszlopra (azaz HM_2020[gender] = $b:$b). Vagy lehet alkalmazni valahogy a $ jelet? A $HM_2020[age] és a HM_2020$[age] nem műxik.

dorogszu Creative Commons License 2021.01.25 0 0 35308

Megértettem megcsináltam köszönöm!

 

Ad egy hibát viszont 

 

Előzmény: pimre (35307)

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!