Hi:
I have a column of 20 characters that I paste into a column in excel
and when I turn the font for that column into wingdings, the three
characters are a pair of scissors, a telephone and a candle. the
character codes -- according to Start|Programs|Accessories|System
Tools|Character Map|WingDings -- a

Scissors = 0x22
Candle = 0x27
Phone = 0x28

I would like to determine the following:
1) the number of scissors
2) the number AND row of candles for further processing

How do I use the character codes in this vba script?

thanks in advance.

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Word says the characters are also =

Scissors = 0x22 = windings 61474
Candle = 0x27 = windings 61479
Phone = 0x28 = windings 61480

but how do I use this data?

Larry Levinson wrote:

Hi:
I have a column of 20 characters that I paste into a column in excel
and when I turn the font for that column into wingdings, the three
characters are a pair of scissors, a telephone and a candle. the
character codes -- according to Start|Programs|Accessories|System
Tools|Character Map|WingDings -- a

Scissors = 0x22
Candle = 0x27
Phone = 0x28

I would like to determine the following:
1) the number of scissors
2) the number AND row of candles for further processing

How do I use the character codes in this vba script?

thanks in advance.

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Larry Levinson wrote:

Word says the characters are also =

Scissors = 0x22 = windings 61474
Candle = 0x27 = windings 61479
Phone = 0x28 = windings 61480

and I can produce them in excel with ALT-KEYPAD 61474, or even ", (, '
and in wingdings font, but they do not match when I try to compare
them with what is in my source data column.


but how do I use this data?

Larry Levinson wrote:

Hi:
I have a column of 20 characters that I paste into a column in excel
and when I turn the font for that column into wingdings, the three
characters are a pair of scissors, a telephone and a candle. the
character codes -- according to Start|Programs|Accessories|System
Tools|Character Map|WingDings -- a

Scissors = 0x22
Candle = 0x27
Phone = 0x28

I would like to determine the following:
1) the number of scissors
2) the number AND row of candles for further processing

How do I use the character codes in this vba script?

thanks in advance.

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Hi Larry,
I have a problem with your Candle unless you put two of them in a cell. It's
actually an apostrophe which has a special significance for Excel. Anyway
have a go with this:

Sub Tester11()
Dim cell As Range
Dim sAddr As String, vArr, sWhat As String

vArr = Array(&H22, &H27, &H28) 'or (34, 39, 40)

With Selection 'or eg Range("A1:B20")
For i = 0 To 2
sWhat = Chr(vArr(i))
vArr(i) = 0
sAddr = ""
Set cell = .Find(What:=sWhat, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Not cell Is Nothing Then
sAddr = cell.Address
Do
vArr(i) = vArr(i) + 1
Set cell = .FindNext(cell)
Loop While Not cell Is Nothing And cell.Address < sAddr
End If
Next
End With
MsgBox vArr(0) & vbCr & vArr(1) & vbCr & vArr(2)
End Sub

Regards,
Peter

"Larry Levinson" wrote in message
...
Word says the characters are also =

Scissors = 0x22 = windings 61474
Candle = 0x27 = windings 61479
Phone = 0x28 = windings 61480

but how do I use this data?

Larry Levinson wrote:

Hi:
I have a column of 20 characters that I paste into a column in excel
and when I turn the font for that column into wingdings, the three
characters are a pair of scissors, a telephone and a candle. the
character codes -- according to Start|Programs|Accessories|System
Tools|Character Map|WingDings -- a

Scissors = 0x22
Candle = 0x27
Phone = 0x28

I would like to determine the following:
1) the number of scissors
2) the number AND row of candles for further processing

How do I use the character codes in this vba script?

thanks in advance.

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Hmmmmmm ... what I get back is a message box with three zeros. The
thing is: I have found how to produce the characters ...
g1:g226 is the number 30 through 255, column h1:h226 has the formula
=char(g1) etc ... then, set the font on column H to wingdings.


Now, here is the problem ... =b5=h5 comes back as FALSE.

to the eye, they both look like scissors, but apparently there is
something essentially different about the actual contents ... thanks
for your help ...


"Peter T" <peter_t@discussions wrote:

Hi Larry,
I have a problem with your Candle unless you put two of them in a cell. It's
actually an apostrophe which has a special significance for Excel. Anyway
have a go with this:

Sub Tester11()
Dim cell As Range
Dim sAddr As String, vArr, sWhat As String

vArr = Array(&H22, &H27, &H28) 'or (34, 39, 40)

With Selection 'or eg Range("A1:B20")
For i = 0 To 2
sWhat = Chr(vArr(i))
vArr(i) = 0
sAddr = ""
Set cell = .Find(What:=sWhat, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Not cell Is Nothing Then
sAddr = cell.Address
Do
vArr(i) = vArr(i) + 1
Set cell = .FindNext(cell)
Loop While Not cell Is Nothing And cell.Address < sAddr
End If
Next
End With
MsgBox vArr(0) & vbCr & vArr(1) & vbCr & vArr(2)
End Sub

Regards,
Peter

"Larry Levinson" wrote in message
.. .
Word says the characters are also =

Scissors = 0x22 = windings 61474
Candle = 0x27 = windings 61479
Phone = 0x28 = windings 61480

but how do I use this data?

Larry Levinson wrote:

Hi:
I have a column of 20 characters that I paste into a column in excel
and when I turn the font for that column into wingdings, the three
characters are a pair of scissors, a telephone and a candle. the
character codes -- according to Start|Programs|Accessories|System
Tools|Character Map|WingDings -- a

Scissors = 0x22
Candle = 0x27
Phone = 0x28

I would like to determine the following:
1) the number of scissors
2) the number AND row of candles for further processing

