-
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
Sprite75
#44321
üzenetére
Rendeld a laphoz:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 And Target.Row > 1 And Target.Count = 1 And Target <> "" Then
Cells(Target.Row, 4) = Application.WorksheetFunction.Max(Range("D2:D" & Target.Row - 1)) + 1
End If
End SubA feltételnél azt vizsgáljuk, hogy
– a Q oszlopról van-e szó,
– hogy legalább a 2. sor legyen a bevitel helye,
– ne törlés legyen,
– és van-e bevitt adat. Ehelyett írhatsz szám ellenőrzést:IsNumeric(Target)Nincs szükség az alsó sor helyére, mert a Q oszlop bevitelére reagál.
Új hozzászólás Aktív témák
- Parfüm topik
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Sony MILC fényképezőgépcsalád
- Entware topik
- Luck Dragon: Asszociációs játék. :)
- Linux kezdőknek
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Apple MacBook
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- E-book olvasók
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Microsoft Office 2024 Home Business dobozos
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- HP 200W töltők (19.5V x 10.3A) kis kék, kerek, 4.5x3.0mm, 928429-002
- Apple iPhone 13 /128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 100% Után gyártott Kijelző
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- 233 - Lenovo Legion Pro 7 (16IAX10H) - Intel Core U9 275HX, RTX 5080
- iking.hu Apple iPhone 15 128GB Blue használt, karcmentes 100% akku 6 hónap garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
