Sziasztok!
Táblázatként van formázva egy táblázatom. Szeretnék egy makrót ami az adatokat tartalmazó sorokat törli. Rögzítővel csináltam egy makrót de ahogy látom minden egyes sort törölt. Ez a táblázat van hogy 10000 van hogy 500 sor.

Ez lett az eredmény a rögzítéssel:

Sub Makró2()
'
' Makró2 Makró
'
'
Range("anyagbiz").Select
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete

Szia,

Excel 2016-tól felfelé van MINHA függvény, amelyet használj így:

=MINHA(B:B;B:B;">"&F2;C:C;1)

ahol B oszlop a dátumos oszlop, C a 0/1-et taratalmazó oszlop és F2 a cella ahol van a keresési érték.

Régebbi Excelben pedig egy tömbfüggvény tud segíteni, ezt Ctrl+Shift+Enter-rel kell lezárni.

=MIN(HA((B1:B22>F2)*(C1:C22=1)>0;B1:B22;2^99))

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Szia,

... a főlapom, meg lehetne valahogy jeleníteni, hogy azon a napon van-e valakinek születésnapja?

Makró és segédoszlop nélkül az Excel 2010-től használható Power Query tud megoldás lenni.

Magyar olimpikonok listájából csináltam egy ilyen fájlt:

Van benne egy Fő lap és 12 hónap adatát tartalmazó lap, amelyen vannak az adatok (azonos fejléccel és azonos sorrenddel). Ezek után jöhet a Power Query.

1. Adatok fülön -> Adatok beolvasása -> Fájlból

2. Kiválasztod a fájlt ami tartalmazza az adatokat.
3. Jobb klikk a fájlnéven (esetemben Olimpikonok.xlsx) és Szerkesztés

4. Első lépésként szűréssel zárjuk ki az első lapot, ahova az eredményt akarjuk megjeleníteni. Esetemben a Fő nevű munkalapot dobjuk.

5. Csak a Data oszlopra lesz szükségünk, ezt jelöld ki és a fejlécen jobb klikk után a többi oszlop tőrlése kell.

6. A megmaradt oszlop jobb felső sarkába kattints és válaszd a kibontást.

7. Hozzunk létre egy normális fejlécet, erre a legegyszerűbb megoldás az Átalakítás -> Első sor használata fejlcéként.

8. Mivel minden lapon volt fejlécünk ezért az adatok között nem csak a neveket/dátumokat, hanem a többi lapon ismétlődő fejléceket is látjuk ezt szűréssel vegyük ki.

9. Érdemes a megmaradt oszlopok formátumát beállítani. A születési dátum legyen tényleg dátum, a kor pedig szám. Jelöld ki az oszlopot és az Átalakítás fülön válaszd ki a megfelelő Adattípust. pl. születési dátumhoz a dátum legyen.

10. Kell egy új oszlop, amelybe megnézzük hogy melyik dátum napja azonos az aktuális nappal.
Oszlop hozzáadása -> Egyéni oszlopot használd. A képlet pedig ez legyen:
=Date.Day([Születési Idő])=Date.Day(DateTime.LocalNow())

11. Ebben az oszlopban a TRUE értékekre szürjél rá.
12. Utánna törölhet jobb klikkel ez az oszlop.
13. Kezdőlap -> Bezárás és betöltés -> .. adott helyre opció kell.

14. Válaszd a Kimutatás opciót és a fő lapot. Tervezd meg a Kimutatásodat ahogy neked tetszik.
15. A kimutatás beállításainál válaszd az automatikus frissítést megnyitáskort.

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Ha a Fferi50 által javasolt megoldást választod, akkor ne felejtsd el a képlet második felében szereplő HA függvényben is módosítani a B5-ös cella hivatkozására vonatkozó részt.

=FKERES(ÉRTÉK(HELYETTE(B5;"kg";""));$I$1:$J$5;2;1)+HA(ÉRTÉK(HELYETTE(B5;"kg";""))<=8;C5*0,3;0)

Szia!
Azért ilyen a rögzített makró, mert nem a táblázat adatsorait jelölted ki és nem arra nyomtad a Deletet.
Activesheet.Listobjects(1).DataBodyRange.Delete
Ennyi az egész.
Activesheet helyett írhatod a Sheets(neve). ..stb. is.
Üdv.

[ Szerkesztve ]

Szia!
Nagyon igaz. Bár talán a kérdező is ráérzett erre.
Üdv.

Köszi, időközben megoldottam egy csodás tömbképletes megoldással

