[[20190619135545]]　『シート比較　合致時にデータ転記』（ヌクミズ）　ページの最後に飛ぶ

『シート比較　合致時にデータ転記』（ヌクミズ）

VBA初心者です。
職場で突然離職者が出たため、業務の一部を引継ぐことになりましたが、
データの転記ばかりでVBAを活用して効率化を図りたいと考えています。
【概要】２つのシートを比較し、特定コードが合致した時に、
　　　　データの一部を一方のシートへ転記したい。
　　　　
具体的には
シート1(表形式)
A18（列）・・・・O18・・・・・・・・ＡＩ18・・・・・・・・AL18まで
　　　　　　　　　　1　　　　　　　2019/1/1　　　　　　
　　　　　　　　　　2　　　　　　　2019/2/1　　　　　　
　　　　　　　　　　3　　　　　　　2019/3/1　　　　　　
　　　　　　　　　　4　　　　　　　2019/4/1　　　　　　
シート2（表形式）
A10（列）・・・・C10・・・・・・・・D10・・・・・・・・P10まで
　　　　　　　2019/1/1　　　　　　　1　　　　　　　　　　　
　　　　　　　2019/2/1　　　　　　　2　　　　　　　　　　　
　　　　　　　2019/3/1　　　　　　　3　　　　　　　　　　　
　　　　　　　2019/4/1　　　　　　　3　　　　　　　　　　　
シート1の０１８以降列の値と、シート2のD10以降列の値を照合、
合致している場合、シート2のC10列の値をシート1のAI18列へ転記（書換）したい。
※実行ボタンはシート1に設置
※合致する値がない場合、シート1のAI18列の値はそのまま
過去に簡単なVBAはリファレンスブックを活用し作成したことがありますが、
この様な例は手持ちのリファレンスブックに記載がなく、ネットでも検索しているのですが、
少し私の内容と異なっているためうまく当てはめられませんでした。
どのようなコードを記載するのがよいのでしょうか？
ご回答頂けますと幸いです。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

Sub main()

    Dim c As Range, r As Range
    For Each c In Sheets("Sheet1").Range("O18:O" & Rows.Count).SpecialCells(2)
        Set r = Sheets("Sheet2").Range("D10:D" & Rows.Count).Find(c.Value, , , xlWhole)
        If Not r Is Nothing Then c.Offset(, 20).Value = r.Offset(, -1).Value
    Next c
End Sub
（mm） 2019/06/19(水) 17:01

（mm）さん
ありがとうございます。

会社にて早速活用させて頂きました。
もう一点お願いがございます。

転記した時に、シート1側のセルを色を黄や赤などに
出来ればと考えております。

ご協力頂ければ幸いです。

宜しくお願いします。
（ヌクミズ） 2019/06/20(木) 21:24

コメント返信：

[ 一覧(最新更新順) ]

[[20190619135545]] 『シート比較 合致時にデータ転記』（ヌクミズ） ページの最後に飛ぶ

[[20190619135545]]　『シート比較　合致時にデータ転記』（ヌクミズ）　ページの最後に飛ぶ