|
▼わんこ好き さん:
自分はFindが好きなのでこんな感じでしょうか?
WorkSheets1枚目A2セルにコードを入れると
2枚目から3枚目へコピー、2枚目から削除。
2枚目A1〜A100に検索されるコードが並んでいてA〜D列までをコピー&削除します。
テストデータで試してみてください。
*いちお、動きましたが半眠りで書いているので間違っていたらどなたかフォローお願いします・・
'WorkSheets1枚目モジュールへ
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A2" Then Exit Sub
If Target.Count > 1 Then Exit Sub
Call Test(Target.Value)
End Sub
'標準モジュールへ
Option Explicit
Sub Test(Tgt As Variant)
Dim Fi As Range
Dim Ran As Range
Set Ran = Worksheets(2).Range("A1:A100")
Set Fi = Ran.Find(Tgt, , xlValues, xlWhole, , , False, False)
If Not Fi Is Nothing Then
Worksheets(3).Range("A65536").End(xlUp).Offset(1) _
.Resize(, 5).Value = Fi.Resize(, 5).Value
Fi.EntireRow.Delete xlUp
Else
MsgBox "ありません"
End If
Set Fi = Nothing
Set Ran = Nothing
End Sub
|
|