macro to insert a character into cell

[RobbieC]

Hi there, I have a workbook where, when any cell is selected, it goes into "edit mode" - ie the cursor flashes at the end of the cell content

I have a button in a "mini menu" where I want a 'fake' bullet point 'ChrW(&H25CF)' to be inserted where the cursor is flashing.

I know that this is probably really simple, but I have been struck down with the lurg and my brain isn't operating properly

If you can point me in the right direction, I'd be really grateful

Thanks

Rob

 

[James006]

Hello,

The automatic Edit Mode will prevent you from inserted your bullet point ...

Why don't you give a specific example of your ' before - after ' cell ...

 

[RobbieC]

Thanks James, I have just come up with a solution:

Sub insertBullet()
If ActiveCell.Value = "" Then
    ActiveCell.Value = Space(3) & ChrW(&H25CF) & Space(3)
    Application.SendKeys "{F2}"
Else
    ActiveCell.Value = ActiveCell.Value & vbCrLf & Space(3) & ChrW(&H25CF) & Space(3)
    Application.SendKeys "{F2}"
End If
End Sub

I have a 'shape' on each sheet with insertBullet assigned as the macro.

If the cell is blank, it will add 3 spaces, insert the bullet point, insert another 3 spaces and then activate the cell to edit at this point.

If the cell is not blank, it will copy the cell contents, add a line break, add 3 spaces, add the bullet, another 3 spaces and then activate the cell to edit at this point.

Seems to work for me

 

[James006]

Glad you could fix your problem ...