Nem is kell, hogy benne legyenek a makrók. Itt a cél az, hogy a gombnyomásra generáljon egy új excel fájlt üresen és legyen egy worksheet, ami a Template másolata.

XBOX ONE GT: istvankereszt79

Szia!
Akkor kipróbálod?
Üdv.

Run-time error '9':

Subscript out of range

XBOX ONE GT: istvankereszt79

Szia!
Melyik sornál?
Megmutatnád a makrót, ami ezt okozza?
Üdv.

[ Szerkesztve ]

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

Így már megcsinálja, amit akarok, viszont nyit mellé egy üres excel fájlt, már csak ezt kell valahogy megoldanom.

XBOX ONE GT: istvankereszt79

Szia!
A Workbooks.Add sor felesleges. A Sheets(...).Copy magától létrehozza az új munkafüzetet.
Üdv.

Igen, köszi, hát ez bentmaradt. Kivettem, tökéletes. Köszönöm!

XBOX ONE GT: istvankereszt79

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?

a következő függvények segítségével pl:
- ha
- darabteli
- átlag

Bámulatos hol tart már a tudomány!

Köszi!
Egy variációban működik, de az "átlag" oszlop mellé magától kibont egy csomó új oszlopot... Ez jó így?
Kiindulás: [kép]

Eredmény: [kép]

Ha(darabteli (b2:h2;<1); átlag (b2:h2);1)

Bámulatos hol tart már a tudomány!

=HA(DARABTELI(B2:H2;1)=0;ÁTLAG(B2:H2);1)

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

Ü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.

Remélem képről érthetőbb.

[ Szerkesztve ]

XBOX ONE GT: istvankereszt79

=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!

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

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.

Szia!
Szerintem ezt a többszintű érvényesítés elve alapján meg lehet oldani, itt a fórumon is voltak rá példák (sajnos most nem tudok mutatni).
A másik cellában mindegy milyen érték van vagy az értékétől függ a választható lista?
Üdv.

Szia Feri!

A megelőző cellában mindegy az érték, ott csak azt vizsgálom, hogy üres vagy sem.
Rákeresek a többszintűre, köszönöm.

Üdv.:
P.

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%-a

Viszont, 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!

=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!

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.

Nem tudom én csinálok e valamit rosszul, de nekem ez B1-re megadva a napidíjat A1 nagyobb mint nulla értéknél HAMIS értéket ad, nulla vagy kisebb értéknél üresen hagyja a mezőt.

Meg van, nem raktam ár idő formátumra az A1-et!

[ Szerkesztve ]

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!

akkor vmit rosszul adtál meg

[ Szerkesztve ]

Bámulatos hol tart már a tudomány!

Szia!

Tökéletes lett! Közönöm!

XBOX ONE GT: istvankereszt79

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!

Feltehetően van azokban a cellákban valami láthatatlan karakter, pl. szóköz, azt kell kitörölnöd.

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, újra pivot tábla téma.
Hogy lehet neki (ennél is jobban) elmagyarázni hogy az a mező időt is tartalmaz?
(jobb oldalt selectálva ahogy az SQL táblában van)
köszönöm.

kattints jobb gombbal egy hónapra vagy dátumra, és válasszd a "Csoportbontás" lehetőséget.

Bámulatos hol tart már a tudomány!

és igen

Ü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

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 ]

Uhh, köszi!

Kiindulásnak tök jó lesz! Beleintegrálom a sajátomba, aztán finomítok.

mindenképpen visszajelzek, hogy mire jutottam.

XBOX ONE GT: istvankereszt79

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.

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.

Köszönöm!

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

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);"")"

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? :S

Odá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.

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!

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.

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.

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

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.

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.

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

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 ]