Excel VBA質問箱 IV

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

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


54649 / 76732 ←次へ | 前へ→

【26869】ブックの異なる元データを月単位のアクティブセルに貼り付ける方法
質問  nossori  - 05/7/21(木) 21:12 -

引用なし
パスワード
   下のような表があります。
この表の7月のRange("A4")をアクティブセルにして、関連のブックからデータを取り出して、貼り付けるマクロにしたく思っています。このA4のセルを指定したいのですが、どのようにしたら良いのでしょうか。また、その次には8月のRange("E4")をアクティブにしてデータを貼り付けることにも使えて、毎月のデータが順次アクティブセルを指定して貼り付けられるようにしたいんですが。

元データは「売上一覧」の A3にあり、月が変わる時にそのデータが消され、翌月のデータスペースになるので、月末に消す前にこのような一覧表に貼り付けをして、データをT機単位に管理したく考えています。
アクティブセルを活用しているのですが、7月の元データも8月の元データも、何時も このシートの「 A3 」に貼り付けられますが何処が問題なのでしょうか?教えていただきたくお願いします。


  A    B     C   D    E     F     G  H   I
1 7月              8月              9月・・・
2
3 月日  氏名ID  金額      月日   氏名ID   金額   月日・・・
4                  8月1日  0011    100
5                  8月2日  0022    200
6                  8月4日  0044    500
:
:
↑ ↑                ↑ ↑
張り込む前の表            仕上がりの表

Dim tBK As Workbook
  
  On Error Resume Next
  Set tBK = Workbooks("BB売上集計と請求書発行.xls")
  If Err Then
    Set tBK = Workbooks.Open("U:\AA売上と請求\BB売上集計と請求書発行.xls")
  End If
  On Error GoTo 0
  If tBK Is Nothing Then Exit Sub
  tBK.Worksheets("売上一覧").Range("A3", Cells(Rows.Count, 1).End(xlUp)).Resize(, 3).Select
  Selection.Copy ThisWorkbook.Worksheets(1).Cells(ActiveCell.Row, ActiveCell.Column)  ’↑の行ですがA3に貼られてしまいますが
  tBK.Close False
  Set tBK = Nothing

また、貼り付ける時に月が間違った場合、7月の元データを、8月の欄に貼り付けた場合に、張り込み位置が間違っているという
MsgBoxでアラームを出したいのですが・・・何か良い方法は無いでしょうか。

1 hits

【26869】ブックの異なる元データを月単位のアクティブセルに貼り付ける方法 nossori 05/7/21(木) 21:12 質問
【26873】Re:ブックの異なる元データを月単位のア... kobasan 05/7/22(金) 0:56 回答
【26875】Re:ブックの異なる元データを月単位のア... nossori 05/7/22(金) 7:57 質問
【26877】Re:ブックの異なる元データを月単位のア... りん 05/7/22(金) 8:35 発言
【26890】Re:ブックの異なる元データを月単位のア... kobasan 05/7/22(金) 15:58 回答
【26901】Re:ブックの異なる元データを月単位のア... nossori 05/7/22(金) 22:17 質問
【26905】Re:ブックの異なる元データを月単位のア... kobasan 05/7/23(土) 0:55 回答
【26932】Re:ブックの異なる元データを月単位のア... nossori 05/7/23(土) 22:38 お礼
【26899】Re:ブックの異なる元データを月単位のア... kobasan 05/7/22(金) 22:10 発言

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