Find de bedste lottotal

Jeg er ikke sikker på, at jeg helt forsåtr problemstillingen. Hvad mener du med summen af udtrækninger? Er det, det antal gange et givet tal har været udtrukket?

Hvis det er tilfældet, kan du bruge denen formel til at finde det tal, der har været trukket oftest:

=INDIREKTE(ADRESSE(INDEKS(J53:J88;STØRSTE(J53:J88;1));1))

Du kan så finde den næststørste, tredjestørste og så videre ved at rette tallene i STØRSTE(J53:J88;1 til 2, 3, 4, og så videre.

indsæt og kopier ned

=SAMMENLIGN(STØRSTE($J$53:$J$88;RÆKKE(1:1));$J$53:$J$88;0)

Hvis område V53:W88 er fri så prøv denne
formlen STØRSTE har problemer med flere ens værdier

Sub sorter()
Application.ScreenUpdating = False
Range("A53:A88").Copy Range("V53")
Range("J53:J88").Copy Range("W53")
Range("V53:W88").Select
Selection.Sort Key1:=Range("W53"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("V53:V62").Select
Selection.Copy Range("AE55")
Application.CutCopyMode = False
Range("V53:W88").Clear
Range("AE55").Select
Application.ScreenUpdating = True
End Sub

Hej jkrons - Det funker ikke helt rigtigt ellers gør jeg noget forkert kan du evt. hjælpe mig videre.

Ja, kolonne J er en sumkolonne for sammentalte trækninger af hvert enkelte tal.
Først er det talene fra 1-36, så kommer udtrækningspladsen, sidste kolonne er summen. Det er så "sum" kolonnen der skal bruges til at finde højeste værdi og returnere tallet fra første "tal" kolonnen.    
tal                    udtræk                                          sum
1    8    3    0    0    0    0    0    1    12
2    3    6    0    0    0    0    0    1    10
3    4    6    2    0    0    0    0    0    12
4    2    4    2    0    0    0    0    0    8
5    1    2    1    2    0    0    0    4    10
6    1    4    2    0    1    0    0    0    8


Hej excelent - den vba kode kode som du anvender hvor og hvordan skal den indsættes.

Normalt syntes jeg, at jeg har meget godt fat i generel IT.

Håber dette giver et bedre indtryk, af problemet

I arket tast ALT+F11
Vælg module i menuen Insert
Indsæt kode i vindue til højre
Tilbage i arket taster du ALT+F8
og markerer makroen sorter og vælg kør

Det virker forsat ikke korrekt
Tal                                        sum
1    8    3    0    0    0    0    0    1    12
2    3    6    0    0    0    0    0    1    10
3    4    6    2    0    0    0    0    0    12
4    2    4    2    0    0    0    0    0    8
5    1    2    1    2    0    0    0    4    10
6    1    4    2    0    1    0    0    0    8

Eks. på bedste række 1,3,2,5,4,6

I A53:A88 har du tallene fra 1 til 136
I J53:J88 har du hvor mange gange tallene
i kolonne A er udkommet

er det ret forstået ?

Jeg kan ikke se, hvorfor det ikke virker. Det virker OK hos mig, bortset fra den problematik som excelent beskriver omkring når der er to ens.

kolonne A (række a53-a88)er lottotalene 1-36. Kolonne J (række j53-j88) er summen af udkomne antal gange.
Her er et udtræk fra regnearket:

Det er Kolonne A og J som er de vigtige.
(Den vandrette linie med talene fra 1-7+Till. er bare en placering.)
Tal    1    2    3    4    5    6    7    Till.    Sum
1    13    0    0    0    0    0    0    0    13
2    6    2    0    0    0    0    0    3    11
3    8    3    0    0    0    0    0    1    12
4    3    6    0    0    0    0    0    1    10
5    4    6    2    0    0    0    0    0    12
6    2    4    2    0    0    0    0    0    8
7    1    2    1    2    0    0    0    4    10
8    1    4    2    0    1    0    0    0    8
9    0    1    1    3    0    0    0    1    6
10    1    2    5    0    0    0    0    3    11
osv. ned til 36.
Kolonne J, er højestesum som skal henvise til talet i kolonne A række?.

Altså kolonne J indeholder højeste tal 13 dette skal så returnere talet 1 i kolonne A.

kolonne J indeholder næsthøjeste tal 12 dette skal så returnere talene 3 og 5 fra kolonne A.

kolonne J indeholder næsthøjeste tal 11 dette skal så returnere talene 2 og 10 fra kolonne A.
osv.

Dette vil jeg så gerne have indsat i en vandret linie i kolonne (v-ae - række 55) 10 tal ialt. Så min bedste række indeholder 10 lottotal.

Det skal lige nævnes, at jeg er ny bruger på eksperten.dk

koden returnerer følgende tal ud fra dit seneste eks.
tallene returneres i AE55:AE65
koden skal køres hver gan der ændres i kolonne J

1-3-5-2-10-4-7-6-8-9

excelent-> Du kan flytte koden så den ligger på change hændelse i det pågældende worksheet. Så køres den automatisk hver gang der ændres.

jokerper: Min formel virker præcis på den måpde hosm ig, men du skal manuel rette om det er placering 1, 2, 3 osv. du vil have stående i en given celle.

Kan det ikke laves med en formel - for det der VBA kan jeg ikke få til at virke.

Ps. ang. point så vil jeg gerne give flere, optil 60 point.

Jeg har ikke fundet en løsning på problemet med formlen STØRSTE

men som jkrons foreslår kunne koden sættes til at køre automatisk
hvis det er en mulighed skal jeg høre om det kun er i B53:I88
der indtastes værdier ?

Er der en mulighed for jeg kan sende arket til dig - så du kan se hvad jeg mener.

pm@madsen.tdcadsl.dk

jkrons skal din formel afsluttes med CTRL+SHIFT+ENTER ?
kan ikke lige få den til at virke

Skal boxen "Den optimale række" være i området V53:AE55 ?
det ser ud som om den har forrykket sig

Bare der hvor jeg har sat den nu (T - AC), tak

Er sendt retur
Det var sumformlerne der drillede - skulle virke nu

Jeg har ikke modtaget den endnu!

Hvordan opdaterer den så, har lige prøvet at ændre på talene men den oprimale række ændrer sig ikke. Jeg syntes heller ikke der er kommet en ny makro til. HJÆLP!

jeg gættede på at det er i B4:I49 du indtaster
værdier, hvis det ikke er der hvor så ?

makroen ligger i arkets kodemodul (højreklik på fanen)

På arket Lotto - så nu vil den heller ikke overføre talene via knappen "overfør til log" "makroen".

Prøv knappen "overfør til log" på fanebladet "Lotto". så kommer der en debug.

Slet koden igen, jeg kan se at der indsættes en ny række
hver gang der klikkes på 'Overfør til log'

Det har betydning for koden, vender tilbage hvis jeg finder en løsning

Revideret fil er sendt

tak, lægger du et svar.

ok