Excel VBA質問箱 IV

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

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


54649 / 76738 ←次へ | 前へ→

【26875】Re:ブックの異なる元データを月単位のア...
質問  nossori  - 05/7/22(金) 7:57 -

引用なし
パスワード
   ▼kobasan さん:

おはようございます。

よく分かりました。ありがとうございます。

offset(,1)で合っていると思いましたが。
何故か?offset(,2)にしないと定位置に入りませんでした。
一行空けですので・・・「1」の指定でよいと思うのですが。

この下のset以降は勉強になりました。

>  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 発言

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