VBAの動作不良について教えてください。

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
ソースコード上のCells(j.Row,"B")Selectの部分でJ.Rowに数字が格納されていますが、
セレクトが機能しません。
こちらの解決方法を教えてください。

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

座標を選択できない。

エラーメッセージ

該当のソースコード

Private Sub CommandButton1_Click()

Dim i As Integer
Dim j As Range
Dim shName As String
Dim What As String
i = 1

Do Until i > 12
'追加した場合はi>〇を変更する

Worksheets(1).Activate
On Error Resume Next
Range(Cells(5 + i, 3), Cells(5 + i, 8)).Copy
shName = Cells(5 + i, 2).Value
If shName = vbNullString Then Exit Sub

Sheets(shName).Activate

Set j = Range(Cells(38, 1), Cells(97, 1)).Find(What:=Cells(1, 10).Value)

If j Is Nothing Then
MsgBox "見つかりませんでした。"
End If

Cells(j.Row, "B").Select
ActiveCell.PasteSpecial Paste:=xlPasteValues

i = i + 1
Loop

End Sub

試したこと

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

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

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

Comments

[meg_]

コードを見やすくするためにコードは「コードの挿入」で記入してください。
質問のコードは何をするコードでしょうか？簡単な説明があると良いかと思います。

[bebebe_]

シートの入力されている状態がわからないですがコードだけでは「Cells(j.Row, "B").Select」含め動作しました。
シートの内容とズレている部分等があるのではないでしょうか？
ステップイン等を使い1行ずつ実行して行けば問題がどこにあるかわかると思います

[noda_T]

書式が正しく記載できておらず、申し訳ありません。ソースコードを修正しております。
質問のコードはSetにてjに検索一致したセルの行の座標を格納し、その座標のセルを選択しアクティブにする目的です。

[hatena19]

On Error Resume Next の行をコメントアウトして、実行してみてください。
エラーメッセージがでませんか。でたら、そのメッセージとエラーの出た行を追記してください。

[noda_T]

>bebebe_さん:ステップインにて該当のコード実行時にj.Rowに正しい値が格納されているところまでは確認できていますが、選択がされない状態となっています。

[hatena19]

下記のようにデバッグコードを埋め込んで実行して、イミディエイトウィンドウに表示された結果を提示してもらえますか。

Debug.print j.Row
Cells(j.Row, "B").Select
Debug.print ActiveCell.Address

[bebebe_]

j.Rowの値もおかしくないならコピー先のシートに保護がかかっていたりはしませんか？

[noda_T]

ベストアンサーの方の対処法で解決いたしました。親身に相談乗っていただき、ありがとうございました。

Answer 1

まずは On Error Resume Next　をなくしてみたらどうでしょう。

---

j.Offset(, 1).PasteSpecial Paste:=xlPasteValues

とかはどうですか。

Comments

[noda_T]

ありがとうございます。On Error Resume Nextを消すと正常に動作しました。

[jinoji]

On Error Resume Nextを消すと正常に動作する、というのは多分違いますけどね。
エラーを無視した結果、どこかの処理が意図通りにならなかったのだと思います。
おそらくshName あたりの値がおかしくてシートをActivateする処理が失敗している、とかじゃないかと推測していますが。

Answer 2

(機械翻訳)Cells キーワードの直後に行と列のインデックスを指定できます。

https://docs.microsoft.com/en-us/office/vba/api/excel.worksheet.cells#example

"B"のような値ではなく、1などのインデックスを指定するもののようです。

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

Comments

[hatena19]

列名で指定することも可能です。
列番号だといちいち数えなくてはいけないので列名で指定することはよくあります。

[退会済みユーザー]

コメントくださってありがとうございます。

列名で指定することの可能なのですね。
リファレンスを見て、「インデックス」と記載されていたため、数値しか指定できないものと早とちりしてしまいました・・
混乱するような回答をしてしまいまして、ごめんなさい。

[noda_T]

ご回答ありがとうございました。ベストアンサーの方の対処法で解決いたしました。