Textbox probleem

[yoda747]

Hallo,

Ik heb een textbox2 gemaakt (vanuit werkset besturingelementen)
Als je daarvan de eigenschappen opvraag dan zie je de optie : linkedCell
Als ik daar bijv. F16 invuld dan wordt de cel F16 dus gekoppeld aan textbox1 en als ik bij in de textbox wat type dan komt dit dus ook in cel F16 , het gaat dus 2 kanten op
Dit is dus ok, tot nu toe geen probleem.

Maar wat ik wil is een textbox1 die gekoppeld wordt aan een cel (bijv. F9) maar alleen als ik klik op E9 (dus de cel links van hem)
Klik ik dus op cel E13 dan kom dus de text van cel F13 in textbox2.
Die koppeling moet dus ook 2 kanten op werken.
Hoop dat iemand mij hiermee kan helpen ben er al een aantal dagen mee bezig maar krijg dit niet voor elkaar.
Heb er een voorbeeld bij gedaan dan is het wat duidelijker wat ik wil.
Zo vast bedankt.

 

[Superzeeuw]

Yoda,

Wat is het nut van deze complexe oplossing?

 

[yoda747]

Beste Superzeeuw

In ieder geval bedankt dat je de moeite wilt nemen om ernaar te kijken.

Ik begrijp je reactie maar het is ook een beetje moeilijk uit te leggen met woorden.
Ik heb als bijlage het echte voorbeeld gedaan zodat je kan zien wat ik bedoeld.
En daarbij dus zo goed als ik kan uitgelegd wat de bedoeling is.
(In blad1 zit de programmacode)

Hierin staat dus ook de volgende regel : ActiveSheet.OLEObjects("TextBox1").LinkedCell = "O3"
Textbox1 wordt dus gekoppeld aan cel O3 maar hier moet dus iets ander voor komen zodat ik (met een offset o.i.d.) elke cel aan textbox1 kan koppelen.

Bedankt zo vast.

 

[popipipo]

Hallo yoda747

Hier een oplossing in een iets andere uitvoering.
Tik cel C3 aan en het commentaar verschijn automatisch in cel P3
Kolom O is verplaatst naar het andere tabblad.

Kun je hier verder mee of wil je op de oude voet verder?

 

[yoda747]

Beste popipipo

Bedankt dat je iets gemaakt heb voor me, stel dit zeker op prijs.
Jouw manier vind ik ook goed maar er is toch nog een probleem.
Als je zoals ik het wil het met een textbox doet en deze is zichtbaar (actief) dan
kan je de textbox aanklikken (waar dus je text instaat) en text erbij typen.
Het moet dus 2 kanten op werken, de informatie uit die cel wordt getoond in de textbox maar als je dus in de textbox text erbij type dan wordt dat ook weer opgeslagen in die cel.

Bij jouw oplossing laat hij alleen het textveld zien toch? kan dit niet editen.

Nogmaals bedank
:thumb:

 

[popipipo]

Bij jouw oplossing laat hij alleen het textveld zien toch? kan dit niet editen

Dat klopt je kunt niet editten.

Ik denk dat dat toch lastig gaat worden.
één tekstvak dat gegevens in verschillende cellen moet worden weggeschreven.

 

[yoda747]

Dat klopt je kunt niet editten.

Ik denk dat dat toch lastig gaat worden.
één tekstvak dat gegevens in verschillende cellen moet worden weggeschreven.

popipipo

Kan jij misschien iets met onderstaande?

ActiveSheet.OLEObjects("TextBox1").LinkedCell = "O3"

Die textbox1 (vanuit werkset besturingselementen) werkt 2 kanten op dus en is niet gewoon een textvak wat je krijg bij je Tekenset.

Het zit hem namelijk in het laatste gedeelte = "Q3" , dit staat nu als vaste waarde maar dit zou variable moeten zijn of met een offset zodat je dit kan laten verwijzen naar elke cel rondom je actieve cel.
Probleem is dat ik niet de syntax weet, weet jij dat misschien?
Als ik dat weet dan kan ik zelf verder weer uitbouwen.
Heb er ook op zitten Googelen maar tot nu toe geen resultaat.

 

