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

• #44317 Delila_1 veterán Sprite75 #44316

  Új Válasz 2020-06-22 16:47:43 #44317

  Ú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 #44316 üzenetére

  Toldd meg a lapvédelemmel.

  Sub Sorszam()
Dim usor As Long

usor = Range("C" & Rows.Count).End(xlUp).Row + 1
Range("D" & usor) = Application.WorksheetFunction.Max(Range("D2:D" & usor - 1)) + 1
End Sub

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