プロが教えるわが家の防犯対策術!

下記を実行すると「オブジェクトが見つかりません」と Buf = Sht1.Cells(5, 2).Value で止まります。変数Bufを使わず、
Set FC1 = Sh1.Columns("B").Find(what:="3")
Set FC2 = Sh2.Rows(9).Find(what:="3")
だとエラーは起きないのですが何がいけないのか教えてください。
Sub test1()
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim FC1 As Range, FC2 As Range
Dim Buf As String
Set Sh1 = Sheets(1)
Set Sh2 = Sheets(2)
Buf = Sht1.Cells(5, 2).Value
Set FC1 = Sh1.Columns("B").Find(what:=Buf, lookat:=xlWhole)
Set FC2 = Sh2.Rows(9).Find(what:=Buf, lookat:=xlWhole)
If FC1 Is Nothing Then
MsgBox "見つかりません"
Exit Sub
Else
If FC2 Is Nothing Then
MsgBox "見つかりません"
Exit Sub
Else
FC1.Offset(, 1).Resize(6, 25).Copy
FC2.Offset(2).PasteSpecial Transpose:=True '行列を入れ替えて貼り付ける
End If
End If
End Sub

A 回答 (1件)

Buf = Sht1.Cells(5, 2).Value


  ↓
Buf = Sh1.Cells(5, 2).Value

とか。
    • good
    • 0
この回答へのお礼

ありがとうございます。自分では一生気が付きませんでした!

お礼日時:2023/06/24 22:32

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています