WHO can help to make me an vba for my question

Copper Contributor

Hoop dat iemand mij wil helpen

Het is mijn bedoeling om rijen te selecteren op sheet2 en deze rijen  op sheet 3 te kopiëren met een button. Rijen niet verwijderen alleen kopiëren

 

Knop1 UN selectie knop 2 + 3 op blad 2

Knop 1 selecteert bijvoorbeeld rij 1 + 5 + 6 op blad 2

 

Button2 UN selectie knop 1 + 3 op blad 2

Knop 2 selecteert bijvoorbeeld rij 2 + 4 + 7 op blad 2

 

Button3 UN selectie knop 1 + 2 op blad 2

Knop 3 selecteert bijvoorbeeld rij 1 + 2 + 8 op blad 2

 

Button4 UN selectieknop 1 + 2 + 3 op blad 2

Button5 Bewaar de geselecteerde rijen van opdrachtknop 1 of 2 of 3 op blad 2

Button5 UN selectieknop 6 + 7 op blad 2

Knop 5 selecteert bijvoorbeeld rij 9 + 10 + 12 op blad 2

 

Knop6 Bewaar de riet geselecteerde rijen van opdrachtknop 1 of 2 of 3 op blad 2

Knop6 UN selectie knop 5 + 7 op blad 2

Knop 6 selecteert bijvoorbeeld rij 11 + 13 + 14 op blad 2

 

Button7 Bewaar de riet geselecteerde rijen van opdrachtknop 1 of 2 of 3 op blad 2

Button7 UN selectieknop 6 + 7 op blad 2

Knop 7 selecteert bijvoorbeeld rij 12 + 16 + 17 op blad 2

 

Button8 UN selectie rijen knop 5 + 6 + 7 op blad 2, maar bewaar de geselecteerde rijen van opdrachtknop 1 of 2 of 3 op blad 2

 

Button9 Bewaar de geselecteerde rijen van opdrachtknop 1 van 2 van 3 en 5 van 6 van 7 op blad 2

Button9 UN selectieknop 10+ 11 op blad 2

Button9 selecteert bijvoorbeeld rij 15 + 18 + 19 op blad 2

 

…….

 

Knop 12 UN selectie rijen knop 9 + 10 + 11 op blad 2, maar bewaar de geselecteerde rijen van opdrachtknop 1 en 2 en 3 en 5 en 6 en 8  op blad 2

 

Knop 13 Kopieer alle geselecteerde rijen van blad 2 naar blad 3 zonder lege rijen ertussen

Verwijder geen rijen van blad2 maar laat ze staan ​​voor een ander nieuw blad

 

Button14 alle geselecteerde rijen op blad 2 UN selecteert 20211226_150433_resized.jpg

3 Replies

@Harry1967 

Here is starting point

 

Sub commanbutton1_click()
    Sheets("Sheet2").Range("A25:C50").Copy  Sheets("Sheet1").Range("A25")
End Sub

 

 

NikolinoDE

I know I don't know anything (Socrates)

Sorry dit werkt niet

@Harry1967 

First of all, the code works, here is an example file with the same code.

From the picture you cannot see whether these are form controls or active X controls.

Knowledge of the Excel version and the operating system would be advantageous for you to get a quick and as far as possible more precise solution proposal.

At the same time, I would like to point out that you can always get help here to get ahead with your project, but you have to manage the project yourself.

 

I wish you a Happy New Year and have fun with Excel.

 

Thank you for your understanding and patience

 

I wish you much success in your project

 

NikolinoDE

I know I don't know anything (Socrates)