Using macro to insert a symbol

G

Graham Daniels

Hi,

I wish to record a macro to insert a symbol ( a tick) into the active cell
and then move down to the next cell in that column. However, when I try to
to do this the symbol gets inserted OK but the cursor won't move down to the
next cell and it keeps jumping bak up to the original cell. I have tried
using the relative to cell option on the recording toolbar but no joy.
Using Excel 2002 SP2


Any thoughts appreciated,

Graham
 
T

Tom Ogilvy

ActiveCell.offset(1,0).Select

will select the next cell. Other than that, I guess you would have to show
the code that doesn't work.
 
G

Graham Daniels

This is the code

Sub Tic()
'
' Tic Macro
' Macro recorded 05/09/2004 by Graham
'
' Keyboard Shortcut: Ctrl+r
'
ActiveCell.FormulaR1C1 = "ü"
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Wingdings"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("B4").Select
End Sub

Graham
 
T

Tom Ogilvy

Sub Tic()
'
' Tic Macro
' Macro recorded 05/09/2004 by Graham
'
' Keyboard Shortcut: Ctrl+r
'
ActiveCell.FormulaR1C1 = "ü"
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Wingdings"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Activecell.offset(1,0).Select
End Sub
 
D

Don Guillett

this should do it
Sub Tic1()
With ActiveCell
.Value = "ü"
.Font.Name = "Wingdings"
.Offset(1).Select
End With
End Sub
 
G

Graham Daniels

Many thanks Don and Tom.

Regards
Graham




Don Guillett said:
this should do it
Sub Tic1()
With ActiveCell
.Value = "ü"
.Font.Name = "Wingdings"
.Offset(1).Select
End With
End Sub
Click to expand...
 
Top