score in ander tabblad op eerstvolgende lege rij opslaan

[xmir]

Hoi allemaal,

Kan dit:
Ik maak een scoreblad voor een spel. Op tab 1 komt per keer de spelscore te staan (maak ik leeg voor ieder nieuw spel) en op tab 2 staan de scores waarmee iedereen geëindigd is.
Nu zou ik graag een macro oid willen die de hoogste score per persoon op tab 1 bij uitvoeren plaatst op de eerste lege rij op tab 2.
Kan dit en zo ja met welke macro?

Alvast dank!
Groet Mirjam

bijlage: voorbeeld bestand met fictieve namen

 

[JeanPaul28]

Ik snap niet goed wat je bedoeld , kan je een ingevuld voorbeeld geven

 

[xmir]

Hoi Jean-Paul,

zie voorbeeld. In het tabblad 'highscore' zou nu met het uitvoeren van de macro in rij 5 bij jan 270 ingevuld moeten worden, bij piet 550 en bij klaas 610. Op rij 5 omdat dat de eerste lege rij is m.a.w. als die gevuld is met scores moet hij de volgende keer regel 6 pakken

 

[VenA]

2 verhelderende voorbeelden.

Sub VenA()
  Sheets("highscores").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3) = Sheets("Scores").Cells(Rows.Count, 2).End(xlUp).Resize(, 3).Value
End Sub

 

[JeanPaul28]

bij uitbreiding macro aanpassen

 

[xmir]

yes dat is hem! Dank je wel VenA!