Hirdetés
- Milyen okostelefont vegyek?
- iPhone topik
- Xiaomi 15 - kicsi telefon nagy energiával
- Xiaomi 14 - párátlanul jó lehetne
- Külföldi prepaid SIM-ek itthon
- Poco X6 Pro - ötös alá
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Vivo X300 Pro – messzebbre lát, mint ameddig bírja
- Honor Magic5 Pro - kamerák bűvöletében
- Mobil flották
-
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
-
Delila_1
veterán
válasz
Backrau
#25139
üzenetére
Ebben az esetben a laphoz rendelendő makró
Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target) Then Exit Sub
If Target.Column = 2 Then
Application.EnableEvents = False
Cells(Target.Row + 1, 1).EntireRow.Insert
Cells(Target.Row + 1, 1) = Cells(Target.Row, 1)
Application.EnableEvents = True
End If
End Sub -
Delila_1
veterán
válasz
Backrau
#25136
üzenetére
Úgy érted, hogy ha a B oszlopba beírsz valamit, akkor annak a sornak az A cellájában jelenjen meg az aktuális dátum?
Ha igen, rendeld a lapodhoz a nyúlfarknyi makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target) Then Exit Sub
If Target.Column = 2 Then Cells(Target.Row, 1) = Date
End SubEzután makróbarátként kell mentened a füzetedet.
Új hozzászólás Aktív témák
Hirdetés
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Allegro vélemények - tapasztalatok
- PlayStation 5
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Gumi és felni topik
- E-book olvasók
- Milyen okostelefont vegyek?
- Fejhallgató erősítő és DAC topik
- iPhone topik
- ingyenes webtárhely és játékszerver
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Apple iPad Air 5th 64GB 100% (1év Garancia)
- HP EliteBook x360 1040 G11 - 14" WUXGA Érintő - Ultra 7 155H - 16GB - 512GB - Win11
- Kezdő Gamer PC-Számítógép! Csere-Beszámítás! I7 4770K / GTX 1060 6GB /16GB RAM /250SSD + 500GB SSHD
- Keresünk Galaxy S22/S22+/S22 Ultra
- BESZÁMÍTÁS! ASROCK H310 i5 8500T 16GB DDR4 120GB SSD 1TB HDD GTX 1650 S 4GB Formula Air Mesh G3 400W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