[popipipo]

Helaas is mijn VBA niet het zo sterk dat ik daar een oplossing voor weet.
Misschien weet een VBA specialist hier een antwoord op.

 

[yoda747]

Helaas is mijn VBA niet het zo sterk dat ik daar een oplossing voor weet.
Misschien weet een VBA specialist hier een antwoord op.

Ok, Willem.

Wil je in ieder geval bedanken voor je inzet, echt top dat je ernaar wilde kijken.:thumb:

 

[snb]

waarom niet per cel de tekst van de bijzonderheden (uit de verborgen kolom O) in de opmerking van deze cel ?
Dan hoef je kolom O ook niet te verbergen

for j=2 to 20
  cells(j,13).comment.Text "heleboel tkst"
next

 

[Superzeeuw]

Yoda,

Met een kleine aanpassing in je bestaande code werkt het.

ActiveSheet.OLEObjects("TextBox1").LinkedCell = ActiveCell.Offset(0, 1).Address

 

[yoda747]

Yoda,

Met een kleine aanpassing in je bestaande code werkt het.

ActiveSheet.OLEObjects("TextBox1").LinkedCell = ActiveCell.Offset(0, 1).Address

Superzeeuw, je bent GENIAAL :thumb:

Dit is wat ik wilde, het werkt perfect!
Ben hier echt blij mee was er al dagen mee aan het klooien, werd er bijna gek van.
Punt is dat ik bijna klaar was met mijn Excel document.

Ben nog een noop op het gebied van VBA en maak veel gebruik van Macro's die ik dan evt. aanpast.
Of ik zoek op forums (ook Engelse) om te kijken of ander ook een zelfde probleem hebben.
Maar hier kwam ik dus niet uit en probeer dit maar eens uit te leggen in het Engels wat je wilt.

Nogmaals heel, heel erg bedankt voor je oplossing kan ik tenminste vannacht weer slapen.

p.s. Heb jij misschien nog een advies betreft een boek o.i.d. om VBA te leren?

:thumb::thumb::thumb:

 

[Superzeeuw]

Yoda,

Dank voor het compliment maar ik ben blij dat jij hebt wat je hebben wilde.
Het werkt en dat is het belangrijkste.

Jouw manier van werken is een manier die heel goed werkt.
Het enige waar het idd nog aan ontbreekt is kennis van al die codes.
Als je in VBA een woord intype, b.v. SORT of FIND
Selecteer dan het woord en druk op F1 dan krijg je een help menu daar kun je vaak al heel erg goed mee uit de voeten om de beginselen te leren.

 

[yoda747]

Yoda,

Dank voor het compliment maar ik ben blij dat jij hebt wat je hebben wilde.
Het werkt en dat is het belangrijkste.

Jouw manier van werken is een manier die heel goed werkt.
Het enige waar het idd nog aan ontbreekt is kennis van al die codes.
Als je in VBA een woord intype, b.v. SORT of FIND
Selecteer dan het woord en druk op F1 dan krijg je een help menu daar kun je vaak al heel erg goed mee uit de voeten om de beginselen te leren.

Je slaat de spijker op zijn kop, mij ontbreekt het inderdaad dat ik de codes niet kan.
Ik weet hoe ik het wil hebben maar hoe vertaal je het in de juiste codes.
Het punt is dat ik al maanden bezig ben met een vrij uitgebreid Excel document en hier hing het een beetje op.
Het is nog geeneens voor mezelf maar voor mijn collega's op mijn werk en het is nog onbetaald ook.

Maar jij heb voor de oplossing gezorgd en dat werkt en daar ben ik je nogmaals zeer dankbaar voor.

 

[Superzeeuw]

Yoda,

Wil je deze vraag dan nog op opgelost zetten.

Rechts onderaan, alvast bedankt.