「同ブック内の別シートの検索値が一致するとき、〇で返す」という処理が途中で止まる

同ブック内の別シートの検索値が一致するとき、〇で返す

VBA初心者です
処理が途中で止まっているようです。

エラーメッセージも出ないので何がいけないのかよくわかりません。

VBA
1Sub 検索1()
2    Range("$Q19:$U20").Copy
3    Sheets("A").Select
4    Range("$C$569").Select
5    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
6        :=False, Transpose:=False
7    ActiveSheet.Range("$B$1:$CL$570").AutoFilter Field:=3, Criteria1:=Range("$C$569")
8    ActiveSheet.Range("$C$569").Clear
9    
10    Dim rng As Range
11    Set rng = cells
12    ActiveSheet.Range("$AN$4:$BC$500").SpecialCells(xlCellTypeVisible).Select
13    
14    cells.Find(What:="玉掛", After:=activecell, LookIn:=xlValues, LookAt:= _
15        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
16        , MatchByte:=False, SearchFormat:=False).Activate
17       
18    If Not rng Is Nothing Then
19    Else
20    foundcell = "玉掛"
21    Sheets("B").Select
22    Range("$AV17:$AV20").Select
23    activecell.FormulaR1C1 = "〇"
24    Sheets("A").Select
25    Selection.AutoFilter
26    Sheets("B").Select
27    End If
28End Sub
29

発生している問題・エラーメッセージ

多分7行目の
Activesheet .range.clear
で止まっているように見えます

どこがいけないのでしょうか？
ふわっとした質問で大変申し訳ないのですが、お分かりの方いらっしゃいましたら教えてください。

該当のソースコード

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

stdio

2019/07/05 05:45

msgboxを使用し、どの行付近で調査しましょう。メッセージが表示されたら、そこの上の行に書かれているプログラムは正常に動いています。表示されなかったら、その付近が怪しいです。その上で分からなければ質問して下さい。

san.chan

2019/07/05 05:50

わかりました。やってみます。

ttyp03

2019/07/05 05:59

MsgBoxよりはDebug.Printではないでしょうか？まあどっちでもいいですが。。。

stdio

2019/07/05 06:24

基本的に、そんなデバック用のプログラムなんてソースに残しませんからね...

行動規範の内容に同意します

回答1件

ベストアンサー

具体的に何をしたいプログラムなのかよくわかりませんでしたので、どこをどうするという回答には至りませんが、少なくとも言えることは、このプログラムにエラーはありませんし、途中で止まることなく正常終了します。
（玉掛という文字がなかった場合には、エラーが出て止まります）

If Not rng Is Nothing Then
の行にブレークポイントを置いて動作を確かめてはいかがでしょうか？

ちなみにですが、
Set rng = Cells
の後に、rngをNothingにするコードがどこにもありませんので、終盤のIFの結果は常にTrueとなって、Else以降は実行されないと思います。

もしかしたらですが、Findメソッドの結果が、rngに影響するつもりのコードでしょうか？
だとすると、Findで取った結果をrngに代入しなければなりません。

VBA
1Dim rng As Range
2Set rng = Range("AN4:BC500").Find(What:="玉掛")
3
4If rng Is Nothing Then
5    MsgBox ("玉掛はない")    '本当はMsgBoxではなく、玉掛がなかった場合にやりたい処理を書く。
6Else
7    MsgBox ("玉掛はある")    '本当はMsgBoxではなく、玉掛があった場合にやりたい処理を書く。
8End If