|
▼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でアラームを出したいのですが・・・何か良い方法は無いでしょうか。
>
>これまで考える時間はありません。あしからず。
考えてまた、ご質問するかも知れませんので、そのときはよろしくお願いします。
失礼します。御礼まで。
|
|