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

• #37148 CsoGe csendes tag Delila_1 #37133

  Új Válasz 2018-01-29 13:17:23 #37148

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

  OK, köszönöm a segítséget!
  Gergő

• #37131 CsoGe csendes tag Delila_1 #37127

  Új Válasz 2018-01-26 10:59:23 #37131

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

  Kedves Delila_1!

  Hála neked, megoldódott ez is.
  1 kérdésem lenne még: Ezek a véletlenszámok tudnak most egy generáláson belül ismétlődni?
  Tehát ha kérek 5 számot, akkor biztosan 5 különböző lesz, vagy van esély rá, hogy valami ismétlődik?

  Köszi,
  Gergő

• #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ő

• #36761 CsoGe csendes tag Delila_1 #36759

  Új Válasz 2017-12-14 16:36:08 #36761

  Ú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

  Minden tökéletesen működik, megyek neked eggyel!

  Köszönök mindent!
  Gergő

• #36758 CsoGe csendes tag Delila_1 #36754

  Új Válasz 2017-12-13 18:06:20 #36758

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

  Hali!

  Ez azt jelenti, hogy egy gombhoz tudok több makrót is rendelni?
  Amit tegnap írtál, az van most a gombhoz rendelve.
  Ha ezt most hozzáteszem, akkor a számgenerálás nem fog menni.

  Egyébként ezt az üzenetet kapom:
  http://www.kepfeltoltes.eu/images/hdd1/2017/12/13/9142017_12_13_18_04_08_.png

  Köszi,
  Gergő

• #36751 CsoGe csendes tag Delila_1 #36747

  Új Válasz 2017-12-13 11:08:50 #36751

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

  Hali!

  Lehetne még egy kérésem?
  Van egy olyan lehetőség most ezzel a makróval, hogy valaki véletlenül lenyomja a gombot 3-4szer és mindig generálja lefele a számokat.
  Be lehetne azt állítani, hogy a gomb megnyomása után 30 másodpercig ne lehessen a gombot újra megnyomni/ne generáljon újra számokat?
  Lehet valami időzítőt belerakni?
  Így elkerülhetném, hogy valaki véletlenül túl sok számot generáljon le.

  Előre is köszi a segítséget!
  Gergő

• #36746 CsoGe csendes tag Delila_1 #36745

  Új Válasz 2017-12-12 17:22:07 #36746

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

  Ez így nagyon tetszik!!!
  Kicsit szenvedek még vele és hátha jó lesz!

  Nagyon sokat segítettél köszi!

  Üdv.
  Gergő

• #36744 CsoGe csendes tag Fferi50 #36743

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

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

  Hali!

  Így nézett ki eddig a makró:

  Sub LPA_2018()

  Randomize
  For i = 3 To 7
  For j = 5 To 5
  Cells(i, j) = Int((153 * Rnd) + 1)
  Next
  Next
  End Sub

  A válaszod alapján nekem a For i=3-as sor így nézne ki:
  For i = Range("E1").End(xlDown).Offset(1,0

  Valamit tuti, hogy félre értek...

  Köszi,
  Gergő

• #36741 CsoGe csendes tag

  Új Válasz 2017-12-12 15:12:39 #36741

  Ú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

  Sziasztok!

  Egy „számomra” bonyolult kérdésben kérem a segítségeteket:
  Készítettem a kollégáimnak egy LPA (Layered Prozess Audit) kérdéscsomagot (153 kérdés)
  A kérdéseket betettem egy munakalapba úgy, hogy az „A” oszlopban vannak a kérdések számai, a „B”oszlopban pedig a kérdések.
  Egy másik munkalapon megcsináltam a formalapot.
  Most ott tartok, hogy ha a másik munkalapon az „E” oszlop bármely cellájába beírok egy számot, akkor a mellette lévő „G” oszlop cellája automatikusan megjeleníti a számhoz tartozó kérdést az első munkalapról.
  Szeretnék (de nem tudok) a „D” oszlopban egy vezérlőgombot létrehozni, amit ha megnyomok, akkor az „E” oszlopba generálódjon 5 db véletlen szám 1 és 153 között.
  Ez önmagában még működik és meg tudom csinálni (for ciklussal). A baj az, hogy mindig ugyanabba az 5 cellába generálok 5 számot én pedig folyamatosan szeretnék egymás alá 5 új számot generálni.
  Tehát ma generáltam 5 számot E1-től E5-ig. Holnap megnyomom megint a gombot és akkor E6-tól E10-ig kellene nekem 5 db új szám (úgy, hogy a tegnapiak érintetlenek maradnak, így a feltett kérdéseket mindig vissza tudom nézni.)
  Megoldható ez? Amennyiben igen, akkor tudnátok nekem kommentekkel egy ilyen makrót csinálni?
  Előre is köszönöm a feleségem (aki vár rám két éjszaka óta, de nem kap meg) nevében! 
  Üdv.
  Gergő

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