Excel 別ブックの検索と貼り付け

質問

添付ファイルのシートが二つあります。
※セルが一部表示されていませんが、都合上非表示にしてありますがご了承下さい。

申請書ファイルに確認というボタンを設置してあり、確認ボタンをクリックしたら以下の動作を行いたいです。

1．申請書ファイルAC27に入力されている値を台帳ファイルの台帳シートのB列から検索
2．台帳シートのB列に該当する値があったら、申請書ファイルのAL27の値を台帳シートのT列+該当した値と同じ行に貼り付け
※添付ファイルの場合、
　　申請書ファイルAC27の値：21-002
　　台帳ファイル：B8セルに該当する値あるので、T8セルに申請書ファイルのAL27の値を貼り付け

3．申請書ファイルのAL27の値を貼り付けている理由は申請書ファイルのAK27：AK29のセルの値がTRUEとなっている1列横のセルの値を貼り付けたいので、もしAK28がTRUEだった場合、AL28の値を台帳ファイルに貼り付け

上記のような事をVBAで行いたいです。

・申請書ファイルのAC27セルの値はBOOK毎に代わります
・AK27:AK29の値は重複はありません。
・台帳ファイルのB列の値は21-001、21-002のように1番づつ繰り上がって増えていきます。

説明が不十分だったり分かりにくい箇所があるとは思いますが、ご教示を頂きたくよろしくお願いいたします。

回答No.3

HohoPapa · ベストアンサー

後記のようなコードでいかがでしょうか。
なお、
　Debug.Print PutData
　Debug.Print KNum
　Debug.Print HitFlg
の３行は、動作確認が終えたら、削除、あるいはコメントアウトしてください。

Option Explicit

Sub sample()

　Dim KNum As String
　Dim PutData As String
　Dim i As Long
　Dim tgBook As Workbook
　Dim HitFlg As Boolean

　'>台帳.xlsxは固定フォルダーにあります
　Const tgDir = "C:\work"

　With ThisWorkbook.Sheets("申請書")

　　'(01)変数KNumに申請書.xlsmの申請書シートのAC27の値を格納
　　KNum = .Cells(27, 29).Value

　　'(02)AK27以下３セルの中でTrueのセルを探し、
　　'　ヒットした行のAL列の値を変数PutDataに格納
　　For i = 27 To 29
　　　If .Cells(i, 37).Value = True Then
　　　　PutData = .Cells(i, 38).Value
　　　　Exit For
　　　End If
　　Next i

　End With

　Debug.Print PutData
　Debug.Print KNum

　'(03)台帳.xlsxを開く
　Set tgBook = Workbooks.Open(tgDir & "\台帳.xlsx")

　'(04)台帳.xlsxの台帳シートのB7セル以下から、変数KNumの値を探す
　i = 7
　HitFlg = False
　Do
　　With tgBook.Sheets("台帳")
　　　If .Cells(i, 2).Value = "" Then Exit Do

　　　'見つかったら､
　　　If .Cells(i, 2).Value = KNum Then
　　　　HitFlg = True
　　　　.Cells(i, 20).Value = PutData
　　　　Exit Do
　　　End If
　　　i = i + 1
　　End With
　Loop

　Debug.Print HitFlg

　'見つかったら台帳.xlsxを閉保存
　If HitFlg = True Then
　　tgBook.Save
　End If

　'台帳.xlsxを閉じる
　tgBook.Close

End Sub

お礼

HohoPapa様

ご教示ありがとうございました。
希望通りの動作ができ、感謝いたします。

回答No.2

HohoPapa

>台帳シートのT列+該当した値と同じ行に貼り付け
とは、
台帳シートのB列から探し、見つかった行のT列に貼り付け
ということでいいですね？

>AL27の値
とは、"1.不要"という文字列ですね？

>・AK27:AK29の値は重複はありません
この３つのセルのうち、1つだけが必ずTrueだということですね？

また、台帳.xlsxはどのか固定なフォルダーにありますか？
それとも、フォルダーが固定ではなく
申請書.xlsmと同じフォルダーにありますか？

コードとすべき内容は以下となりますが期待通りですか？

(01)変数KNumに申請書.xlsmの申請書シートのAC27の値を格納
(02)AK27以下３セルの中でTrueのセルを探し、
　ヒットした行のAL列の値を変数PutDataに格納
(03)台帳.xlsxを開く
(04)台帳.xlsxの台帳シートのB7セル以下から、変数KNumの値を探す
見つからなかったら、
　(05)台帳.xlsxを閉じ、マクロから抜ける
見つかったら、
　(06)見つかった行のT列に変数PutDataを格納
　(07)台帳.xlsxを上書き保存して閉じる

補足

Hohopapa様

ご回答ありがとうございました。
問い合わせの内容について、回答させて頂きます。

>台帳シートのT列+該当した値と同じ行に貼り付け
とは、
台帳シートのB列から探し、見つかった行のT列に貼り付け
ということでいいですね？
>>そうです

>AL27の値
とは、"1.不要"という文字列ですね？
>>そうです。

>・AK27:AK29の値は重複はありません
この３つのセルのうち、1つだけが必ずTrueだということですね？
>>そうです。

また、台帳.xlsxはどのか固定なフォルダーにありますか？
それとも、フォルダーが固定ではなく
申請書.xlsmと同じフォルダーにありますか？
>台帳.xlsxは固定フォルダーにありますが、申請書.xlsmフォルダーとは別フォルダーにあります。

>コードとすべき内容は以下となりますが期待通りですか？
ご提案頂きました動作内容で問題ありません。

よろしくお願いいたします。

回答No.1

aokii

開発タブの「マクロの記録」を使ってみて下さい。