- Google Pixel topik
- Android alkalmazások - szoftver kibeszélő topik
- Milyen okostelefont vegyek?
- Samsung Galaxy Watch6 Classic - tekerd!
- T Phone 2 Pro - majdnem mindenben jobb
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Huawei Watch GT 5 Pro - egészség + stílus
- Szakít a OnePlus és a Hasselblad?
- Yettel topik
- Mobil flották
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
-
Fferi50
Topikgazda
válasz
zoli1962
#32503
üzenetére
Szia!
Nem tudom, megfelel-e így, de a MA() függvény pontosan ezt teszi. Egyszer beírod, majd lehúzod a beírt számok mellé. Nap végén kijelölöd az egész adatsort - másolás - irányított beillesztés értéket, így rögzíted az értéket és másnapra nem fog megváltozni.
Makróval:
A munkalap kódlapjára:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column=1 Then
Application.EnableEvents = False
Target.Offset(0,1).Value=Date()
Application.EnableEvents = True
End If
End SubÜdv.
-
-
Delila_1
veterán
-
Mutt
senior tag
válasz
zoli1962
#24715
üzenetére
Hello,
Makrómentes megoldás pedig ez:
1. Hozz létre egy dinamikus tomböt a névkezelőben (pl. Lista).
2. A hivatkozása legyen ez: =ELTOLÁS(Munka2!$C$3;0;0;DARAB(Munka2!$C:$C))
3. Munka1 lapon az utolsó értéket a =INDEX(Lista;DARAB(Lista)) képlet adja meg, ez megy A1-be.
4. A2-be pedig =A1-INDEX(Lista;DARAB(Lista)-1) adja meg az utolsó két elem különbségét.üdv.
-
Delila_1
veterán
válasz
zoli1962
#24715
üzenetére
Köszönöm a "rangot".
Két makró kell hozzá. Az elsőt a Munka2 laphoz kell rendelned.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Beiras Target, Target.Row
End SubA második egy modulban legyen.
Sub Beiras(ertek, sor)
Sheets("Munka1").Range("A1") = ertek
If IsNumeric(Sheets("Munka2").Range("C" & sor - 1)) Then _
Sheets("Munka1").Range("A2") = ertek - Sheets("Munka2").Range("C" & sor - 1)
End Sub -
#12154
Fire/SOUL/CD
félisten
zoli1962
#12153
-
#11175
Fire/SOUL/CD
félisten
zoli1962
#11174
-
Delila_1
veterán
válasz
zoli1962
#11169
üzenetére
Nézz szét itt, és ezen a környéken.
2003-ban a Beszúrás, Név, Név megadása almenüben adhatsz nevet egy területnek, és ugyanott módosíthatod is.
A módosításnál lépj be a Hivatkozás mezőbe, és nyomj F2-t a szerkesztő üzemmódhoz, másképp elrontod a képletedet. Mikor kész, nyomd meg a Hozzáad gombot – módosításkor is. A panel bezárása előtt érdemes a Hivatkozás mező jobb oldalán lévő színes gombot megnyomni, megmutatja a képletnek megfelelő területet. Ha hibáztál, így könnyen észreveszed.
-
#11170
Fire/SOUL/CD
félisten
zoli1962
#11169
válasz
zoli1962
#11169
üzenetére
Nem emléxem már, de mintha a beszúrás/név/név megadása és ezen belül van valami lehetőség rá...
Szerk na ez lesz az..., úgy átszik még egy darabig nem kell cavinton-t szednem...
-
#11168
Fire/SOUL/CD
félisten
zoli1962
#11167
válasz
zoli1962
#11167
üzenetére
A "trükk" ebben rejlik, ezt vizsgáld meg.
(2010-ben (meg talán 2007-es Excelben is) a Képletek fül/Névkezelővel tudod előcarázsolni a fenti ablakot) -
#11128
m.zmrzlina
senior tag
zoli1962
#11119
m.zmrzlina
senior tag
válasz
zoli1962
#11119
üzenetére
Ilyen logika mentén is el lehet indulni:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Or Target.Column = 8 Then
Range("A" & ActiveCell.Row).Select
ActiveCell.Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Save
End If
End SubHa vagy a D vagy a H oszlopban változik valami akkor a változtatott cella sorának és az A oszlop metszéspontjában lévő cella tartalmát értékként magára másolja.
Ez az A oszlop megfelelő cellájából kitörli a benne lévő képletet így az a cella többet nem fog újraszámolódni.
-
#11127
m.zmrzlina
senior tag
zoli1962
#11124
m.zmrzlina
senior tag
válasz
zoli1962
#11124
üzenetére
Vess egy pillantást Kornl23 #10954-es hsz-ban lévő kérdésre és a rá adott válaszra. Ha az a módszer jó neked akkor tudjuk pontosítani és a te munkafüzetedhez illeszteni a makrót.
-
föccer
nagyúr
válasz
zoli1962
#11124
üzenetére
Kijelölöd az összes dátumot tartalmazó cellát. Nyomsz egy ctrl+c (másolás), majd a kijelölést meghagyva jobb klikk a területen-> irányított beillesztés, ahol kiválasztod az értéket, és leokézod. Ekkor a kimásold adatokból az értékeket beszúrja az aktuális területre, felül írva ezzel az ott lévő =most() képletet. Így amikor legközelebb beírsz egy új adatot, ezek a cellák nem fognak változni, hiszen nem képlet van benne, hanem csak egy dátum/idő.
Üdv, föccer
-
perfag
aktív tag
válasz
zoli1962
#11119
üzenetére
Hát, a Most() az mindig az éppen most-ot adja ha be van kapcsolva a tábla automatikus újraszámolása.
Ha az a problémád, hogy rögzíteni szeretnéd a dátumot amikor egy számot bevittél, akkor vagy makrót kell használnod, vagy a celláidat ki kell venned az újraszámolásból. Erről volt is már szó itt. Egy fapados módszer: kijelölöd a dátumos celláidat, Másolás, majd irányított beillesztés, csak adattal. Ettől eltűnnek a képletek.
Ha nem ez a problémád, akkor nem értettelek meg. -
![;]](http://cdn.rios.hu/dl/s/v1.gif)
. Úgy formázd a cellá(ka)t, hogy csakis a dátumot mutassa.
Új hozzászólás Aktív témák
Fferi50
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Eladó Steam kulcsok kedvező áron!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Telefon felváráslás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- Apple Watch SE 40mm 32GB, Kártyafüggetlen, 1 Év Garanciával
- LG 48C2 - 48" OLED EVO - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - A9 Gen5 CPU
- Szinte új, minőségi, állítható ritkítóolló
- Jo Nesbo: LEOPÁRD (nem olvasott)
Állásajánlatok
Cég: FOTC
Város: Budapest