Annyi, hogy a HOL.VAN keresési értéket 1-re állítottam, a keresési tömböt pedig úgy adtam meg, hogy szorozza össze a c oszlop = 1 tömböt és a B oszlop nagyobb egyenlő, mint a kritérium érték tömböt (esetünkben ez: 2019.11.01).

=INDEX(B1:B20;HOL.VAN(1; (((B1: B20)>=H3)*1)*((C1: C20)=1)*1);0))

Szia!
A feltételes formázás akkor működik, ha a képlet igaz, de ennek a képletnek a kimenete hamis ( =ÉS(SOR(A1)=$N$2;OSZLOP(A1)=$O$2) ), mégis helyesen formáz. Miért?
Írtam elé egy "NEM"-et, hogy a kimenet igaz legyen, erre az egész területet formázta az eredmény kivételével.

A @ használatos helyettesítő karakterként?

Sziasztok!
Létre kell hoznom egy olyan excel táblázatot, ahol a dátumbevitelt kultúrált módon kellene használni. Megtaláltam a leírást a "Microsoft Date and Time Picker" telepítésére. Meg is oldottam, Van boldogság.... De ezt a feature-t csak azon a gépen tudom használni, ahol ez "mscomct2.ocx" megtalálható és regisztrálva is van. Sajnos olyan gépeken is használnom kellene, ahol ilyen műveletek elvégzéséhez nincs jogosultságom (terminál szerveres környezet). Van olyan megoldás, ahol az excel fájlban tudom biztosítani a kultúrált dátumbevitelt és nem a futtató környezetben?

[ Szerkesztve ]

www.refujvaros.hu

Krizsák László műve ez a fájl, amit feltöltök.
[link]
Jó régen közölte egy másik fórumon, ezért gondolom, nem baj, ha itt is közkinccsé teszem.
Még 2003-as, vagy azelőtti verzióban készült, ami látszik az xls kiterjesztésből.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszönöm, kipróbálom

www.refujvaros.hu

Szia!
Az ÉS függvény akkor ad igaz értéket, ha minden benne szereplő feltétel igaz.
Tehát csak akkor lesz igaz az értéke - ezáltal akkor érvényesül a formázás - ha az adott cella sora megegyezik az első paraméter értékével és az oszlopa pedig a második paraméter értékével.
Mivel csak ezt a metszéspontot kell színezni.
Bárhol máshol nézed, a feltétel eredménye hamis lesz, így nem fog - és nem is kell neki - színezni.

A @ nem helyettesítő karakter, az csak a ? és a *. Tudomásom szerint csak az egyéni számformátumban levő szöveg helyét jelöli.

Üdv.

Köszönöm.

Szia!

Tömbképletes megoldások nekem ritkán ugranak be (nem is olyan rég volt, mikor végre sikerült felfognom a lényegüket). A te esetedben attól függően, hogy mire van valójában szükséged és hogyan épül fel az adathalmazod, amiben keresel nem vagyok biztos benne, hogy tökéletesen működni fog egy ilyen megoldás.

A kérdésedet én úgy értelmeztem, hogy mindenképpen a B oszlopban szereplő keresett dátum utáni következő dátumot keressük, feltéve, hogy C oszlopban ott 1-es szerepel. Mind a te, mind Mutt tömbképletes megoldására igaz az, hogy amennyiben a B oszlopban >= relációra keresel, úgy magát a keresett értéket (nem pedig az azt követő elemet) fogod visszakapni a táblázatodban azokban az esetekben, ha a keresett dátum mellett a C oszlopban 1-es szerepel. Ha a relációt >-ra cseréled, az pedig azzal jár, hogy amennyiben az adathalmazodban egy dátum többször is előfordul közvetlen egymás alatt, úgy szintén nem azt kapod amit szerettél volna, hanem mindenképpen minimum 1 nappal későbbi dátumot.

Az alábbi képeken látod az általam vélt működésbeli hiányosságot. Kék háttérrel jelöltem a keresett értéket, zölddel pedig amely értéket eredményként kapni kellene.

Hozzáteszem az általam javasolt segédoszlopos megoldás is adhat olyan eredményt, ami nem biztos, hogy megfelel az elvárásnak. Ha ugyanis egyazon dátum pl. kétszer szerepel egymás alatt, előbb 0, majd 1-es C oszlopbeli értékkel, úgy magát a keresett dátumot kapod eredményül, a másodikként szereplő C oszlopbeli 1-es miatt. Azonban lehet, hogy ilyen esetben te azt szeretnéd, hogy a következő dátumot adja vissza, ahol 1-es szerepel.

Sziasztok,

