met keuzelijst tekstvak copieren naar een ander werkblad

[adkliko]

Hoi allemaal

Ik heb gezocht naar een mogelijkheid om via een keuzelijst een tekstvak dat op blad 2 staat te kopieren naar blad 1.
Maar ik heb niks kunnen vinden.
In de keuzelijst staan meerde keuze's. alle keuze's moeten een eigen tekstvak copieren van blad 2 naar blad 1.

Dus kies je voor keuze auto dan moet hij het keuzevak op blad2 copieren naar blad 1 op een vaste plek.

wie kan me helpen ik krijg niks meer gevonden.

groetjes marcel

 

[ExcelAmateur]

adkliko,

Als ik het duidelijke voorbeeld bestandje bekijk, zal het niet meevallen dit voor elkaar te krijgen.

 

[adkliko]

Bij deze een voorbeeld.
Hij werkt niet naar behoren en is mischien wat omzichtig geschreven.

hij copieerd opdracht 1 naar blad 1. echter heb ik gemerkt dat als ik er inhoud in zet dat hij dit niet meeneemt om een een of andere rede.

ook is het nu mogelijk dat de opdrachten over elkaar komen te staan.
Dit is niet de bedoeling.
als je opdracht 1 gekozen hebt, en je kiest daarna opdracht 2 dan moet opdracht 1 weg,

test het gene maar wat ik nu heb.

graag advies.

thx

 

[ExcelAmateur]

adkliko,

Het stukje code van jou heb ik uitgeschakeld en deze er voor terug geplaatst.
Nu doet hij het wel.

De code zal best wel korter kunnen maar heb nu geen tijd meer.

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
  Sheets("Blad2").Select
    Sheets("Blad2").Shapes("Object 7").Copy
    Sheets("Blad1").Select
    Range("B6").Select
    ActiveSheet.Paste

    'Sheets("Blad2").Shapes("Object7").Copy
    'Sheets("Blad1").Range("b6").Select
    'ActiveSheet.Paste
    Range("A1").Select
End If

 

[adkliko]

beste ExcelAmateur

bedankt voor je verbetering.
Ik heb deze door gevord en hij copieerd het nu netjes.
Het zou fijn zijn als je nog naar het overelkaar zetten van de opdrachten kan kijken.

thx alvast

 

[Superzeeuw]

Bedoel je zoiets?

 

[adkliko]

Hoi Allemaal.

Super bedankt alles werkt.

thx :thumb: