How to insert a checkmark with vba

[Pookiemeister]

I have a pass or fail option buttons. if the user selects "pass" option button a green check mark appears on the designated cell on the spreadsheet. The problem is I can't find a check mark in ascii only in Unicode. So I guess my question is how can I display a check mark and turn it green using colorindex?
Thanks

 

[Pookiemeister]

oh ya, forgot to ask. Since this only works for certain fonts. Is there a way to set the font for this cell to one of the designated fonts? thanks again.

 

[pgc01]

I'm glad it's working.

I don't think that in a present system you have to worry about the font supporting Unicode, but you can force a font style if you want.

Check the help on the Font object to learn how to change the font properties.

for ex., for the colour:

Cells(emptyrow, 7).Font.Color = vbGreen

 

[Pookiemeister]

Thank You very much for your help however if this is what you meant:
If OptionButton1 = True Then
Cells(emptyRow, 7).Value = ChrW(&H2713)
Cells(emptyRow, 7).Font.Color = vbGreen
Else
Cells(emptyRow, 7).Value = "X"
End If

It returned a runtime error '1004'

 

[shg]

What's the value of emptyRow when you get the error?

 

[Pookiemeister]

Everything worked great until I added

Cells(emptyRow, 7).Font.Color = vbGreen

part of the code. If I remove this code it goes back to running normal. But would like this character to be the colour green, if possible.

 

[pgc01]

It also seems to me that emptyRow has an invalid value.

Please try your code with a fixed value for emptyRow, like:

If OptionButton1 = True Then
    Cells(1, 7).Value = ChrW(&H2713)
    Cells(1, 7).Font.Color = vbGreen
Else
    Cells(1, 7).Value = "X"
End If

and see if you get an error.

 

[Pookiemeister]

I appreciate everyone's help. Unfortunately, I can't assign a specific row. Everytime a user opens this form and enters all the values and clicks "ok" it drops down the previous inputed values to the next row and so on.

 

[pgc01]

I did not mean you should assign a specific row.

The test I posted with emptyRow replaced by 1 is just to show you that the code is ok, it's the value of emptyRow that is invalid.

So, please test the code with the 1 and see if it produces an error. If it executes ok and cell G1 gets a green checkmark, then you know that the error in the the value of the variable emptyRow and not in the code syntax.

 

[Pookiemeister]

By the way thanks for your help pgc01. It still returned error 1004.
http://www.mrexcel.com/forum/member.php?u=61464​

 

[pgc01]

I'm sorry, I cannot reproduce your error.

Maybe if you post the whole code, including the declaration and initialisation of the variables and objects it will be possible to understand, but not for me today.

I'll check this thread tomorrow.

I hope you or someone else find the error. If you find the error please post back.