セルの選択

質問

よろしくお願いします。

AE1：AI15の中のあるセル（6桁の値が入っています）を選択している状態から始まりまり、セルAA3に貼り付け、別のマクロ（検索）を実行後、また元のセルにマクロで戻りたいのですが、
どなたか詳しい方教えて下さい、よろしくお願いします。

Private Sub CommandButton2_Click() '検索ボタン
Application.ScreenUpdating = False
Selection.Copy
Range("AA3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
検索
End Sub

回答No.1

keithin · ベストアンサー

方法１）
Private Sub CommandButton2_Click() '検索ボタン
’よそにやる前に憶えておく
dim h as range
set h = activecell

Application.ScreenUpdating = False
Selection.Copy
Range("AA3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
検索

’帰ってきたら，憶えておいた場所を選び戻す
h.select
End Sub

方法２：
Private Sub CommandButton2_Click() '検索ボタン
’そもそもイチイチ，セレクトしない
range("AA3").value = activecell.value
検索
end sub

もっともあなたの「検索」マクロが一体何をやってるのかによって，お話が全部がらりと変わってしまう可能性はあります。

お礼

ありがとうございました、私は四苦八苦しましたが簡単な人にはとっても簡単なんですね。