< návrat zpět

MS Excel


Téma: Makro na náhodný výběr řádku rss

Zaslal/a 9.1.2020 14:13

Ahoj, potřeboval bych poradit s makrem. Mám tabulku, kde bude ve sloupci A na každém řádku nějaký text, max asi 500řádku, ale počet se bude průběžně měnit 300-500 cca. A potřebuji makro, kde po spuštění mi náhodně vybere tři řádky s textem a zkopíruje mi to do ruhého listu ve stejném sešitě.

Byl by schopen někdo poradit?

Moc děkuji za pomoc 1

Zaslat odpověď >

#045523
avatar
napríklad takto
Sub Makro1()
Sheets("Hárok1").Select
Range("A1").Select
x = Range(Selection, Selection.End(xlDown)).Rows.Count
a = Int(Rnd() * x) + 1
bb: b = Int(Rnd() * x) + 1
If b = a Then GoTo bb
cc: c = Int(Rnd() * x) + 1
If c = b Or c = a Then GoTo cc
Sheets("Hárok2").Select
Range("A1") = Sheets("Hárok1").Cells(a, 1)
Range("A2") = Sheets("Hárok1").Cells(b, 1)
Range("A3") = Sheets("Hárok1").Cells(c, 1)
End Sub
citovat
#045526
avatar
Díky za makro, ale nějak to nefunguje, přepisuje mi to data v prvním listu 7citovat
#045528
avatar
Sub Makro1()

Sheets("List1").Select

Range("A1").Select

x = Range(Selection, Selection.End(xlDown)).Rows.Count

a = Int(Rnd() * x) + 1

bb: b = Int(Rnd() * x) + 1

If b = a Then GoTo bb

cc: c = Int(Rnd() * x) + 1

If c = b Or c = a Then GoTo cc

Sheets("List2").Select

ActiveSheet.Range("A1") = Sheets("List1").Cells(a, 1)

ActiveSheet.Range("A2") = Sheets("List1").Cells(b, 1)

ActiveSheet.Range("A3") = Sheets("List1").Cells(c, 1)

End Subcitovat
#045529
avatar

skyker napsal/a:

Díky za makro, ale nějak to nefunguje, přepisuje mi to data v prvním listu

To vážne? Asi máš zlý zošit.
No keď nevieš ani skopírovať makro? Odkiaľ si tam vzal ACTIVESHEET?citovat
#045532
avatar
Už dobrý, jen musel jsem tam dát ten active sheet, bez toho to nešlo. A dávalo to na list 1. Díky moc. Nemohl jsem hned napsat druhý post a pak už jsem na to zapomněl.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Jak vypsat určité hodnoty ze sloupce

elninoslov • 20.2. 1:03

Jak vypsat určité hodnoty ze sloupce

lugr • 19.2. 16:33

Jak vypsat určité hodnoty ze sloupce

Poseidon • 19.2. 14:46

PQ nad *.xlsb suborom, excel tables

AL • 19.2. 13:45

PQ nad *.xlsb suborom, excel tables

elninoslov • 19.2. 13:17

Datumovka-DatePicker

veny • 19.2. 13:08

Datumovka-DatePicker

veny • 19.2. 13:07