B
billabong
My original question
The answer that was kindly provided for me:
****************************************
One way:
For 15 countries, though, I'd use the Select Case structure:
With Range("C1")
Select Case .Value
Case "United Kingdom"
.Value = Range("A1").Value & Range("A2").Value
Case "France"
...
Case ...
...
Case Else
.ClearContents
End Select
End With
*******************************************
Unfortunately I forgot to mention that I needed the concatenated
result reflected in Cell A3. i.e., Cell A3 = HSBC LN equity. What
would I have to add to this code to do that?
Very sorry for not thinking out the question properly the first time.
Manuel
Need to concatenate the contents of two cells together, using VBA.
for example:
Cell A1 = HSBC
Cell A2 = LN equity
so that cell A3 would show exactly as follows: HSBC LN equity
I can do this on excel spread sheet as: Cell A3 = A1&A2
(indenting contents of A2 one space) however I need to do this in VBA
format.
The beginning of my program is as follows but I get an error message
in line 2 of program.
If [C1] = "United Kingdom" Then
[A1] & [A2]
. . . . .
ElseIf [C1] = "France" Then
. . . . .
Else [C1] = ""
EndIf
need to do this for 15 other countries.
The answer that was kindly provided for me:
****************************************
One way:
For 15 countries, though, I'd use the Select Case structure:
With Range("C1")
Select Case .Value
Case "United Kingdom"
.Value = Range("A1").Value & Range("A2").Value
Case "France"
...
Case ...
...
Case Else
.ClearContents
End Select
End With
*******************************************
Unfortunately I forgot to mention that I needed the concatenated
result reflected in Cell A3. i.e., Cell A3 = HSBC LN equity. What
would I have to add to this code to do that?
Very sorry for not thinking out the question properly the first time.
Manuel