Using macro to insert a symbol
 

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

Using macro to insert a symbol
 

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

--
Don Guillett
SalesAid Software

"Graham Daniels" wrote in message
...
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

Using macro to insert a symbol
 

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.
--
Regards,
Tom Ogilvy

"Graham Daniels" wrote in message
...
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

Using macro to insert a symbol
 

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




"Graham Daniels" wrote in message
...
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

Using macro to insert a symbol
 

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

--
Regards,
Tom Ogilvy

"Graham Daniels" wrote in message
...
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




"Graham Daniels" wrote in message
...
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

Using macro to insert a symbol
 

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

--
Don Guillett
SalesAid Software

"Graham Daniels" wrote in message
...
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




"Graham Daniels" wrote in message
...
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

Using macro to insert a symbol
 

Many thanks Don and Tom.

Regards
Graham




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

--
Don Guillett
SalesAid Software

"Graham Daniels" wrote in message
...
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




"Graham Daniels" wrote in message
...
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

Using macro to insert a symbol
 

glad to help

--
Don Guillett
SalesAid Software

"Graham Daniels" wrote in message
...
Many thanks Don and Tom.

Regards
Graham




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

--
Don Guillett
SalesAid Software

"Graham Daniels" wrote in message
...
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




"Graham Daniels" wrote in message
...
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