Újabb segítséget kérnék:
[google doksi]
adott egy 2 oszlop ahogy látjátok, cikkszám és hozzá tartozó mennyiség, egy cikkszám többször is előfordul különböző mennyiségekkel, és ezt szeretném egy másik lapon összesíteni!
A Google doksiba nyugodtan beleszerkeszthettek a megoldás valamelyik fülén.
Köszönöm

P4

A G2 cella képlete =SUMIF($A$2:$A$13;F2;$B$2:$B$13)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Tökjó köszönöm, viszont a cikkszámokat is összesíteni kellene, mert azok is változnak és nem fixek.

P4

Az eredeti cikkszámos oszlopot másold az új helyre, ott pedig az Adatok, Ismétlődések eltávolítása funkcióval villámgyorsan előállítod az egyedi értékeket.
Vagy: kimutatást készítesz.
Szerk.: megcsináltam az oldalon.

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Süti ez a kimutatás tervező
Nagyon köszönöm a megoldást!

P4

Szívesen, örülök, hogy összejött.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Hello,

Google Sheetsben van UNIQUE függvény az ismétlődések kiszűrésére. Illetve be lehet még vetni az új FILTER és SORT függvényeket is. Az összegzésre marad a SUMIF.

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Azt lehet kihagytam a feladatból, hogy nem lehet két azonos dátum egy oszlopban hiszen ezek a naptári napok. Amúgy én se rajongok a tömbképletekért hiszen azért, jóval erőforrásigényesebbek főleg nagy méretű táblázat esetén, így talán a Te megoldásod a nyerő :)

Ha nincs dátumismétlődés, akkor a tömbképlet is maradhat, csak a relációt kell cserélned >=-ről >-ra.

[ Szerkesztve ]

Sziasztok!
Én a global valtozókkal szenvedek mostanság.
A ThisWorkbook-ban definiálok egy globális változót:
Public Ts01 As Boolean
De a Module1-ben található függvényem nem látja.
Hogyan tudom a változót úgy deklarálni, hogy az xlsm minden eljárása, függvénye láthassa?

www.refujvaros.hu

Szia!
A globális (publikus) változókra úgy kell hivatkozni, hogy a teljes nevüket használod: Modulnév.változónév.
Esetedben Thisworkbook.Ts01

Üdv.

Hálás köszönet!

www.refujvaros.hu

Sziasztok!
Táblázatba függvénnyel/hivatkozással lehet képeket beszúrni? Nem kérem, hogy csinálja meg valaki. Azt megköszönném, ha esetleg linkeket adnátok, ahol leírják vagy bemutatják. Rákerestem, de biztos nem a megfelelő szavakkal.

Megbízható és olcsó tárhely: https://cweb.hu/ugyfeladmin/aff.php?aff=99

Szia!
A HIPERHIVATKOZÁS függvény első paramétere a hivatkozott fájl neve (ami lehet kép is). Második paramétere az a név, ami a cellában megjelenik.
Így be lehet hivatkozni a képet.
Ténylegesen beszúrni csak makróval lehet.
Üdv.

[link]
A linken találod a példát a képek beszúrására makróval. Nézd meg a következő hozzászólást is!

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Eszerint sikerült összehoznod.
Szívesen.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Mondjuk, hogy gyakorlom nagyban, mert nem akarok minden 10. poszt itt lenni...

Megbízható és olcsó tárhely: https://cweb.hu/ugyfeladmin/aff.php?aff=99

Sziasztok! A következőt próbálom megoldani. Van egy munkafüzetem, amiben van vagy 100 munkalap. Minden munkalapon vannak számok egy oszlopban a követkző minta szerint:
Dátum, Megnevezés, Összeg, amik rendre A,B,C oszlop. A végén az összeg szummázva van. Ezeket a szummákat akarom grafikonba betenni, de értelemszerűen a C oszlop mindig másik sorára esik a kérdéses mező. Csak annyi a közös, hogy mellette a B oszlopban az "Összesen:" szöveg van. Hú, így elmondva nagyon bonyolultnak hangzik. És persze nem akarom kézzel kijelölni az összes szükséges cellát.

Szia!
Az FKERES függvény segít(het) neked.
Én csinálnék egy "fő" munkalapot, ahova az összes adatot összegyűjteném:
=FKERES("Összesen:";Munkalapnév!B:C;2;0)
Persze jó lenne, ha a munkalapok neve is valamilyen rendszert követne, mert akkor könnyebb lenne a képletet másolni.
Vagy a munkalapneveket beírni egy oszlopba és utána az
=FKERES("Összesen:"; Indirekt(D1 & "!B:C");2;0)
képlet már húzható lefelé
Üdv.

Üdv.

