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

• #37127 Delila_1 veterán CsoGe #37126

  Új Válasz 2018-01-26 07:56:16 #37127

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

  Szia Gergő!

  Betettem egy új sort, ami rendbe teszi a véletlenek lelkét.

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

kezd = Range("D" & Rows.Count).End(xlUp).Row + 1
If kezd = 2 Then kezd = 1
Randomize 'ez a sor a lelke
For sor = kezd To kezd + 4
Cells(sor, "D") = Int(Rnd() * 111) + 1
Next
End Sub

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