eerst volgende lege cel zoeken en daar een kopie van een ander werkblad in plaatsen

[Angela69]

Hallo,

Wie kan mij helpen met een stukje macro, zie voorbeeldbestand waarvan de namen fictief zijn.

Uit werkblad "wedstrijd" moet het gebied j2:k7 steeds weer gekopieerd worden naar werkblad "history" naast de al aanwezige wedstrijden eerder gespeeld.
Hoe is dit te realiseren?

 

[edmoor]

Zo?

 

[Angela69]

Ja Edmoor, precies wat ik wil, maar hoe krijg ik nu de code's en button in mijn bestand?

 

[edmoor]

Een knop maak je zo:

Een macro toewijzen aan een formulier of een besturingselementknop - Microsoft Ondersteuning

Maak een formulierknop of een opdrachtknop en wijs een macro toe waarmee een actie wordt uitgevoerd wanneer een gebruiker op de knop klikt.

support.microsoft.com

Kies voor een ActiveX knop.
De code achter het werkblad kan je kopiëren en dan plakken in je eigen document achter het werkblad waar je dan de knop hebt gemaakt.

Of dit kopiëren:

Private Sub CommandButton1_Click()
    With Sheets("History")
        col = .Cells(2, Columns.Count).End(xlToLeft).Column + 2
        .Cells(2, col).Resize(6, 2) = Range("J2:K7").Value
    End With
End Sub

 

[Angela69]

Een knop maak je zo:

Een macro toewijzen aan een formulier of een besturingselementknop - Microsoft Ondersteuning

Maak een formulierknop of een opdrachtknop en wijs een macro toe waarmee een actie wordt uitgevoerd wanneer een gebruiker op de knop klikt.

support.microsoft.com

Kies voor een ActiveX knop.
De code achter het werkblad kan je kopiëren en dan plakken in je eigen document achter het werkblad waar je dan de knop hebt gemaakt.

Of dit kopiëren:

Private Sub CommandButton1_Click()
    With Sheets("History")
        col = .Cells(2, Columns.Count).End(xlToLeft).Column + 2
        .Cells(2, col).Resize(6, 2) = Range("J2:K7").Value
    End With
End Sub

 

[Angela69]

Hoi, ben hier nu alweer lang mee aan het stoeien, maar zoals je ziet kopieert de macro niet alle rijen en kolommen. y4:AB17 Wat doe ik hier niet goed?

 

[edmoor]

Het bron bereik is dus Y4:AB17
Dan moet je daar ook het uitvoer bereik op aanpassen.

 

[Angela69]

Het bron bereik is dus Y4:AB17
Dan moet je daar ook het uitvoer bereik op aanpassen.

Aha, dat doe je kennelijk met .Resize(14, 4) ? Je ziet ik heb echt geen verstand van VisualBasic.
Nog een vraagje, waarom wordt er niet letterlijk gekopieerd? Dus de procentweergave staat niet in % en niet dezelfde kolombreedte en omlijning.

 

[edmoor]

Omdat je dat niet specifiek vroeg.
Als het history is kan je het als plaatje kopiëren, dan is het letterlijk:

 

[Angela69]

Omdat je dat niet specifiek vroeg.
Als het history is kan je het als plaatje kopiëren, dan is het letterlijk:

Edmoor, je bent geweldig, dit is de oplossing, hartelijk dank voor je inzet!