MS Excel

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

Zaslal/a skyker 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

Zaslat odpověď >

marjankaj(9.1.2020 14:39)#045523

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 Subcitovat

skyker(9.1.2020 15:07)#045526

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

citovat

skyker(9.1.2020 15:17)#045528

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

marjankaj(9.1.2020 15:21)#045529

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

skyker(10.1.2020 8:28)#045532

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)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.