waarden kopieren naar een tekstvak

[musmiles]

hallo,

Heb weer een vraag
Is het mogelijk, zie bijlage, om de X waarde in B5 en de Y waarde in B6 en de Z waarde in B7 te kopieren naar een tekstvak met een pijltje.
Afhankelijke van de waarden (positief of negatief) de richting van het pijltje veranderen?

alvast bedankt

 

[Demeter]

Bekijk deze eens test eens.
Lastige is dat op deze manier de naam van de pijl moeilijk te bepalen is.
Ik krijg deze alleen eruit als ik deze met mbv de macrorecorder erin zet.

Horen het wel.

Groet,
Ferenc

 

[Wigi]

Mus, merk ook op dat je een pijl ook niet in het tekstvak zet... Verschuif het tekstvak maar eens...

Wigi

 

[musmiles]

hallo,

demeter, bedankt voor je reactie en natuurlijk ook Wigi, op zich werkt je marco wel, alleen na het invoeren van een waarde wordt de pijl geplaats en geselcteerd, kan het anders dat na het uitvoeren van de macro weer cel "B5"wordt geselecteerd..

Ik las ooit ergens een macro waarbij afhankelijk van de ingevoerd waarde een figuur wordt geplaatst, ik weet niet meer of het op deze forum was of een andere, ENIGE IDEE!?

 

[Wigi]

Moet je per sé een tekstvak hebben? Of kan het ook zonder?

 

[koosl]

Mus,

het slimme idee van Ferenc om de pijl gewoon te roteren een beetje aangepast.

Nu wordt de pijl niet geselecteerd.

Private Sub Worksheet_Calculate()
    If Range("B5") < 0 Then
        ActiveSheet.Shapes("Line 31").Rotation = 0#
            Else
                ActiveSheet.Shapes("Line 31").Rotation = 180#
    End If
    Range("B5").Select
End Sub

Koosl

 

[musmiles]

Demeter, koosl en natuurlijke Wigi, bedankt voor de reactie,

de waarde moet wel naar een tekstvak gekopieerd worden,als dat mogelijke is.
demeter in je code wordt de de waarde van cel b5 naar cel d5 gekopieerd en niet naar een tekstvak, als ik cel d5 delete dan wordt de pijl niet gedraaidt.

bedankt

Pijl hoeft inp. niet in de tekstvak

 

[Demeter]

Bekijk deze eens.
De automatische doorvoer werkt niet, mijn kennis van vba is nog niet zo groot dat ik dit er even uit schud. Denk dat je het moet zoeken in selection change en dan je target laten intersecten (maar zeker weten doe ik het niet).

Maar waarom wil jij eigenlijk je tekst in een tekstvak?

Groet,
Ferenc

 

[musmiles]

Nou ik heb een tekening, van uit autocad in excel ingevoerd, en ik wil hierin wat maten invoeren ,variable maten, vandaar de tekstvak.

ik zal de code proberen, je hoor nog van mij

 

[Demeter]

Duidelijk.

Dan moet het gaan landen met deze code.

Anders moet je file + tek. aanhangen (als er geen prive gegevens opstaan).

Groet,
Ferenc

 

[musmiles]

demeter,
de code werkt perfect, bedankt.

Is het ook mogelijk dat,zodra er verandering zijn in waarden, de macro vanzelf start.

bedankt

 

[Wigi]

Eerst de code van Ferenc inkorten. Ik weet dat je graag hebt dat ik dit doe, dus bij deze...

Sub Test()
With ActiveSheet
    .Shapes("Text Box 1").Select
    Selection.Characters.Text = Range("C5") & Chr(10) & Chr(10) & "       " & Range("C6") & Chr(10) & Chr(10) & Range("C7")
    With .Shapes("Lijn 2")
        .Rotation = IIf(Range("C5") < 0, 180#, 0#)
        .Line.ForeColor.SchemeColor = IIf(Range("C5") < 0, 10, 12)
    End With
    With .Shapes("Lijn 3")
        .Rotation = IIf(Range("C6") < 0, 0#, 180#)
        .Line.ForeColor.SchemeColor = IIf(Range("C6") < 0, 10, 12)
    End With
    With .Shapes("Lijn 4")
        .Rotation = IIf(Range("C7") < 0, 0#, 180#)
        .Line.ForeColor.SchemeColor = IIf(Range("C7") < 0, 10, 12)
    End With
End With
Range("B5").Select
End Sub

Puik werk Ferenc :thumb:

Het zou nog korter kunnen qua aantal regels, met een For Next, maar dat gaat weinig winst opleveren in termen van uitvoering van de code.

Wigi

 

[Wigi]

demeter,
de code werkt perfect, bedankt.

Is het ook mogelijk dat,zodra er verandering zijn in waarden, de macro vanzelf start.

bedankt

Dit is de code voor achter blad1:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C5:C7")) Is Nothing Then Test
End Sub

De rest van de code staat in de post hierboven en die laat je gewoon staan.

Wigi

 

[Demeter]

:thumb: Sweeeeeeeeeeeeeeeeeeeeeeeeeeeet,
Wigi,
bedankt, zo wordt een ieder geholpen hier

Ik krijg het er maar niet in hoe ik precies met worksheet_change moet om gaan.

Maar mijn workaround gaat ook, vergeet deze maar snel!!! code van Wigi is een stuk rapper en makkelijker te bewerken .
edit: Code verwijdert, leek nergens op


Groet,
Ferenc

ps.
Geheel gelijk met je with funtie.
With functie is wel erg makkelijk als je later er meer opties aan toe wil voegen.

 

[Wigi]

edit: Code verwijdert, leek nergens op

Dat is niet waar hoor, daar doe je jezelf te weinig eer aan hoor.

Het is niet voor niets dat jij de 1000 posts nadert... De eerste milestone zoals ze op Engelse forums zouden zeggen.

Om eerlijk te zijn, toen ik zag dat deze vraag over een tekstvak ging heb ik hem bewust links laten liggen (niets persoonlijks hé Mus :thumb omdat dat wat moeilijkere code is. Gene zwans hoor.

Wigi

 

[musmiles]

Heren, heren, :thumb:
jullie zijn alle twee goed :thumb: , dus bedankt voor de hulp,

:thumb: :thumb: :thumb: :thumb: :thumb: :thumb:

ik ga verder ermee spellen , mocht het niet gaan dan..........

nogmaals bedankt:love:

 

[Wigi]

Graag gedaan, maar in het vervolg graag wat minder smilies... Lijkt net een kleurboek.

Tot de volgende.

 

[musmiles]

:thumb: wigi
oeps doe ik het weer,
bedankt

 

[musmiles]

heren,
heb nog een vraag, ik krijg en fout melding als ik de waarde van X , Y en Z naar een tekstvak (die onderdeel maakt van een groep) wil plaatsen.
enige idee hoe dit kan.

 

[Demeter]

Excel ziet gegroepeerde shapes als 1 shape.
Nu zou je deze groep eerst degroeperen, wijzigen en weer groeperen. Zij het niet dat Excel aan een ieder nieuwe groep een andere naam geeft.

Weet niet of het mogelijk is maar het zal een stuk lastiger worden dan waar je nu mee bezig bent.

Misschien dat andere hier al meer ervaring mee hebben?

Ik zal ook nog voor je verder zoeken maar op dit moment moet ik even afhaken met directe feedack.

Succes.


Groet,
Ferenc