VBA データを戻すコード

質問

おはようございます。

データを戻すコードが分からない為質問させていただきます。

やりたいこと

前提として
シート２やシート３は
A1からC100セルまで文字が書かれています。

シート1に
A1からC200セルまで文字が書かれています。
そのセルのAセル以外の範囲（B1：C200）のどれか
が変更が有れば（例：B110セルが変更なら110行目をコピーする）

その変更された行をコピーし
シート２やシート３内をAセルの行（1から100行まで）検索し
シート１の110行目のAセルの文字とAセルの文字が当てはまったら
（例A30セルに同じ文字が有れば）
シート１でコピーしたセル
（上の例であれば110行目コピーされたもの）
を30行目に貼り付けを行う。

といった処理をしたいのですが
出来ましたらコードを記載していただきたいです。

すいませんが回答よろしくお願いいたします。

回答No.1

kkkkkm · ベストアンサー

シート1のシートモジュールに以下のコードで試してみてください。
シート名は実際のシート名からコピペしてください。

一致するものが一か所しかない場合

Private Sub Worksheet_Change(ByVal Target As Range)

If Application.Intersect(Target, Range("B1:C200")) Is Nothing Then
Exit Sub
End If

Application.EnableEvents = False

Dim Ws(1) As Worksheet
Dim mRng As Range, i As Long

Set Ws(0) = Worksheets("シート２")
Set Ws(1) = Worksheets("シート３")

For i = LBound(Ws) To UBound(Ws)
With Ws(i)
Set mRng = .Range("A1:A100").Find(What:=Cells(Target.Row, "A").Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not mRng Is Nothing Then
Rows(Target.Row).Copy .Rows(mRng.Row)
End If
End With
Next

Set Ws(0) = Nothing
Set Ws(1) = Nothing

Application.EnableEvents = True
Cells(Target.Row, Target.Column).Select
End Sub

複数一致する可能性がある場合

Private Sub Worksheet_Change(ByVal Target As Range)

If Application.Intersect(Target, Range("B1:C200")) Is Nothing Then
Exit Sub
End If

Application.EnableEvents = False

Dim Ws(1) As Worksheet
Dim mRng As Range, i As Long

Set Ws(0) = Worksheets("シート２")
Set Ws(1) = Worksheets("シート３")

For i = LBound(Ws) To UBound(Ws)
With Ws(i)
For Each mRng In .Range("A1:A100")
If mRng.Value = Cells(Target.Row, "A").Value Then
Rows(Target.Row).Copy .Rows(mRng.Row)
End If
Next
End With
Next

Set Ws(0) = Nothing
Set Ws(1) = Nothing

Application.EnableEvents = True
Cells(Target.Row, Target.Column).Select
End Sub

補足

ご回答ありがとうございます。

一度このコードで確かめてみて
勉強させていただきます。

回答No.2

imogasi

回答者を道具に使うやりかただ。
死でに回答は出ているし、VBA全体ではありふれた時候と思う。
シート、セルを質問者の売位に当てはめて、特定して当てはめたコードぐらい自分で書くこと。
エクセルVBA学習でも上級の、イベントという仕組みを
使うことになろうが、使うにはそれなりに心得て使わないと危険。
特に他人が操作するシートなどの場合。
今後もVBAを使う予定なら、自分でも勉強すべきだ。
＞データを戻すコードが分からない為質問させていただきます。
コードのことではなくて、エクセル（VBA）でできる・提供されている機能や、仕組みも勉強してないと思う。分っておれば、もっとピンポイントの限定した書き方の質問になるはず。
「何々したら」XXしたい、は、思いつく「何々」のケースは沢山あって、初心者でも頻繁に思い浮かぶが、直ぐ上はクラスというものを勉強しないと、またさらに先もあり、通常人はVBAでは出来ないことも多いと思う。

補足

回答とはまったく違うことは求めていません。

ヒントや回答の糸口になりそうなことを
回答するわけでもなく
ただ単に勉強しろ等説教をして
自分が気持ちよくなるために回答をするのは
これから控えてください。