Autovælger

Jeg er ikke helt klar over, hvad du mener. Skal den vælge 15 tilfældige ud af de 800 elementer, der står i A-kolonnen? Eller hvad skal der forstås ved Blandet.,

Ja 15 tilfældige ud af 800 i kolonne A. Hvis der kan varieret hver gang trykker på knap, hvis det er muligt.

Hvis du har antallet af tilfældige valg i D1 kan denne formel i f.eks E1 og kopieret nedefter bruges:

=IFERROR(INDEX($A$1:$A$800;IF(ROW()<=$D$1;INT(RAND()*800+1);""););"")
På dansk:
=HVIS.FEJL(INDEKS($A$1:$A$800;HVIS(RÆKKE()<=$D$1;HELTAL(SLUMP()*800+1);""););"")

Gengangere kan forekomme

okay, yes. Tak
Kan jeg udvide data? Den blev taget data fra kolonne A

Jeg har ændre lidt til G1 og til H1.

Det er data fra kolonne A til E

Kan det også med tekster og tal i kolonne H1,I1,J1,K1,L1?

Der er data i A1,B1,C1,D1,E1

Den vil jeg gerne også have at data ligger på H1,I1,J1,K1,L1

Når jeg indtast tal på G1

Er det muligt?

Ja, så bliver det blot til

=HVIS.FEJL(INDEKS($A$1:$A$800;HVIS(RÆKKE()<=$G$1;HELTAL(SLUMP()*800+1);""););"")

Det skulle have været

=IFERROR(INDEX(A$1:A$800;IF(ROW()<=$G$1;INT(RAND()*800+1);""););"")
eller på dansk
=HVIS.FEJL(INDEKS(A$1:A$800;HVIS(RÆKKE()<=$G$1;HELTAL(SLUMP()*800+1);""););"")

Skal indsættes i H1 og kopieres til H1:L30 eller hvor langt ned du har behov for

Yes, super tak :)

Nej, næsten.

Det data fra A1,B1,C1,D1,E1

det bliver ikke det samme som data i A1,B1,C1,D1,E1- i data  H1,I1,J1,K1,L1. Det bliver også blandet

Ups. Jeg er bange for at det kræver en hjælpekolonne.

Antal i G1.
Hjælpekolonne H med denne formel i H1
=HVIS(RÆKKE()<=$G$1;HELTAL(SLUMP()*800+1);"")
Kopieres nedefter

I I1 indsættes
=HVIS.FEJL(INDEKS(A$1:A$800;$H1;);"")
Kopieres til I1:M30 (efter behov)

okay nu forvirrer jeg lidt med formler.
Det er ikke sådan jeg skal gøre?

=HVIS.FEJL(INDEKS(A$1:A$1354;HVIS(RÆKKE()<=$G$1;HELTAL(SLUMP()*800+1);""););"")=HVIS(RÆKKE()<=$G$1;HELTAL(SLUMP()*800+1);"")


=HVIS.FEJL(INDEKS(B$1:B$800;HVIS(RÆKKE()<=$G$1;HELTAL(SLUMP()*800+1);""););"")=HVIS.FEJL(INDEKS(A$1:A$800;$H1;);"")

Hvordan kan jeg så "fastgør" det der blev hentet data?

Hver gang når jeg dobbeltklik på hvor som helst ændre hele tiden det 15 data. Eller når jeg dobbeltklik på mellem A&B

Kan ikke finde noget at når man ændre kun antal at det ændre data?

Så skal du nok bruge en makro i stil med denne. Den henter det antal tilfældige valg, som du har tastet ind i G1

Sub Valg()
Dim Antal, x, y, z As Integer
Range("H1:L800").ClearContents
z = 1
Antal = Range("G1")
For x = 1 To Antal
y = Int(Rnd() * 800 + 1)
Range("A" & y & ":E" & y).Copy Destination:=Cells(z, 8)
z = z + 1
Next
End Sub

Yes tusind tak.

Sidste spørgsmål:
Hvis der er flere eller færre kolonner, kan man hente dem kun der er indhold kolonner?

Eks. når der er kolonner 1000,1235,125, 700,500?

Jeg har ellers ændre 800 til eks 1354. så den henter tomme kolonne også.

Først en bemærkning om terminologi: Jeg går ud fra at du mener rækker, når du skriver kolonner

Denne makro tæller antallet af rækker og vælger kun fra de fyldte rækker.

Sub Valg()
Dim Antal, LastRow, x, y, z As Integer
Application.Calculation = xlCalculationManual
LastRow = Cells(65356, 1).End(xlUp).Row
Range("H1:L" & LastRow).ClearContents
z = 1
Antal = Range("G1")
For x = 1 To Antal
Do
y = Int(Rnd() * LastRow + 1)
Range("A" & y & ":E" & y).Copy Destination:=Cells(z, 8)
Loop Until WorksheetFunction.CountIf(Range("H1:H" & x), Range("H" & x)) = 1
z = z + 1
Next x
Application.Calculation = xlCalculationAutomatic
End Sub

Jeg skrev i #3 at gengangere kunne forekomme. Det sker ikke med den seneste makro. Med den kan hver valgt linie kun forekomme en gang.