Cascade String concatenation problem

[AAPLNVDA]

Hi everyone, I am pretty new to vba but I have been coding for a long time in c/c++. What I want to do is :
When I write on a selected cell for example INTC I want the cell right next to it to display sometihng like FIBBONACCI('INTC') <= 50

So what I did is : use Worksheet with change and this is the code :

Private Sub Worksheet_Change(ByVal Target As Range)


Dim SymbolName As String
SymbolName = Target.Value
ActiveCell.Offset(-1, 1) = "FIBBONACCI(" & SymbolName & " ) <= 50"


End Sub

But the result keeps cascadiing :


FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACC I(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONA CCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBO NACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIB BONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(F IBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI (FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(FIBBONACCI(intc ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50 ) <= 50

What is wrong in my code? Thank you very much

[AAPLNVDA]

This is the unwanted result what I want is only FIBBONACCI('INTC') <= 50 Thanks againAttachment 656336

[FDibbins]

Why not just use a formula?

=if(A1="INTC","FIBBONACCI('"&A1&"') <= 50","")

[jindon]

1)
Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html


2) You need to disable event when you change the cell otherwise it will go into infinite loop.

Please Login or Register  to view this content.

[FDibbins]

This post has been reposted in the CS forum, so I am closing this now