- Fotók, videók mobillal
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Telekom mobilszolgáltatások
- Apple iPhone 17 Pro Max – fennsík
- Hamarosan robottelefon figyelheti minden mozdulatod
- Apple Watch Ultra - első nekifutás
- Android szakmai topik
- Apple Watch
- Samsung Galaxy S25 - végre van kicsi!
-
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- Kínai és egyéb olcsó órák topikja
- Kormányok / autós szimulátorok topikja
- Lalikiraly: Kinek milyen setupja van?
- OLED TV topic
- Hobby elektronika
- Filmvilág
- Építő/felújító topik
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- alza vélemények - tapasztalatok
- RETRO beárazás (mobil, PC, konzol)
- További aktív témák...
- iPhone XR 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3115
- GYÖNYÖRŰ iPhone 13 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3576, 90% Akkumulátor
- Honor X7 128GB, Kártyafüggetlen, 1 Év Garanciával
- Microsoft Surface Pro 9 i5-1245U 16GB 1000GB 1 év garancia
- GYÖNYÖRŰ iPhone 12 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3195, 95% Akkumulátor
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest