Solved

Excel VBA - pasting Windings2 characters

Posted on 2016-11-04
5
76 Views
Last Modified: 2016-11-04
I need to insert these Windings2 characters into a cell like this.
Font Windings2
Normally I would Copy from the Character Map, while recording a macro, and adapt the code. But when I do that with these characters I get ... nothing!

What I'm looking for is:
Range("D4").Value = [what goes here?]
0
Comment
Question by:hindersaliva
  • 3
  • 2
5 Comments
 
LVL 46

Expert Comment

by:Martin Liss
ID: 41875027
Set the font for the cell to Wingdings 2 and then something like this
Range("D4").Value ="PP"
would give you two checkmarks. You need to determine the equivalent normal text for the characters you want.
0
 
LVL 46

Accepted Solution

by:
Martin Liss earned 500 total points
ID: 41875034
Actually the semicircleup is Chr(188), the semicircledown is chr(189) and the empty circle is 154.  I couldn't find the solid circle but a octagon is 197  so try

Range("A1").Value = Chr(188) & Chr(197) & Chr(197) & Chr(197) & Chr(189) & Chr(154)
0
 

Author Comment

by:hindersaliva
ID: 41875036
It's the "PP" I'm looking for. I found this
https://www.myfonts.com/fonts/ascender/wingdings/2/

Where I found this
Example character
I can copy/paste to make the character appear in the cell, but when I copy it to the IDE I get a '?'.
Cleary I'm not doing it correctly :(
0
 

Author Comment

by:hindersaliva
ID: 41875040
Ah! Solid circle turns out to be Chr(152)

Thanks Martin. I'm sorted!
0
 
LVL 46

Expert Comment

by:Martin Liss
ID: 41875047
You're welcome and I'm glad I was able to help.

If you expand the “Full Biography” section of my profile you'll find links to some articles I've written that may interest you.

Marty - Microsoft MVP 2009 to 2016
              Experts Exchange MVE 2015
              Experts Exchange Top Expert Visual Basic Classic 2012 to 2015
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

831 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question