Insert Up Arrow in Cell

[andybason]

Hello

I am trying to write a macro to insert an up arrow into a range of cells whilst retaining the existing text.

I have managed to write something that inserts text but am struggling to insert an arrow. Here's the line:

If Sheets(cel.Text).Range("I47") <= Sheets(cel.Text).Range("I44") * 1.05 Or Sheets(cel.Text).Range("J47") <= Sheets(cel.Text).Range("J44") * 1.05 Then cel.Value = cel.Value & " U"

Can anyone show me how to tweak the code to do this?

Thank you

 

[Fluff]

What type of arrow are you trying to insert

 

[andybason]

Hello Fluff

It is the half width upwards arrow in this image I would like.

Thank you

 

[Fluff]

Not sure if this is the same, but it looks close

cel.Value = cel.Value & " " & ChrW(8593)

 

[VBasic2008]

F = 15 * 16 * 16 * 16 = 61440
F = 15 * 16 * 16 = 3840
E = 15 * 16 = 224
A = 10 * 1 = 10
61440 + 3840 + 224 + 10 = 65514

In Excel =UNICHAR(65514)
In VBA Chr(65514)

cel.Value = cel.Value & Chr(65514)

 

[Fluff]

It should be ChrW

 

[VBasic2008]

Thanks, my bad. But did you see the character? Exactly as described: Halfwidth Upwards Arrow.

It should be

ChrW(65514)

 

[Fluff]

In the cell they look almost exactly the same unless you zoom right in, or use a massive font size.

 

[andybason]

Thank you. It works perfectly.

 

[Fluff]

Glad we could help & thanks for the feedback.