Hirdetés
- Yettel topik
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- iPhone topik
- Samsung Galaxy S26 Ultra - fontossági sorrend
- MWC 2026: Bajnoki címre pályázik a Xiaomi Watch 5
- Google Pixel 10 Pro XL – tíz kicsi Pixel
- Google Pixel topik
- Nemzetközi vizekre evezett a Realme GT 7 és GT 7T
- Külföldi prepaid SIM-ek itthon
- Samsung Galaxy A52s 5G - jó S-tehetség
-
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
MCMLXXXII
#48956
üzenetére
Egyszerű válasz: nem.
Egy makrós megoldás lehet a célkereszt .
Még egyszerűbb, de szintén makrós megoldás: a laphoz rendelt makró
Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Application.CutCopyMode = False Then Application.CalculateEnd Sub
A feltételes formázás képlete pedig=VAGY(CELLA("sor")=SOR();CELLA("Oszlop")=OSZLOP()) -
temporello
tag
válasz
MCMLXXXII
#41014
üzenetére
A másik munkalapon létrehozod az összesíteni kívánt hónapok oszlopát (2019.02 2019.03 stb),e mellé meg:
=Szumhatöbb(Munka1!$E$4:$XFD$4;Munka1!$E$5:$XFD$5;">=" & KALK.DÁTUM(összesíteni kívánt hónap cellája;0);Munka1!$E$5:$XFD$5;"<" & KALK.DÁTUM(összesíteni kívánt hónap cellája;1)).
Az XFD a létező legnagyobb oszlop azonosító,ez garantálja,hogy az összes oszlopot vizsgálja.
(Megjegyzem,talán érdemes lenne az egész táblázatot átalakítani,hogy a dátumok legyenek az első oszlopban.)
-
Pakliman
tag
válasz
MCMLXXXII
#41014
üzenetére
Pl: így nyerem ki =szum(munka1!E4
4) az adott hónapot
Akkor most nem igazán értem, hogy mi is lenne a feladat
Nem az adott havi összes érdekel? Mert én ebből is úgy értem: =szum(munka1 dátum 1 től 30 v 31. ÉigHa mégis a havi kell, akkor átalakítva csak a piros sorokat figyelembe véve:
=SZUMHATÖBB(INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+2 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+2);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);">=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);"<=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0))
"Kínai"-magyar szótár :DD :
HOL.VAN($A2;Munka1!$A:$A;0) megkeresi az "Áru 1" szöveget a Munka1 lapon => 2.sor
DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1) a 201902-t átalakítja 2019.02.01 dátummá
DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0) a 201902-t átalakítja 2019.02.30 dátummá (2019.03.01 - 1 nap)
INDIREKT("Munka1!" & ... létrehozza a a másik munkalapra való hivatkozásokat pl.:
INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+2 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+2) => Munka1!4:4 -
Pakliman
tag
válasz
MCMLXXXII
#41011
üzenetére
Szia!
Egy lehetséges megoldás (ha jól értettem a feladatot):
A képletek (a Munka2 lapon!):
a zöld cellákban:
=SZUMHATÖBB(INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0) & ":" & HOL.VAN($A2;Munka1!$A:$A;0));INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+1 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+1);">=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+1 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+1);"<=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0))a narancs cellákban:
=SZUMHATÖBB(INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+2 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+2);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);">=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2);1);INDIREKT("Munka1!" & HOL.VAN($A2;Munka1!$A:$A;0)+3 & ":" & HOL.VAN($A2;Munka1!$A:$A;0)+3);"<=" & DÁTUM(BAL(B$1;4);KÖZÉP(B$1;5;2)+1;0))
A keresendő hónap az első sorban van sima számként pl.: 201904 -
Fferi50
Topikgazda
válasz
MCMLXXXII
#38680
üzenetére
Szia!
Úgy van, ahogyan gondoltam. Ha több cellát jelölsz ki egyszerre, akkor az egy cellára megírt feltételeket nem tudja értelmezni, ezért van a hiba. A Target helyett be kell vezetni egy változót és ciklusban kell végigmenni a tartományon:
Dim cl As Range
Application.EnableEvents = False
For Each cl in Target.Cells
If cl.Column > 4 And cl.Row Mod 2 = 0 Then
If cl = "" Then
cl.Offset(1) = ""
Else
If IsNumeric(cl) 'And Target.Count = 1 Then
cl.Offset(1) = Format(Now, "yyyy.mm.dd h:m")
cl.Offset(1).Locked = True
Columns(cl.Column).EntireColumn.AutoFit
End If
End If
End If
Next
Application.EnableEvents = TrueTalán így már nem lesz hiba.
Üdv.
-
Fferi50
Topikgazda
válasz
MCMLXXXII
#38677
üzenetére
Szia!
Mit jelent konkrétan, hogy összeomlik a VBA? Milyen hibaüzenettel áll meg? Lefagy az Excel? Kicsit részletesebben írd le a jelenséget.
Egyébként valószínűleg a több cellás kijelölés nincs rendben az eseménykezelőben, úgyhogy légy szíves másold be Worksheet_Change (esetleg a Worksheet_SelectionChange ha van) eljárásokat.Üdv.
-
Delila_1
veterán
válasz
MCMLXXXII
#38557
üzenetére
Ha az előző makró nem működött mobilon, ez sem fog.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 4 And Target.Row Mod 2 = 0 Then
ActiveSheet.Protect UserInterfaceOnly:=True
Application.EnableEvents = False
If IsNumeric(Target) And Target.Count = 1 Then
Target.Offset(1) = Format(Now, "yyyy.mm.dd h:m")
Range(Target.Address).Locked = True
Range(Target.Address).Offset(1).Locked = True
End If
Application.EnableEvents = True
End If
End SubA makró figyeli, hogy a páros sorokban az E oszloptól kezdődően szám legyen, ekkor az alatta lévő sorba beírja az aktuális dátumot és időt, majd zárolja a beírt szám és idő celláját.
-
-
), akkor rájössz, hogy nem számít, hogy hány oszlopból áll a táblázat 
4) az adott hónapot
Új hozzászólás Aktív témák
Hirdetés
- The Elder Scrolls Online Imperial Collector s Edition
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- Azonnali készpénzes AMD Radeon RX 5000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- BESZÁMÍTÁS! ASUS ROG STRIX B550 R5 5500 16GB DDR4 512GB SSD RX 6600 8GB CM MasterBox MB511 RGB 650W
- Bomba ár! Lenovo ThinkPad X12 Detachable i5-11G I 16GB I 512SSD I FHD+ Touch I Cam I W11 I Gari!
- Ducky One 3 FULL/TKL/SF/MINI billentyűzetek többféle színben és kapcsolókkal, plusz csuklótámaszok
- Samsung Galaxy S24 - Titanium Black - 8/256GB
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest