Makro om namen te kopieren van aantal gespeelde wedstrijden

[Lutkeher]

Goedemiddag,

Ik ben op zoek naar een makro die in mijn sheet de namen kopieert uit Sheet Deelnemers naar sheet Eind uitslag op basis van het aantal wedstrijden waaraan persoon heeft deelgenomen. Dat moet dus de helft+1 van het aantal geplande wedstrijden zijn. Ik zou dus graag een Invoer knop op mijn pagina Menu hebben waar ik dus het totaal aantal gespeelde wedstrijden in kan voeren en de makro dus kijk naar die personen die daarvan de helft+1 hebben deel genomen en dan de naam, Totaalscore en #Deelname kopieert naar Sheet Eind uitslag

Alvast bedankt.

Met groet,

Herman

 

[VenA]

Waar is het aantal deelnames dan te vinden? De sheet Eind uitslag is ook nergens te vinden.

Nb. de problemen met de formules waren toch opgelost? Waarom heb je het niet verwerkt in dit bestand?

 

[Lutkeher]

Sorry,

heb verkeerde bestand geupload. Deze is duidelijker
Aantal keren deelname staat in sheet deelnemers kolom U

Met groet,

Herman

 

[Lutkeher]

Blijft moeilijk, nog een poging voor juiste bestand

 

[VenA]

Kan je toch ook filteren? Heb je helemaal geen extra tabje nodig.

 

[HSV]

Sub hsv()
 With Sheets("deelnemers")
  .Range("xfd2") = "=U3>8"
  .Cells(2, 1).CurrentRegion.AdvancedFilter xlFilterCopy, .Range("xfd1:xfd2"), Sheets("eind uitslag").Range("b1:d1")
  .Range("xfd2").ClearContents
 End With
End Sub

 

[Lutkeher]

Goedemorgen HSV (Harry),

Bedankt, is exact wat ik bedoelde en werkt perfect. Hulde.
Nog een vraagje: Nu staat er in de Makro een vaste waarde.

3. .Range("xfd2") = "=U3>8"

Is het ook mogelijk dat hier een soort Input (Button) gemaakt kan worden? Dit Jaar zijn er waarschijnlijk 16 wedstrijden dus tellen er 8+1 mee. Volgende keer zijn het er mss maar 14.

Uiteraard is dat steeds aan te passen in de Makro maar dat is fout gevoelig.

Alvast bedankt.

Met vriendelijk groet,

Herman

 

[HSV]

Misschien kun je eerst je bericht even aanpassen.

 

[Lutkeher]

Sorry,

Hoe bedoel je aanpassen?

Met groet,

Herman

 

[HSV]

Bekijk het nog eens en dan wat rustiger.

 

[Lutkeher]

Mmmm,

Ik denk dat ik het zie en daarom excuus. Harry, bedankt voor deze mooie Makro. Werkt perfect.

Met vriendelijke groet,

Herman

 

[HSV]

Deze tekst had er voor mijn part niet bij gehoeven Herman,...aanpassen was beter geweest.
Waar mij het meer om gaat is dat in het algemeen de reacties slecht gelezen worden.

Je vraag:

Dat kan ook zonder inputbox.
Worden er kolommen verwijderd als er 14 i.p.v. 16 wedstrijden worden gespeeld?

 

[Lutkeher]

Hoi Harry,

Toch ook ff het bericht aangepast, ere wie ere toekomt.
Nee, het is niet de bedoeling om kolommen te verwijderen. Basis bestand wil ik behouden opdat het elk jaar gebruikt kan worden. Het kan zelfs zo zijn dat er een ander jaar een kolom bij gaat komen afhankelijk van aantal beschikbare data om te kunnen spelen.

Met groet,

Herman

 

[HSV]

Is dit wat Herman?

Sub hsv()
Dim c As Range
Sheets("eind uitslag").Cells(1).CurrentRegion.Offset(1, 1).ClearContents
With Sheets("deelnemers")
    Set c = .Rows(2).Find("#Deelname").Offset(1)
  .Range("xfd2") = "=" & c.Address(0, 0) & ">" & Application.InputBox("Vul het aantal wedstrijden in", "Aantal gespeelde wedstrijden", "bv. 7", , , , , 1)
  .Cells(2, 1).CurrentRegion.AdvancedFilter xlFilterCopy, .Range("xfd1:xfd2"), Sheets("eind uitslag").Range("b1:d1")
  .Range("xfd2").ClearContents
End With
End Sub

Andere weg naar Rome.

Sub hsv()
Sheets("eind uitslag").Cells(1).CurrentRegion.Offset(1, 1).ClearContents
With Sheets("deelnemers")
  .Range("xfd2") = "=" & .cells(3, application.match("#Deelname", .rows(2), 0)).address(0, 0) & ">" & Application.InputBox("Vul het aantal wedstrijden in", "Aantal gespeelde wedstrijden", "bv. 7", , , , , 1)
  .Cells(2, 1).CurrentRegion.AdvancedFilter xlFilterCopy, .Range("xfd1:xfd2"), Sheets("eind uitslag").Range("b1:d1")
  .Range("xfd2").ClearContents
End With
End Sub

En dan kan je daar nog wel een variant op maken.

 

[Lutkeher]

Hoi Harry,

En wederom bedankt, is idd ongeveer wat ik bedoel. Ga het ergens in mijn sheet inpassen.

Met groet,

Herman