< 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

Docházka, zobrazení událostí

Lano • 29.9. 21:41

Docházka, zobrazení událostí

mepexg • 29.9. 21:13

Docházka, zobrazení událostí

Lano • 29.9. 18:52

VBA vyhledat a zapsat

Fantasyk • 28.9. 17:56

VBA vyhledat a zapsat

Stalker • 28.9. 16:27

VBA vyhledat a zapsat

Fantasyk • 28.9. 12:14

VBA vyhledat a zapsat

Jiří497 • 28.9. 11:31