Spellchecker anomaly... Checks spelling on a Forms Button text label...?

C

Claus Busch

Hi Howard,

Am Sun, 16 Jun 2013 11:10:28 -0700 (PDT) schrieb (e-mail address removed):
Run spell check from tool bar and it offers a solution to the "misspelled" caption on the forms button ConCat AH15.
Click to expand...

I can't reproduce it. For me it works fine.
But another tipp: Put only code of worksheet events in the code module
of the worksheet. And in code module of the workbook only code with
workbook events. All other subs or functions put in a standard module.


Regards
Claus Busch
 
C

Claus Busch

Hi Howard,

Am Sun, 16 Jun 2013 20:30:57 +0200 schrieb Claus Busch:
But another tipp: Put only code of worksheet events in the code module
of the worksheet. And in code module of the workbook only code with
workbook events. All other subs or functions put in a standard module.
Click to expand...

in code module of sheet3 you have:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Target.Row = 1 Or Target.Row = 4 Or Target.Row = 7 Or Target.Row = 10
_
Or Target.Row = 13 Or Target.Row = 16 Or Target.Row = 19 Or Target.Row =
2 Then
Target.Offset(0, 1).Select
End If
If Target = Range("AB12") Then
Target.CheckSpelling SpellLang:=1033
End If
End Sub

This long IF construct is better and easier to write as a Select Case
statement:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Row
Case 1, 2, 4, 7, 10, 13, 16, 19
Target.Offset(0, 1).Select
End Select

If Target.Address(0, 0) = "AB12" Then
Target.CheckSpelling SpellLang:=1033
End If
End Sub

Regards
Claus Busch
 
L

lhkittle

Hi Howard,



Am Sun, 16 Jun 2013 20:30:57 +0200 schrieb Claus Busch:








in code module of sheet3 you have:



Private Sub Worksheet_Change(ByVal Target As Range)



On Error Resume Next

If Target.Row = 1 Or Target.Row = 4 Or Target.Row = 7 Or Target.Row = 10

_

Or Target.Row = 13 Or Target.Row = 16 Or Target.Row = 19 Or Target.Row =

2 Then

Target.Offset(0, 1).Select

End If

If Target = Range("AB12") Then

Target.CheckSpelling SpellLang:=1033

End If

End Sub



This long IF construct is better and easier to write as a Select Case

statement:

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Row

Case 1, 2, 4, 7, 10, 13, 16, 19

Target.Offset(0, 1).Select

End Select



If Target.Address(0, 0) = "AB12" Then

Target.CheckSpelling SpellLang:=1033

End If

End Sub



Regards

Claus Busch
Click to expand...

Hmmm, that is just sloppy on my part. I had forgot all about that. The only spell check I need or want is in cell AK15, which you have produced for me.

If you are on sheet 1, and go Review > click Check Spelling, do you get the Spelling: English (US) box with "ConCat" not in dictionary and the suggestion of "concept"?

Howard
 
C

Claus Busch

Hi Howard,

Am Sun, 16 Jun 2013 12:21:02 -0700 (PDT) schrieb (e-mail address removed):
If you are on sheet 1, and go Review > click Check Spelling, do you get the Spelling: English (US) box with "ConCat" not in dictionary and the suggestion of "concept"?
Click to expand...

yes, I get "Concat" and all the XO combinations


Regards
Claus Busch
 
C

Claus Busch

Hi Howard,

Am Sun, 16 Jun 2013 12:21:02 -0700 (PDT) schrieb (e-mail address removed):
If you are on sheet 1, and go Review > click Check Spelling, do you get the Spelling: English (US) box with "ConCat" not in dictionary and the suggestion of "concept"?
Click to expand...

I tested with a new sheet. CheckSpelling ignores ActiveX Controls. But
Form Controls will be checked.
I never noticed that because I always use ActiveX Controls


Regards
Claus Busch
 
L

lhkittle

Hi Howard,



Am Sun, 16 Jun 2013 12:21:02 -0700 (PDT) schrieb (e-mail address removed):






I tested with a new sheet. CheckSpelling ignores ActiveX Controls. But

Form Controls will be checked.

I never noticed that because I always use ActiveX Controls





Regards

Claus Busch
Click to expand...


Okay, I can put that to bed, normal but this is the first time it has come to my attention.

Thanks Claus. On to more important stuff now. <g>

Howard
 
Top