Forum Discussion

Harry1967's avatar
Harry1967
Copper Contributor
Dec 26, 2021

WHO can help to make me an vba for my question

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 

Macros and VBA

3 Replies

  • NikolinoDE's avatar
    NikolinoDE
    Platinum Contributor
    Dec 27, 2021

    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)

      • NikolinoDE's avatar
        NikolinoDE
        Platinum Contributor
        Dec 28, 2021

        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)

Resources