Excel VBA質問箱 IV

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

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


54651 / 76738 ←次へ | 前へ→

【26873】Re:ブックの異なる元データを月単位のア...
回答  kobasan  - 05/7/22(金) 0:56 -

引用なし
パスワード
   ▼nossori さん 今晩は

>この表の7月のRange("A4")をアクティブセルにして、関連のブックからデータを取り出して、貼り付けるマクロにしたく思っています。このA4のセルを指定したいのですが、どのようにしたら良いのでしょうか。また、その次には8月のRange("E4")をアクティブにしてデータを貼り付けることにも使えて、毎月のデータが順次アクティブセルを指定して貼り付けられるようにしたいんですが。
>
>元データは「売上一覧」の A3にあり、月が変わる時にそのデータが消され、翌月のデータスペースになるので、月末に消す前にこのような一覧表に貼り付けをして、データをT機単位に管理したく考えています。
>アクティブセルを活用しているのですが、7月の元データも8月の元データも、何時も このシートの「 A3 」に貼り付けられますが何処が問題なのでしょうか?教えていただきたくお願いします。
>

>
>Dim tBK As Workbook
>  
>  On Error Resume Next
>  Set tBK = Workbooks("BB売上集計と請求書発行.xls")
>  If Err Then


>    Set tBK = Workbooks.Open("U:\AA売上と請求\BB売上集計と請求書発行.xls")
’↑の行で、アクティブなブックがtBKになっています。

>  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,
                                ~~~~~~~~~~~~~~~
                                ’↑tbkのアクティブなセルです。
ActiveCell.Column
~~~~~~~~~~~~~~~~~~
’↑tbkのアクティブなセルです。
'===============================ここまで削除し、以下に置き換える

  Dim copy元 As Range


  Set copy元 = tBK.Worksheets("売上一覧").Range("A3", _
        Cells(Rows.Count, 1).End(xlUp)).Resize(, 3)
  
  With ThisWorkbook.Worksheets(1)
    If .Cells(3, 256).End(xlToLeft).Column < 3 Then
      copy元.Copy .Cells(3, 256).End(xlToLeft)
    Else
      copy元.Copy .Cells(3, 256).End(xlToLeft).Offset(0, 1)
    End If
  End With

'=====================ここまで
>  tBK.Close False
>  Set tBK = Nothing


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

これまで考える時間はありません。あしからず。
0 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 発言

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