-
Fototrend
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
- "3D-s" hővezető csövekkel jön a Cooler Master legfrissebb CPU-hűtője
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- One otthoni szolgáltatások (TV, internet, telefon)
- OLED TV topic
- Tőzsde és gazdaság
- Battlefield 6
- Xiaomi 15T Pro - a téma nincs lezárva
- GoodSpeed: Reklámmentesítés HyperOS-ben Xiaomi/POCO/Redmi
- Otthoni hálózat és internet megosztás
- Brogyi: CTEK akkumulátor töltő és másolatai
- További aktív témák...
- Eladnád a telefonod? KÉSZPÉNZES OKOSTELEFON FELVÁSÁRLÁS azonnali fizetéssel!
- Bomba ár! Dell Latitude 5590 - i5-8GEN I 16GB I 256SSD I 15,6" FHD I HDMI I CAM I W11 I Gari
- BESZÁMÍTÁS! Acer Predator Helios 300 17 FHD notebook - i7 9750H 32GB DDR4 1TB SSD RTX 2060 6GB W11
- Xiaomi Redmi Note 14 Pro 5G / 8/256GB / Kártyafüggetlen / 12Hó Garancia
- Extra olcsó! HP 230 Vezetéknélküli USB-s Billentyűzet
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest