初めて質問させて頂きます。
vbaで別のシートにセルで選択した項目を反映させたいのですが出来ず困っております。
どなたかご教授頂けますでしょうか。
SR.xlsm
・B4からB100まで4桁の店舗コードがあります。
・C4からC100までは住所。
・D4からD100までは電話番号。
master.xlsx
・A1に店舗コードを貼り付けたい
・B2に住所を貼り付けたい
・D3に電話番号を貼り付けたい
作業内容としては以下をしたいのです。
例えばSR.xlsmのB50を選択してボタンをクリックすると
master.xlsxが自動的に立ち上がり、
master.xlsxのA1 ⇒ B50を貼り付け
master.xlsxのB2 ⇒ C50を貼り付け
master.xlsxのD3 ⇒ D50を貼り付け
以下、自分なりにやってみたのですがどのセルを選択してボタンを押してもB4の列しか反映されません。
大変お手数をおかけいたしますがご教授願いますでしょうか。
宜しくお願い致します。
Sub click()
'
' click Macro
'
'
Range("B4").Select
Selection.Copy
Workbooks.Open Filename:= _
"\\0000000\22\33\44\master.xlsx"
ActiveSheet.Paste
Windows("SR.xlsm").Activate
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("master.xlsx").Activate
Range("E2").Select
ActiveSheet.Paste
Windows("SR.xlsm").Activate
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("master.xlsx").Activate
Range("E4:H4").Select
ActiveSheet.Paste
Windows("SR.xlsm").Activate
Range("E4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("master.xlsx").Activate
Range("H2:H3").Select
ActiveSheet.Paste
End Sub
No.1ベストアンサー
- 回答日時:
何も考えずにやりたい作業内容を実現することだけなら、
Sub CB1_Click()
Dim bValue, cValue, dValue As Variant
bValue = Cells(ActiveCell.Row, 2).Value
cValue = Cells(ActiveCell.Row, 3).Value
dValue = Cells(ActiveCell.Row, 4).Value
Workbooks.Open Filename:="\\0000000\22\33\44\master.xlsx"
ActiveSheet.Cells(1, 1) = bValue
ActiveSheet.Cells(2, 2) = cValue
ActiveSheet.Cells(3, 4) = dValue
End Sub
で、いかがでしょうか。
kigoshiさん
完璧です!!
お恥ずかしい話ですが、この問題で1.5日悩んで悩んでおりました。
こんなシンプルだったとは。。。
師匠と呼ばせて頂きます!
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで丸をつけたいです。
-
Excelについて
-
エクセルVBA(実行時エラー438...
-
VBAで、貼り付け禁止命令を実現...
-
ダブルクリックすると現在の時...
-
エクセルVBA セル選択後にカレ...
-
ハイパーリンクされているファ...
-
エクセルテキストボックスの文...
-
Excelのセル内にある図形を削除...
-
Excel VBA ダブルクリックで入...
-
GrapeCityのSpreadの複数セルの...
-
エクセル マクロ 見つけてセ...
-
VBAのListBoxで複数選択して...
-
EXCELマクロ 保護されているシ...
-
セル色を5秒間隔で変える
-
Windowsで動くVBAがmacOSで動か...
-
VBA セルに合わせて移動するが...
-
エクセル2007 VBA DTPicker
-
シート内セルに着色があればエ...
-
メッセージを1度だけ表示したい。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データが入力されている隣のセ...
-
EXCELマクロ 保護されているシ...
-
エクセルテキストボックスの文...
-
VBAで、貼り付け禁止命令を実現...
-
Excelについて
-
メッセージを1度だけ表示したい。
-
ダブルクリックすると現在の時...
-
ハイパーリンクされているファ...
-
エクセルVBA セル選択後にカレ...
-
Jtableの特定のセルの背景色や...
-
VBAで丸をつけたいです。
-
エクセルVBA(実行時エラー438...
-
Excelのセル内にある図形を削除...
-
Swing 編集不可でも選択可能なJ...
-
(VBA)アクティブセルを起点に...
-
Excel VBA セルを指定個数ラン...
-
VBA セルに合わせて移動するが...
-
Windowsで動くVBAがmacOSで動か...
-
セル色を5秒間隔で変える
-
Excel VBA ダブルクリックで入...
おすすめ情報