ExcelBanter - Automatically input a symbol in a selected cell

ExcelBanter (https://www.excelbanter.com/)

- Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)

- - Automatically input a symbol in a selected cell (https://www.excelbanter.com/excel-discussion-misc-queries/224286-automatically-input-symbol-selected-cell.html)

mapesii

Automatically input a symbol in a selected cell

I have a range of cells that when a cell is selected can a symbol be input in
that cell? and if selected again remove the symbol. Can this bee done?

Dave Peterson

Automatically input a symbol in a selected cell

Is this so you can see the selected cell better?

If yes, you may want to look at Chip Pearson's utility:
http://www.cpearson.com/excel/RowLiner.htm

Different, but similar.

mapesii wrote:

I have a range of cells that when a cell is selected can a symbol be input in
that cell? and if selected again remove the symbol. Can this bee done?

--

Dave Peterson

curlydave

Automatically input a symbol in a selected cell

Try something like this

It goes into the worksheet module, when you right click on the range
A1:A10 a check mark will appear or be removed from the selected cell.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Cancel = True
If Target < "a" Then
With Target.Font
.Name = "Webdings"
End With
Target.FormulaR1C1 = "a"
Else: Target = ""
End If
End If

End Sub

Chris Bode

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Row = 2 And Target.Column = 2 Then

        Sheet1.Cells(Target.Row, Target.Column).Value = "©"

    End If

End Sub

hope this helps...

Chris
------
Convert your Excel spreadsheet into an online calculator.
http://www.spreadsheetconverter.com

All times are GMT +1. The time now is 04:13 AM.