Keresés: - Microsoft Excel topic - Mobilarena Hozzászólások

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Téma összefoglaló

Utoljára frissítve: 2023-11-13 08:31

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

#30285 Delila_1 veterán MCGaiwer #30284

Új Válasz 2016-01-29 10:56:54 #30285
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz MCGaiwer #30284 üzenetére

Ez az, amit helyben lehetne megnézni.
A ### akkor jelenik meg, mikor az ott lévő érték nem fér el a cellában. Vedd szélesebbre az oszlopot, valószínűleg látni fogod, mi a hiba.
#29876 Delila_1 veterán MCGaiwer #29872

Új Válasz 2015-12-14 12:09:58 #29876
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz MCGaiwer #29872 üzenetére

Másolás, Irányított beillesztés, Értéket.
#29843 Delila_1 veterán MCGaiwer #29824

Új Válasz 2015-12-11 19:31:29 #29843
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz MCGaiwer #29824 üzenetére

Az a makró ennyi:
Function X(ter As Range) X = Application.CountIf(ter, "x") End Function
A füzetedben egy modulba másolod, a módját megtalálod a Téma összefoglalóban.
A cellába beírod =x(GV3:GZ8) , és enter. A területet egérrel is kijelölheted.
#29824 MCGaiwer addikt MCGaiwer #29818

Új Válasz 2015-12-11 13:45:23 #29824
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MCGaiwer

addikt

válasz MCGaiwer #29818 üzenetére

sikerült leszűkítenem annyira, hogy egy olyan Label-t akarok, ami a következő függvény eredményét mutatja COUNTIF(F54:AJ54;"x") ahol f54:AJ54 az egérrel kijelölt területet jelenti (valós időben frissítve)
#29750 Delila_1 veterán MCGaiwer #29748

Új Válasz 2015-12-08 13:02:50 #29750
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz MCGaiwer #29748 üzenetére

Az AK3 képlete legyen
=HA(DARABTELI(F3:AJ3;"x")>0;DARABTELI(F3:AJ3;"x");"")
az AL3-é pedig
=HA(DARABTELI(F3:AJ3;"<>x")-DARABTELI(F3:AJ3;"")>0;DARABTELI(F3:AJ3;"<>x")-DARABTELI(F3:AJ3;"");"")
Az AK3-ban próbáltam az egyszerűbbnek tetsző HAHIBA függvénnyel megoldani, de ledolgozott napok esetén az üres string helyett 0 értéket ad.
Figyelj, hogy a többi hónapban a megfelelő területet add meg a képletekben.
#29742 Delila_1 veterán MCGaiwer #29739

Új Válasz 2015-12-07 15:54:20 #29742
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz MCGaiwer #29739 üzenetére

Bevihetsz az F3:OB70 tartományra egy újabb formázást, ahol a nem ledolgozott napok karaktereit pirosra állítod, hogy jobban kiemelkedjenek a sok x közül. A képlet
=ÉS(SZÖVEG.E(F3);F3<>"x")
#29741 Delila_1 veterán MCGaiwer #29739

Új Válasz 2015-12-07 15:30:22 #29741
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz MCGaiwer #29739 üzenetére

Közben összeállítottam egy egyszerűbbet, egész évre.
Vigyázz, a 2. sorban 2013-as dátumok szerepeltek. Fontos, hogy az aktuálisak legyenek ott a feltételes formázás miatt, ami a hétvégék, ünnepnapok, és áthelyezett munkanapok hátterét adja.
Jövőre a Munka1 lapon át kell írnod a dátumokat, vagy csak folytatnod a listákat a 2016-osakkal.
#29735 Delila_1 veterán MCGaiwer #29727

Új Válasz 2015-12-07 13:43:42 #29735
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz MCGaiwer #29727 üzenetére

Feltöltöttem ide a fájlt, ahol a januári képleteket beírtam. Ennek alapján összeállíthatod a többi hónapot.
A Munka1 lap tartalmazza az idei ünnepeket (Ünnepek tartomány), és ledolgozandó szombati napokat (Mn tartomány).
#29726 Fferi50 Topikgazda MCGaiwer #29725

Új Válasz 2015-12-05 22:37:39 #29726
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz MCGaiwer #29725 üzenetére

Szia!
Azért megmutatnád fals adatokkal, hátha mégis tudunk vele kezdeni valamit. Mert látatlanban biztosan nem fog menni...
Üdv.
#29724 Fferi50 Topikgazda MCGaiwer #29723

