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

• #36745 Delila_1 veterán CsoGe #36741

  Új Válasz 2017-12-12 17:08:13 #36745

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

  Esetleg így:

  Sub Veletlen()
Dim kezd As Long, sor As Long

kezd = Range("E" & Rows.Count).End(xlUp).Row + 1
If kezd = 2 Then kezd = 1
For sor = kezd To kezd + 4
Cells(sor, "E") = Int(Rnd() * 153) + 1
Next
End Sub

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