How do I use the character codes in this vba script?

thanks in advance.

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)


Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Hmmmmmm^³
Change
LookIn:=xlFormulas
to
LookIn:=xlValues

Regards,
Peter

"Larry Levinson" wrote in message
...
Hmmmmmm ... what I get back is a message box with three zeros. The
thing is: I have found how to produce the characters ...
g1:g226 is the number 30 through 255, column h1:h226 has the formula
=char(g1) etc ... then, set the font on column H to wingdings.


Now, here is the problem ... =b5=h5 comes back as FALSE.

to the eye, they both look like scissors, but apparently there is
something essentially different about the actual contents ... thanks
for your help ...


"Peter T" <peter_t@discussions wrote:

Hi Larry,
I have a problem with your Candle unless you put two of them in a cell.
It's
actually an apostrophe which has a special significance for Excel. Anyway
have a go with this:

Sub Tester11()
Dim cell As Range
Dim sAddr As String, vArr, sWhat As String

vArr = Array(&H22, &H27, &H28) 'or (34, 39, 40)

With Selection 'or eg Range("A1:B20")
For i = 0 To 2
sWhat = Chr(vArr(i))
vArr(i) = 0
sAddr = ""
Set cell = .Find(What:=sWhat, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Not cell Is Nothing Then
sAddr = cell.Address
Do
vArr(i) = vArr(i) + 1
Set cell = .FindNext(cell)
Loop While Not cell Is Nothing And cell.Address < sAddr
End If
Next
End With
MsgBox vArr(0) & vbCr & vArr(1) & vbCr & vArr(2)
End Sub

Regards,
Peter

"Larry Levinson" wrote in message
.. .
Word says the characters are also =

Scissors = 0x22 = windings 61474
Candle = 0x27 = windings 61479
Phone = 0x28 = windings 61480

but how do I use this data?

Larry Levinson wrote:

Hi:
I have a column of 20 characters that I paste into a column in excel
and when I turn the font for that column into wingdings, the three
characters are a pair of scissors, a telephone and a candle. the
character codes -- according to Start|Programs|Accessories|System
Tools|Character Map|WingDings -- a

Scissors = 0x22
Candle = 0x27
Phone = 0x28

I would like to determine the following:
1) the number of scissors
2) the number AND row of candles for further processing

How do I use the character codes in this vba script?

thanks in advance.

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)


Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

thanks for your help, but I think I am going to have to do this
another way BECAUSE ... i tried your syntax on a column of wingding
characters that I created with ALT-61474 etc ... and it came up with
one for the candle, which is correct. ran the same text on my column
of 20 that I copied/pasted from another source and then set the font
for that column to wingdings and it failed to find anything.
THEREFORE, I believe that it only LOOKS like those symbols, but its
either really something else or within some kind of container that we
don't seem to be able to pierce.








"Peter T" <peter_t@discussions wrote:

Hmmmmmm^³
Change
LookIn:=xlFormulas
to
LookIn:=xlValues

Regards,
Peter

"Larry Levinson" wrote in message
.. .
Hmmmmmm ... what I get back is a message box with three zeros. The
thing is: I have found how to produce the characters ...
g1:g226 is the number 30 through 255, column h1:h226 has the formula
=char(g1) etc ... then, set the font on column H to wingdings.


Now, here is the problem ... =b5=h5 comes back as FALSE.

to the eye, they both look like scissors, but apparently there is
something essentially different about the actual contents ... thanks
for your help ...


"Peter T" <peter_t@discussions wrote:

Hi Larry,
I have a problem with your Candle unless you put two of them in a cell.
It's
actually an apostrophe which has a special significance for Excel. Anyway
have a go with this:

Sub Tester11()
Dim cell As Range
Dim sAddr As String, vArr, sWhat As String

vArr = Array(&H22, &H27, &H28) 'or (34, 39, 40)

With Selection 'or eg Range("A1:B20")
For i = 0 To 2
sWhat = Chr(vArr(i))
vArr(i) = 0
sAddr = ""
Set cell = .Find(What:=sWhat, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Not cell Is Nothing Then
sAddr = cell.Address
Do
vArr(i) = vArr(i) + 1
Set cell = .FindNext(cell)
Loop While Not cell Is Nothing And cell.Address < sAddr
End If
Next
End With
MsgBox vArr(0) & vbCr & vArr(1) & vbCr & vArr(2)
End Sub

Regards,
Peter

"Larry Levinson" wrote in message
.. .
Word says the characters are also =

Scissors = 0x22 = windings 61474
Candle = 0x27 = windings 61479
Phone = 0x28 = windings 61480

but how do I use this data?

Larry Levinson wrote:

Hi:
I have a column of 20 characters that I paste into a column in excel
and when I turn the font for that column into wingdings, the three
characters are a pair of scissors, a telephone and a candle. the
character codes -- according to Start|Programs|Accessories|System
Tools|Character Map|WingDings -- a

Scissors = 0x22
Candle = 0x27
Phone = 0x28

I would like to determine the following:
1) the number of scissors
2) the number AND row of candles for further processing

How do I use the character codes in this vba script?

thanks in advance.

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)


Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)


Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)