- Megjelentek az első HMD okostelefonok, ezek a magyar áraik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Itt az első kép a 2024-es Nokia 3210-ről
- Készülőben a Xiaomi 2021-es csúcsmodelljeinek HyperOS frissítése
- Redmi Note 13 Pro+ - a fejlődés íve
- Samsung Galaxy A54 - türelemjáték
- Yettel topik
- Oppo Find X5 Pro - megtalálták
- iPhone topik
- Honor Magic6 Pro - kör közepén számok
Hirdetés
-
Az Apple iPadOS-t is megrendszabályozza az EU
it Az EB közölte: az Apple iPad táblagépekre írt iPadOS rendszere is kapuőrnek számít, az üzleti felhasználókra gyakorolt fontossága miatt.
-
Karácsonyfaként világíthat a Thermaltake új CPU-hűtője
ph Az ASTRIA 600 ARGB ráadásul a hűtési teljesítmény szempontjából sem szégyenkezhet.
-
Új Beats fej- és fülhallgatók jelentek meg
ma Frissítette a Solo termékcsaládot az Apple házi audiomárkája.
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Fferi50
őstag
válasz istvankeresz #49901 üzenetére
Szia!
Akkor kipróbálod?
Üdv. -
Fferi50
őstag
válasz istvankeresz #49903 üzenetére
Szia!
Melyik sornál?
Megmutatnád a makrót, ami ezt okozza?
Üdv.[ Szerkesztve ]
-
istvankeresz
aktív tag
válasz Fferi50 #49904 üzenetére
Kettóvel ezelötti hsz-emben, a ??? helyére bemásoltam amit írtál. Ott akadt meg, azt a sort sárgázta ki a debugger.
Szerk:
Kiegészítve amit írtál erre:
ThisWorkbook.Sheets("Nyilvantartolap_TEMPLATE").Copy
Most már legenerálja a fáljt amit akarok üresen, majd generál egy újat amibe beleteszi a template-t.
Jó uton vagyunk, Szerintem innen már összelegózom.
Köszi!
[ Szerkesztve ]
XBOX ONE GT: istvankereszt79
-
Fferi50
őstag
válasz istvankeresz #49906 üzenetére
Szia!
A Workbooks.Add sor felesleges. A Sheets(...).Copy magától létrehozza az új munkafüzetet.
Üdv. -
Bertiee
aktív tag
Sziasztok! Kezdő Excel 2021 HUN felhasználó vagyok és megakadtam egy feladatnál:
adott egy számsor : osztályzatok,
átlagot számolni nem gond, viszont az a kitétel, ha az osztályzatok között akár csak egy db 1-es van, akkor a teljes sor átlaga 1-es.
Hogyan kellene ezt felírni? -
istvankeresz
aktív tag
Üdv!
Adott három oszlop. Azt szeretném, hogy az I oszlopban csökkenjen az érték a H oszlop értékével csak akkor, amikor a C oszlopban "SZ" szöveg található. Ez sikerült is, viszont abban a sorban ne írjon ki semmit, ahol nincs a C oszlopban érték. Ha más egyéb szöveg van, akkor pedig NE csökkentse az I oszlopot, csak írja oda az utolsó I oszlop értéket.
Ha a képletet módostom arra, hogy:
=HA(C31="SZ";I30-H31;"")
akkor egészen addig jó, míg újra nem lesz "SZ" a C oszlopban, mert akkor a semmiből akarja kivonni H oszlop adott értékét.
[ Szerkesztve ]
XBOX ONE GT: istvankereszt79
-
lappy
őstag
válasz istvankeresz #49915 üzenetére
=HA(C31="SZ";I30-H31;HA(ÜRES(C31);" ";I30))
ha jól értem mit is akarsz ezt kell I31 be beírni majd lehúzni[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
istvankeresz
aktív tag
Ez az eredeti képletem nekem is. Ezzel csinálja azt amit a képen látsz.
Ezt lehúzva kitölti azokat a cellákat is, ahol c oszlopban nincs semm.szerk:
Látom közben szerkesztetted a hsz-t.
Kipróbálom, de lehet h csak hétfőn tudom már.
Köszönöm[ Szerkesztve ]
XBOX ONE GT: istvankereszt79
-
lenkei83
tag
Sziasztok!
Érvényesítésben lehet külön drop downt és custom feltételeket megadni képlettel. Küldön külön nincs gond, a kettőt szeretném kombinálni.
A custom képlet figyeli, hogy az érvényesítéssel rendelkező cellát csak abban az esetben lehetssen kitölteni, ha egy másik cella már tartalmaz értéket Ezt nyilván több módon is meg lehet oldani. Viszont én azt szertném, ha az érvényesítéssel rendelkező cellában egy listából lehetne választani abban az esetben, ha egy másik, hivatkozott cell tartalmaz értéket.
Látott már ilyet valaki?
VBA-ban rendben van, de jelen esetben kimondottam kérték, hogy VBA alkalmazása nélkül találjuk ki a megdolsát?Köszi
P. -
Onderon
senior tag
Sziasztok,
Egy túlóra táblázatot próbálok elkészíteni, de az Excel tudásom elég alap. Egész órára már meg tudtam csinálni, de az óra töredéknél már elakadtam.
A túlóra az alábbiak szerint számolódik:
1-2 óra a napibér 15%-a
3-4 óra a napibér 17.5%-a
5-6 óra a napibér 20%-aViszont, a túlórát 15 percenként számolják és a legelső 15 perc "ingyen" van, azért nem jár semmi.
Volna kedve valakinek elkészíteni esetleg és felrakni valahová ahonnan le tudom tölteni?
Előre is köszönöm!
-
lappy
őstag
válasz Onderon #49921 üzenetére
=HA(KEREK.LE(A1/IDŐ(0;15;0);0)<=1;" ";HA(KEREK.LE(A1/IDŐ(0;15;0);0)<9;B1*0,15;HA(KEREK.LE(A1/IDŐ(0;15;0);0)<16;B1*0,175;HA(KEREK.LE(A1/IDŐ(0;15;0);0)<24;B1*0,2))))
A1- a túlóra idő formátumban megadva
B1 - a napibér díja[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Fferi50
őstag
válasz Onderon #49921 üzenetére
Szia!
Ez megoldható az Fkeres függvénnyel, mutatom a képet:
A pótlék % képlete a B2 cellában látható.
A tényleges pótlék képlete (D1-ben van a napi bér):=$D$1*FKERES(A2;$K$1:$L$6;2;1)
A képleteknél figyelj a $ jelek megfelelő használatára.
Az Fkeres függvény 4 paramétere 1, ebben az esetben azt az értéket adja vissza, amelyik a legközelebbi határértékhez tartozik. Ezért kell a határokat minimálisan túllépve megadni a táblázatban.
Üdv. -
-
Onderon
senior tag
Nem tudok már szerkeszteni:
lappy: idő formátummal sem kapok jó értékéket, de köszönöm! Próbálok operálni vele.
Fferi50: írtam privátban, köszönöm! -
mr_ricsi
veterán
Sziasztok!
Kaptam egy excel táblát, amiben ha a a Ctrl + nyilakkal mozgok, akkor az "A" oszlopban lefelé mozogva az utolsó adatot tartalmazó cella után nem a legutolsó (1048576) cellára ugrik, hanem megáll a 10000 számú cellánál. Oszloponként változó, hogy melyik cellában áll meg. A legtöbb oszlopban a legutolsó cellára ugrik, míg további kettő oszlopban a 6000. cellára.
Azt szeretném kérdezni, hogy milyen módon lehet ilyen "navigációs cellákat" elhelyezni a táblákban?
Sokkal kellemesebb úgy hibát keresni, ha tudod, hogy másban kell!
-
istvankeresz
aktív tag
Üdv!
Egy (nekem) eléggé összetett lekérdezést szeretnék csinálni de nem boldogulok.
Cél: Gombnyomásra végig fut egy ciklus az aktuális workbook-ban worksheet-eken. Ezeken a worksheet-eken szintén végigfut egy ciklus ami végignéz egy oszlopban egy range-t, és ha talál egy feltétellnek megfelelő cellaértéket, akkor azt a cellaértéket átmásolja a template-ből létrejövő új workbook-ba.A ciklusban-ciklusban-feltétellel nem boldogulok, azaz az adatkiolvasással.
XBOX ONE GT: istvankereszt79
-
Fferi50
őstag
válasz istvankeresz #49933 üzenetére
Szia!
Az elveket mutatnám, amit hozzá kell adaptálnod a saját feladatodhoz:Set ujws=Workbooks("uj").Sheets(1)
For Each ws in Worksheets
For Each rng In ws.UsedRange.Columns("A").Cells
If rng.Value=x Then
ujws.Cells(Cells(ujws.Rows.Count,1).End(xlUp).Row+1,"A").Value=rng.Value
'ha nem lehet több érték akkor Exit For
End If
Next
Next
Az "uj" munkafüzetet létre kell hoznod előtte.
A feltételt az If-fel kezdődő sorban kell megadni, itt egy szimpla egyenlőséget tételeztem fel.
Az értéket mindig az A oszlop következő üres cellájába másolja.
Üdv.[ Szerkesztve ]
-
the radish
senior tag
Sziasztok
Lehet, hogy kicsit komplikált a projekt és biztosan van egyszerűbb megoldás is hozzáértők számára attól amit én próbálok véghez vinni, de azért azt hittem eddig, hogy boldogulok vele.
Most azonban ilyen fogad:
Tele van képletekkel a tábla, fogalmam sincs hol lehet a hiba.
Arra gondoltam, hogy az átszámolás csak a makró lefuttatását követően menjen végbe - feltételezve, hogy ezzel van baj.
Ezt hogy tudnám kivitelezni?
Előre is köszönöm. -
Fferi50
őstag
válasz the radish #49936 üzenetére
Szia!
Állitsd a számításokat manuálisra:Application.Calculation=xlCalculationManual
A visszaállítás:Application.Calculation=xlCalculationAutomatic
Viszont ha a makró a számított értékeket is figyelembe veszi valahol, akkor hamis lehet a végeredmény. -
istvankeresz
aktív tag
válasz Fferi50 #49934 üzenetére
Szia!
Jó volt kiindulási alapnak a kódod, Köszönöm! Sikerült összeraknom úgy, ahogy nekem kell.
Következő kérdésem mindenkihez:
Feltételnek szeretném megadni egy cella értékét. Ha az a cella egy karakter sorozattal kezdődik, pl.: 1234.56 , de még vannak mögötte karakterek, akkor a tudok olyan univerzális jelet használni, mint máshol a csillag, azaz ha valami 1234.56-al kezdődik akkor vegye figyelembe, egyébként pedig nem. Magyarul VBA-ban is lehet * karaktert használni? Mert nekem így nem találja meg amit keresek.
XBOX ONE GT: istvankereszt79
-
the radish
senior tag
VBA segítségével másolnék képletet, de a képletben szereplő idézőjelekre hibát dob. Mi a megoldás az üres cellákra?
Pl. Szeretném üresen hagyni, de nem jövök rá:ActiveCell.FormulaLocal = "=HAHIBA(KEREKÍTÉS(DÁTUMÉRTÉK($J1)+IDŐÉRTÉK($J1);4);"")"
-
karit
csendes tag
Sziasztok! Szeretném a munkafüzet 1-2-3 lapján lévő táblázatokat (mint adat táblákat) a 4. lapon létrehozott bármilyen adatkapcsolattal elérni, hogy ezen a 4. fülön létrejövő táblázaton SQL lekérdezést tudjak írni a 3 adat táblára. Tehát nincs semmilyen külső adatforrás.
Hmm, érthető ez így? :SOdáig eljutottam, hogy a saját munkafüzet egyik tábláját tudom forrásként használni úgy, hogy a Létező kapcsolatoknál a Meglévő kapcsolatok fül alján betallózom ugyanezt az xlsx-et: de csak 1 db tábla választható ki, több nem.
Ezután a Kapcsolat tulajdonságai form aljára beírható az SQL, jól le is fut. Apró szépséghiba, hogy futáskor olvasásra még egyszer megnyitja a fájlt (ezt is el szeretném kerülni valami Excel.CurrentWorkbook-féle beírással a path helyett), és persze így csak 1 db forrás tábla/munkalap használható, de mindhárom kellene egyszerre.Nagyon megköszönnék minden segítséget.
-
the radish
senior tag
válasz the radish #49940 üzenetére
Bocsánat, megoldva, pontosabban csak elfelejtettem a megoldást.
-
spe88
senior tag
Be lehet állítani Excelben, hogy egy szám formázásánál egy adott cellából húzza mindig az infót?
Pl a formátumkód: 0,00, de mögé szeretnék még írni valamit, ami mindig változik és egy adott cellában van. Létezik ilyen?köszi
Spóroljunk! Kerül, amibe kerül!
-
Fferi50
őstag
válasz istvankeresz #49939 üzenetére
Szia!
Használhatod a Like operátort ebben az esetben:
Cells(1,1).Value Like "1234.56*" True értéket ad, ha a cella értéke a beírt karakter sorozattal kezdődik, ellenkező esetben False az érték.
Vigyázz, a számok összehasonlításánál is a Like operátor utáni résznek szövegnek kell lenni és nem tizedespont hanem a magyar szabályok szerint tizedesvessző kell bele!
Üdv. -
Fferi50
őstag
Szia!
"mögé szeretnék még írni valamit, ami mindig változik és egy adott cellában van."
Szerintem munkalapon ilyet nem lehet csinálni. Viszont az egyéni formázásban a számok elé - mögé írhatsz szöveget, amit utána formátum másolással át tudsz vinni bárhová.
Pl. 0,00utas formátum minden beírt szám után odaírja az utas szöveget. Tehát megcsinálod a kívánt egyéni formátumokat és azokat alkalmazod a megfelelő cellákra.
Üdv. -
istvankeresz
aktív tag
válasz Fferi50 #49944 üzenetére
Szia!
Ez tökéletes. Viszont a kiolvasott cellákat szeretném másolni egymás alá egy másik munkalapra.
Ezt hova kell berakni, hogy jó legyen? Ha egyáltalán helyes.
lr = Sheets(6).Range("E" & Rows.Count).End(xlUp).Row + 1
Ebbe szeretném beletenni, úgy, hogy minden ciklus után ugorjon egy sort.
Dim cell As Range
Dim ws As Worksheet
Dim lr As Long
For Each ws In ThisWorkbook.Worksheets
For Each cell In Sheets(ws.Name).Range("K2:K6")
If cell.Value Like "1234.56*" Then
Sheets(6).Range("E10") = cell.Value
' MsgBox (ws.Name & " " & cell.Value)
End If
' MsgBox (ws.Name & " " & cell.Value)
Next cell
Next ws
End Sub
MsgBox-ok, csak ellenörzésnek vannak, hogy lássam, hogy a megfelelő értékekkel dolgozom.
Köszi!
XBOX ONE GT: istvankereszt79
-
Fferi50
őstag
Szia!
Próbáld meg a következőt:
Kijelölöd a beolvasandó adatokat az egyik munkalapon, majd Az Adatok - Adatok beolvasása és átalakítása csoportból a Táblázatból vagy tartományból menüpontot választva Power Query szerkesztővel létrehozod a kívánt lekérdezést.
Ugyanezt megcsinálod a másik 2 munkalapra is.
Ezután a 3 lekérdezést egyesítheted.
Üdv. -
Fferi50
őstag
válasz istvankeresz #49946 üzenetére
Szia!
Ezt a sort a for ciklus elé érdemes betenni a kezdő sor számának meghatározására. A másolás viszont akkor így néz ki:Sheets(6).Range("E" & lr) = cell.Value :lr=lr+1 ' másol majd növeli a sor számát.
Üdv. -
sonkuci
tag
sziasztok.
excel 2016ban van egy kimutatásom, hozzátartozó kördiagram és egy szeletelő.
miután beszúrtam a diagramot, megformáztam (semmi extra, adatfeliratok hol legyenek, félkövér, stb) viszont amikor használom a szeletelőt akkor elfelejt mindent.
így ha valamit kiválasztok a szeletelővel újra be kell állítanom hozzá újra a formázást.
ha stílusból választom ki valamelyik stílust, úgy mindig érvényes bármit választok a szeletelővel.
ha elmentem sablonként se jegyzi meg a formázást.
én vagyok a béna és van erre valami egyszerű megoldás, vagy minden alkalommal be kell ezt állítanom?köszi
-
Onderon
senior tag
De, viszont 0:16-ra már járna túlóra, mert csak az első 15 perc "van ingyen", a te függvényeddel azonban 0:29-ig jár nulla, 0:30-ra pedig már a teljes túlóra jár, pedig a lépték 15 perces kellene legyen arányosan. Elnézést, azt hiszem nem fogalmaztam meg érthetően.
Szóval a túlóra emelkedik, de arányosan kapjuk, minden megkezdett 15 perc után, ahol a legelső 15 percért nem jár semmi, viszont a második 15 percért (15-30) már jár a túlóra 2/4-e, a harmadikért (30-45) jár a 3/4-e, majd 45-60-ig a 4/4-e és stb.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Kertészet, mezőgazdaság topik
- Kihívás a középkategóriában: teszten a Radeon RX 7600 XT
- Tőzsde és gazdaság
- Villanyszerelés
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Viccrovat
- Gaming notebook topik
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Elemlámpa, zseblámpa
- Azonnali VGA-s kérdések órája
- További aktív témák...
- Canva Pro előfizetés - 1 éves
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!