Using macro to insert a symbol

[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

 

[Don Guillett]

Post your code (Just the code) for comments. maybe
activecell.offset(1)

 

[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.

 

[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

 

[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

 

[Don Guillett]

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

 

[Graham Daniels]

Many thanks Don and Tom.

Regards
Graham

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

 

[Don Guillett]

glad to help