Ú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

• #36743 Fferi50 Topikgazda CsoGe #36741

  Új Válasz 2017-12-12 16:16:42 #36743

  Ú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

  

  Fferi50

  Topikgazda

  válasz CsoGe #36741 üzenetére

  Szia!

  Amennyiben az E oszlopod folyamatosan van töltve, akkor az első üres cellát a következő adja:

  Range("E1").End(xlDown).Offset(1,0)

  Innen indíthatod a ciklust.

  Üdv.

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