Hirdetés
- iPhone topik
- Samsung Galaxy A52s 5G - jó S-tehetség
- Akciófigyelő: Egész hónapos Black Friday a mi.com-on
- 175 fotó, amit a Vivo X300 és X300 Pro kameráival készítettem
- Poco F7 – bajnokesélyes
- Yettel topik
- Műholdas AI chippel fedné le a bolygót a Samsung
- Élő Fordítást hoz a Mikulás az európai AirPods tulajoknak
- Milyen okostelefont vegyek?
- Még nincs is Vivo X300 Ultra, de már a nemzetközi kameratrónra pályázik
-
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
-
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.
-
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.
Új hozzászólás Aktív témák
- NJOY Szünetmentes + AVR Horus Plus 2000, 2000VA, 1200W, Line-Interactice, LCD Touch displa PWUP-LI20
- Asus ROG Zephyrus G15 - 15.6" 4K 120Hz - Ryzen 7 6800HS - 24GB - 512GB - RTX 3060 - 2 hó garancia -
- Samsung Galaxy S22 Ultra 5G 512GB, Kártyafüggetlen, 1 Év Garanciával
- PlayStation 5 SLIM DIGITAL + kontroller 2027.05-ig garanciális, számlával!
- GYÖNYÖRŰ iPhone 14 128GB Starlight -1 ÉV GARANCIA -Kártyafüggetlen, MS3677
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő

Fferi50

