- Sony Xperia 1 VII - Látod-e, esteledik
- Samsung Galaxy A56 - megbízható középszerűség
- Bivalyerős lett a Poco F6 és F6 Pro
- iPhone topik
- Redmi Note 9 Pro [joyeuse]
- Yettel topik
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Hivatalos a OnePlus 13 startdátuma
- Samsung Galaxy Watch7 - kötelező kör
- Samsung Galaxy Z Flip5 - ami kint, az van bent
Hirdetés
-
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
-
-
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.
-
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.
-
-
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.
-
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.
-
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 SubEz 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 SubMű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.
-
poffsoft
veterán
Új hozzászólás Aktív témák
Fferi50
- iPhone 13 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3057, 95% Akkumulátor
- AKCIÓ! MSI Z390 i5 9400F 16GB DDR4 512GB SSD RTX 2060 Super 8GB Corsair Carbide Series 200R 600W
- Készpénzes számítógép PC félkonfig alkatrész hardver felvásárlás személyesen / postával korrekt áron
- billentyűzetek - kiárusítás - Logitech, Corsair, ASUS
- Bomba ár! HP Elitebook Folio 9470m - i5-3GEN I 8GB I 480GB SSD I 14" I DP I Cam I W10 I Garancia!
Állásajánlatok
Cég: FOTC
Város: Budapest