Új Válasz 2015-12-05 19:41:38 #29724
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz MCGaiwer #29723 üzenetére

Szia!
"Egy olyan kimutatást kellene csinálnom, ami gombnyomásra összesíti az adott ember egész éves munkanapjait, és mutatja, hogy bizonyos hónapokban mennyit volt távol."
Próbálkoztál már a kimutatással? Nagyon sokféle lehetőséget rejt magában. Excel verzió függő a varázsló, de mindegyikben van (legalábbis 2010-ig).
Oldal mezőnek (vagy szűrőnek) felvenném a dolgozók nevét tartalmazó oszlopot.
Oszlopcimke az év, a hónap és a nap.
Lehet, hogy előtte a "fejléc" sorokat 3 szintűvé kellene tenni az előzőek szerint.
De ha felteszel valahova egy pár soros kitalált neveket tartalmazó táblát, biztosan lesz, aki gyakorlati példát is csinál számodra.
Üdv.
#29723 MCGaiwer addikt MCGaiwer #29581

Új Válasz 2015-12-05 18:37:32 #29723
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

MCGaiwer

addikt

válasz MCGaiwer #29581 üzenetére

[link]
hát végül nem sikerült boldogulnom a dologgal. Esetleg van bárki, aki bevállalná egy anonimizált táblával (vagy ha nem is megcsinálni, legalább ránézni, hogy értse mire lenne szükség)
#29584 Fferi50 Topikgazda MCGaiwer #29581

Új Válasz 2015-11-23 17:58:42 #29584
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fferi50

Topikgazda

válasz MCGaiwer #29581 üzenetére

Szia!
Tkp a kérdésben meg is adtad a választ. Én biztosan kimutatással próbálkoznék (beszúrás - táblázatoknál a kimutatás a menüben).
Üdv.
#29211 FozzieBear csendes tag MCGaiwer #29210

Új Válasz 2015-10-26 18:49:23 #29211
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

FozzieBear

csendes tag

válasz MCGaiwer #29210 üzenetére

Akkor ráeresztenék egy lekérdezést a woksheetre. Office 2016-ban new query->from file , korábbi excelhez kell hozzá a PowerQuery add-in.
Vagy másik megoldás : makró.
#29209 FozzieBear csendes tag MCGaiwer #29208

Új Válasz 2015-10-26 18:34:39 #29209
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

FozzieBear

csendes tag

válasz MCGaiwer #29208 üzenetére

Ha csinálsz egy másolatot előtte a sheetről, az nem jó? Vagy úgy akarod, hogy dinamikusan frissüljön, ha frissül az eredeti sheet?
#29207 FozzieBear csendes tag MCGaiwer #29206

Új Válasz 2015-10-26 17:56:59 #29207
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

FozzieBear

csendes tag

válasz MCGaiwer #29206 üzenetére

Az Insert -> Table miért nem járható? Egyébként pivotot lehet range-ből is csinálni, nem csak table-ből, bár utóbbi kétségkívül szebb.
#29081 Delila_1 veterán MCGaiwer #29071

Új Válasz 2015-10-17 08:31:59 #29081
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz MCGaiwer #29071 üzenetére

Töltöd folyamatosan az első lap táblázatát. Ezekről az eseményvezérlő makró 20 oszloppal jobbra másolatot készít. Nem írtad, hány oszlopba viszed fel az adatokat, gondoltam, elég lesz az első 20.
Kezded kitölteni a táblázatodat, a 2. (B) oszloptól kezdve. Mikor beviszel egy adatot a B oszlopba, a makró megnézi, van-e már a 20-szal jobbra lévő (V) oszlopban érték. Ha nincs, oda másolja a bevitt értéket, majd az aktuális sor A oszlopába beírja az aktuális dátumot. Folytatod a táblázat kitöltését a következő oszloppal. Nem fontos minden oszlopba írnod, következzen most a D (4. oszlop) értékének a bevitele. A makró megint megnézi, hogy a 4+20-adik oszlopban van-e már eltárolva érték. Ha nincs, az aktuális sor 1:4 oszlopát értékként beilleszti a 20+1 oszloptól kezdve. Ha van, nem módosítja, másképp nem tudod az eredetit visszaállítani.
Így folyamatosan másolatot készít az eredetileg bevitt értékekről 20 oszloppal jobbra.
Másnap megváltoztatod a D értékét. A makró látja, hogy van már adat a 24. oszlopban, nem módosít. Később rájössz, hogy az eredetileg bevitt érték volt jó. Ekkor beállsz a kérdéses sorba, és indítod a gombbal a visszaállítást. A gombhoz rendelt Elozo_Click megállapítja az aktuális sor utolsó kitöltött oszlopát (24), és a V (22.) oszloptól eddig másolja az adatokat, értékként beilleszti a B oszloptól. Tehát a régi dátum kivételével felülírja az eredeti táblázat aktuális sorát az előzően bevitt adatokkal, majd az A oszlopba beírja az aktuális dátumot.
Elég nehéz lehet ezt így követni, de a kérdésedet is, ami az első felvetésed óta többször változott. Talán legjobb lenne a kályhától kiindulva, az eddigi kérdéseket mellőzve pontosan leírnod, mire van szükséged.
#29066 Delila_1 veterán MCGaiwer #29065

