Új hozzászólás Aktív témák

• #44322 Delila_1 veterán Sprite75 #44321

  Új Válasz 2020-06-23 11:22:14 #44322

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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 Sub

  A 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