Insert Symbol ®

  • i would like to automate the inserting of the symbol ®...


    i can do in a cell as the first entry, but i can't do at the end of a string's entry in a cell...?


    Code
    ActiveCell.FormulaR1C1 = "®"


    or

    Code
    ActiveCell.FormulaR1C1 = "Schukas®"


    ???


    thank you.

  • Re: Insert Symbol ®


    Maybe you have a Window's font problem?


    All the examples work.

    Code
    Sub test()
    ActiveCell.FormulaR1C1 = "®"
    ActiveCell.FormulaR1C1 = "Schukas®"
    ActiveCell.FormulaR1C1 = "char(174)"
    ActiveCell.Value = "®"
    ActiveCell.Value = Chr(174)
    End Sub
  • Re: Insert Symbol ®


    sorry for any confusion...


    as i entry a new word (in a cell), sometimes, i want to add the "®" at the end (of the new word--now always the same word...)


    i seemingly can't run the macro from within the cell in edit mode...???


    thank you...

  • Re: Insert Symbol ®


    thank you...


    i have hundreds of these Registered names to enter--the insert symbol works, but gets tedious...


    i was looking for a shortcut to add the ® at the end of the data entry in a given cell...


    ???


    thanks.

  • Re: Insert Symbol ®


    Adding the ® symbol to a cell that already has existing text would be easy.

    Code
    ActiveCell.Value = ActiveCell.Value & "®"


    You'd just assign a key-code shortcut for your macro.


    The problem here, however, is that you "probably" will want to add the registered-symbol immediately after entering the text in a cell.


    Of course, needless to say, while the cell is still active, you won't be allowed to activate a macro.


    The trick then would be to activate this key-code activated macro immediately after hitting the Enter key so that it changes the text in the above cell:


    Code
    ActiveCell.Offset(-1, 0).Range("A1").Value = _
    ActiveCell.Offset(-1, 0).Range("A1").Value & "®"


Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!