Excelで、選択されるとその行の値を別のシートにコピーされるようにしたい。

前提

VBAマクロ初心者です。

実現したいこと

Sheet1のA列に文字列"UIDxxxxx"から始まる値の入ったセルがあります、それが選択されると同時にSheet2にその選択されたセルの行の値すべてがコピーされるようにしたいです。
（なぜこれをしたいかというと、今まで手入力でしていた名簿の管理をICカードで出来るようにしたいと思い、ソフトを探していました。ICカードリーダーでエクセルに読み込みと検索が出来るソフトにMANICA TOOLSというのがあるのですが、読み込みモードにしてICカードをタッチすると、カードからUIDを読み取ってそれをセルに入力してくれて、検索モードにして再度ICカードをタッチするとそれが入力されたセルを検索することが出来るのですが、検索した際にそのUIDが書かれたセルが選択されるのです。そのセルが選択されると同時に別のシートに選択された行の情報だけを出力して欲しくてVBAにチャレンジしてみようと思いました。）

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

エラーメッセージ

該当のソースコード

ソースコード

試したこと

https://www.forguncy.com/blog/20181217_clickevent
https://extan.jp/?p=7461
こちらを参照にさせて頂いて、Targetを使って別のシートにコピーすればいいのだと思いましたが、特定のセルの条件("UIDxxxxx"から始まるセル以外を選択しても何もならない)の書き方や、「特定のセルを選択するとその行全体が別シートに順番にコピーされる」がわからず、どう調べたらいいのかがわからなくなっています。
自分自身よく分かっておらず、非常に分かりづらい質問文かもしれませんが
どなたかご教授頂けると幸いです。

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

Windows10, Office2021

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

回答1件

ベストアンサー

MANICA TOOLS の詳細な仕様が分からないので、出されている情報だけから、回答します。

とりあえず下記のような条件とします。

Sheet1のA列に文字列"UID"から始まる値の入ったセルがある
MANICA TOOLSというソフトにより、該当するUIDのセルが選択される
選択されたセルの行のデータをSheet2の最終行の次行にコピーする

Sheet1のモジュール

vba
1Private Sub Worksheet_SelectionChange(ByVal Target As Range)
2    If Target.Cells.Count = 1 And Target.Column = 1 Then '１セルのみ選択かつA列のセルなら
3        If Target.Value Like "UID*" Then   'セルの値がUIDで始まるなら
4           '選択セルの行データを、Sheet2の最終行の次行に転記
5            Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5).Value = _
6                Target.Resize(, 5).Value
7        End If
8    End If
9End Sub

上記はSheet1の表範囲が５列までの例です。Resize(, 5) の部分の5を実際の列数に変更してください。

上記のコードだけだと、ユーザーがA列のセルを選択してもコピーされてしまいますので、他になんらかの条件を追加した方がいいと思います。例えば、「MANICA TOOLS が「検索モード」になっているか」という条件。
MANICA TOOLS はエクセルのアドインのようなので、何か方法はあると思います。

追記

上記、回答記述後、MANICA TOOLS について検索してみたら、ツールの各動作後にマクロを実行できるようです。

マクロを利用するまでの流れ | MANICA Community Site

コード例
「セルを探す」でIDに対応したファイルやURLを開く | MANICA Community Site

上記を参考にすると下記のコードを標準モジュールに記述して、「セル発見時にマクロを実行する」に下記のマクロを選択すればよさそうです。

標準モジュール

vba
1Sub CopyTo(TagID As String, TimeStamp As String)
2       '選択セルの行データを、Sheet2の最終行の次行に転記
3       Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5).Value = _
4            ActiveCell.Resize(, 5).Value    
5End Sub