Lehet, hogy nektek egyszerű, de én nem bírtam vele...

Adott egy kb. 3000 soros, és kb. 10 oszlopos táblázat. A 7. oszlopban (mondjuk G) adott a jelenlegi darabszám, a 9.-ben (legyen I) a minimum. Azt szeretném, hogy mind a 3000 sorban pirossal színezze ki azt a sort, ahol a G<I. Hogy lehet úgy feltételes formázással, hogy ne keljen 3000 külön feltételt hozzáadni?
Van egy működő táblázat alapnak, de egyáltalán nem látom át, valahogy tartományokra van osztva az egész táblázat, és nem értem, miért, főleg, hogy kb. 200 különböző feltétel be van írva.

Köszi.

Huawei P30 // Suzuki DL650XT '15 <-- Kawasaki Z750 '07 <-- Aprilia RS 125 '99

Kijelölöd a tartományt – mind a 10 oszlopot –, a feltételes formázás képlete

=$G2<$I2

Már csak a formátumot kell megadnod.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszi. Viszont megnéztem, nem jól működött, mindig a fölötte lévő sort jelölte pirossal (így formáztam), nem azt, amelyikben a G kisebb, mint az I. Az volt, hogy nem $G2<$I2-vel kellett nézetni, hanem $G1<$I1-gyel. Úgyhogy most jó. Köszönöm.

Huawei P30 // Suzuki DL650XT '15 <-- Kawasaki Z750 '07 <-- Aprilia RS 125 '99

Szia,

Excel 2010-től van Power Query, Ebben a hozzászólásban az első 8 lépés azonos. Utána pedig csak annyi a változás, hogy Összegre szűrsz a B-oszlopban. A végerdményt PivotChartba töltve tudod a grafikont készíteni.

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Címsort feltételeztem, azért írtam kettes sort.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!

IsDate() mizéria...
Rég óta nyüstölöm az Excelt, találkoztam már pár furcsasággal, de ez szerintem eddig a legrosszabb
Találkozott már valaki hasonlóval?


Mindkettő Windows 10, Office 2016.
A windows régiós és egyéb beállítások valamint az Office verziók megegyeznek (build szám is egyforma), mégis más eredményt kapok a két (valójában több) gépen.
Mindkét képen az Office beépített IsDate függvénye fut!
Kénytelen voltam saját függvényt létrehozni, hogy minden gépen úgy működjön a kód, ahogy kell.

Valakinek esetleg ötlete, hogy mi lehet az ok?

Szia!
Pedig nagy eséllyel Windows területi beállítási különbségek miatt van.
A VBA-ban alapvetően angol (nemzetközi) beállítások szerint kell a függvények paramétereit megadni. Magyar formátumot csak akkor fogad el. ha a Windowsban is be van állítva.
Pl. előfordulhat, hogy szóköz is van a pontok mellett, vagy nincs pont a végén.
Javaslom, nézd meg a munkalapfüggvény működik-e megfelelően mindkét helyen.
Üdv.

Sziasztok,

A C3-C994 tartományban van 1-1db linkem cellánként, amik egy másik Excel file-ra mutatnak. 6 különféle link van, ezek vegyesen váltakozva és vannak olyan cellák a tartományban, amikben nincs link.
Szeretném lecserélni a linkekben szereplő file nevek kiterjesztését *.xlsx-ről *.xlsm-re a lehető legegyszerűbb módon. Van valami jó ötletetek rá?

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

[ Szerkesztve ]

You can walk straight through hell with a smile

Céges gépek, egyformák, tulajdonképpen klónok.
A területi beállításokat a pont-pont-vesszőcskéig összehasonlítottam, egyeznek.
Az én gépemen a mai napig működik (évekkel ezelőtt megírt programok, sokan használják), soha nem volt vele gond. Most 3-4 emberke jelezte, hogy már nem úgy műxik, ahogy kellene.
Milyen munkalapfüggvényre gondolsz?

Szia!
Pl. megnézhetnéd, hogy a MA() (TODAY() ) függvény értéke milyen formában jelenik meg a cellában.
Üdv.

Szia,

Nézd meg újra a Windows Területi beállításait, lehet hogy lesz ott szóköz az évek - hónapok - napok között az egyiknél, míg a másiknál nem.

Nekem van szóköz, de a MA() függvény eredményében ez nem látszik. Az IsDate/CVDate pedig csak szóközzel megadott dátumokat fogad el.

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

És tényleg ott a szóköz...
Megkérdeztem egy illetékest, azt mondja, ő nem nyúlt hozzá.
A lényeg, hogy az IsDate ezek után (plusz programozás nélkül) használhatatlan