Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


38394 / 76732 ←次へ | 前へ→

【43476】Re:検索と削除
発言  ハチ  - 06/10/16(月) 23:53 -

引用なし
パスワード
   ▼わんこ好き さん:

自分は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

1 hits

【43442】検索と削除 わんこ好き 06/10/15(日) 23:25 質問
【43443】Re:検索と削除 ハチ 06/10/16(月) 10:34 発言
【43472】Re:検索と削除 わんこ好き 06/10/16(月) 21:32 発言
【43476】Re:検索と削除 ハチ 06/10/16(月) 23:53 発言
【43478】Re:検索と削除 わんこ好き 06/10/17(火) 1:22 発言
【43645】Re:検索と削除 わんこ好き 06/10/21(土) 2:44 お礼

38394 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free