マクロの超初心者ですが、よろしくお願いします。
サンプルからですが、
Sub 検索()
myWord = Range("C2").Value
Set myData = Range("A5:D155")
Set myRng = myData.Find(myWord)
If Not myRng Is Nothing Then
Application.Goto Cells(myRng.Row, 1), True
End If
End Sub
Sub コピー()
'Set myData = Range("A5:D155")
Set motorng = Application.Intersect(myData, ActiveCell.EntireRow)
Set sakiRng = Sheets("抽出").Range("B65535").End(xlUp).Offset(1)
motorng.Copy sakiRng
End Sub
以上のうち、「コピー」の部分をについて質問ですが、「検索」を使わないで、元Sheetのクリックしたセルのレコード全体を取得してSheets("抽出")にコピーする方法はないでしょうか。
上記のマクロでは一旦「検索」を行った後では「検索」を実行しなくてもクリックしたセルのレコード全体をSheets("抽出")にコピー出来ましたので、検索の部分を削除したいのですが。
説明が下手でスミマセンが何卒よろしくお願いします。
こんな意味でしょうか?
Sub Test()
Dim motoRng As Range, sakiRng As Range
Set motoRng = Application.Intersect _
(ActiveCell.EntireRow, ActiveCell.CurrentRegion)
Set sakiRng = Sheets("抽出").Range("B65535").End(xlUp).Offset(1)
motoRng.Copy Destination:=sakiRng
End Sub
お礼
お礼が遅くなりましてスミマセンでした。 まさに、まさに素晴らしいです。。 感激しています。 大変ありがとうございました。