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

• #37126 CsoGe csendes tag Delila_1 #36759

  Új Válasz 2018-01-26 07:45:09 #37126

  Ú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

  

  CsoGe

  csendes tag

  válasz Delila_1 #36759 üzenetére

  Kedves Delila_1.
  A makrót használjuk a gyártásban 3 hete.
  Azt a visszajelzést kaptam tegnap a műszakvezetőktől, hogy az újonnan generált kérdések, megegyeznek azokkal, amit múlthéten generáltak.
  Tehát, ugyanazok a "véletlen számok" jöttek tegnap mint egy hete.
  Most kipróbáltam és valóban minden Excel indításkor a számgenerálás ugyanazokat a számokat hozza.
  Ha kilépek és megint elindítom, akkor megint ugyanazokat a véletlenszámokat kapom. (nincs ismétlődés), csak 10 különböző szám, ami minden első generálásnál ugyanaz.

  Ez volt a makró:

  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
  For sor = kezd To kezd + 4
  Cells(sor, "D") = Int(Rnd() * 111) + 1
  Next
  End Sub

  Mi lehet szerinted a probléma?

  Köszi,
  Gergő

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