Új Válasz 2015-10-15 11:36:08 #29066
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz MCGaiwer #29065 üzenetére

A "B" lap A2 cellájának a képlete =HA(A!A2="";"";A!A2). Azért nem simán =A!A2, hogy ne rajzolja tele a lapot nullákkal üres A!cella esetén. A képletet másold jobbra és le, ameddig kell.
Az "A" lapon 1 gomb van a vezérlők eszköztárából, ami nálam Elozo névre hallgat. Ehhez a laphoz 2 makrót rendelj. Mindkettő csak a saját lapján dolgozik, mert a "B" lapon a képletek adják a mindenkori "A" lap értékekeit. Az első eseményvezérelt,
Private Sub Worksheet_Change(ByVal Target As Range) Dim oszlop As Integer, uoszlop As Integer Application.EnableEvents = False If Target.Row = 1 Then Exit Sub If Cells(Target.Row, Target.Column + 20) = "" Then uoszlop = Cells(Target.Row, 20).End(xlToLeft).Column Range(Cells(Target.Row, 1), Cells(Target.Row, uoszlop)).Copy Range("U" & Target.Row).PasteSpecial xlPasteValues Application.CutCopyMode = False Cells(Target.Row, 1) = Date Range(Target.Address).Activate End If Application.EnableEvents = True End Sub
Ez a makró másolatot készít az aktuális sor adatairól, az U oszloptól kezdődően. Ha sok oszlopod van, teheted hátrább is. Az aktuális dátumot beírja az A oszlopba.
A második makró a gombhoz rendelt.
Private Sub Elozo_Click() Dim sor As Long, oszlop As Integer, uoszlop As Integer sor = Selection.Row: oszlop = Selection.Column uoszlop = Cells(sor, Columns.Count).End(xlToLeft).Column Application.EnableEvents = False Range(Cells(sor, "V"), Cells(sor, uoszlop)).Copy Range("B" & sor).PasteSpecial xlPasteValues Range("A" & sor) = Date Cells(sor, oszlop).Activate Application.CutCopyMode = False Application.EnableEvents = True End Sub
Működése: állj a sorra, ahol vissza akarod csalni az előző adatokat, majd klikkelj a gombra. A V oszloptól kezdve az első makró által beírt utolsó adatig másol a B oszlopba, az A-ba beírja az aktuális dátumot.
Ha a régi dátumot is vissza akarod állítani, akkor a másolás az U-tól kezdődjön, a célcella pedig range("A" & sor) legyen. Ekkor nem kell a range("A" & sor)=date sor.
#29063 poffsoft veterán MCGaiwer #29062

Új Válasz 2015-10-14 21:20:47 #29063
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

poffsoft

veterán

válasz MCGaiwer #29062 üzenetére

nem mondom, hogy nem lehet, de én nem tudom megcsinálni.
#29059 poffsoft veterán MCGaiwer #29058

Új Válasz 2015-10-14 16:59:53 #29059
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

poffsoft

veterán

válasz MCGaiwer #29058 üzenetére

ez az "A" sheet módosulásakor a "B" sheetre ír adatokat, és az "A" sheeten fut, mivel annak az eseményét figyeli.
Az undo funkciót passzolnám...
#29057 poffsoft veterán MCGaiwer #29042

Új Válasz 2015-10-14 16:04:35 #29057
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

poffsoft

veterán

válasz MCGaiwer #29042 üzenetére

Worksheets("Mytarget").Cells(Target.Row, "A").Value = Date
hogy tetszene?
Mindenképpen arra a lapra kell az eseményfigyelést tenned, aminek az eseményeit figyeled.
Viszont bármelyik munkalapot elérheted belőle.
Persze máshol létező publikus subokat is hívogathatsz...