Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- Elektromos rásegítésű kerékpárok
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- gerner1
- Gurulunk, WAZE?!
-
LOGOUT
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
Hirdetés
Fferi50- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- HP. Laptop. i5. Model: 15-da1002nq
- BESZÁMÍTÁS! ASRock B760 i5 14600KF 32GB DDR5 500GB SSD RX 9070 16GB be quiet! Pure Base 500DX 750W
- GAMER PC! i7-12700 / RTX 3080 Ti / 32GB 4133MHz / B760M / 1TB NVMe / 700w! BeszámítOK
- Samsung Galaxy S23 256,Átlagos,Adatkabel,12 hónap garanciával
- Eredeti Lenovo 90W szögletes (téglalap) notebook táp + kerek átalakító egyben eladó
- ÚJ 27% - Corsair iCUE SP120 RGB ELITE Triple (CO-9050109-WW) ARGB ventillátor szett!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest