Hirdetés
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- One mobilszolgáltatások
- Fotók, videók mobillal
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Külföldi prepaid SIM-ek itthon
- Motorola Edge 40 neo - színre és formára
- iPhone topik
- Milyen okostelefont vegyek?
- Nothing Phone 2a - semmi nem drága
- Xiaomi 13 - felnőni nehéz
-
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
Hirdetés
Fferi50
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciá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.
- The Elder Scrolls Online Imperial Collector s Edition
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- HP EliteBook 840 G11 Ultra 7 / 16GB RAM / 512GB SSD / FHD+ IPS / Garancia 2027.11.
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- TP Link HS100 Távolról vezérelhető Wi-Fi-s dugalj (Smart Plug)
- 228 - Lenovo LOQ (15IRX10) - Intel Core i7-13650HX, RTX 5060
- Dell Wyse 5470,14",FHD, N4100 CPU,8GB DDR4,128GB SSD,WIN11,IR KAMERA
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest