|
こんにちは。かみちゃん です。
>>H列の値が入っている最終行を求めるのだから、
>>.Cells(Rows.Count, 8).End(xlUp)
>>ですよね?
>>では、
>>If .Cells(Rows.Count, 2).End(xlUp).Row > 3 Then
>>は、何の判断をしていると思いますか?
>
>With ws1
> If .Cells(Rows.Count, 8).End(xlUp).Row > 3 Then
>H列だから8としてみたんですけどこれではうまく行かないんですね・・・。
何がどのようにうまくいかないのでしょうか?
> 店所情報.xlsのH列に何も書かれていないとH列にどうしても題字が入ってきて
H列には3行目より下には値は入っていないのですよね?
逆に、H列の最終行が3より大きければ、転記処理をするというコードにしているのですが・・・
> .Row >3 に3とは何をさしているんでしょうか。
Rowプロパティの意味わかっていますか?
あせる気持ちはわかりますが、わからないなら、ヘルプを調べましょう。
MsgBox Range("H3").Row
MsgBox Range("H100").Row
MsgBox Range("H65536").Row
>ありがとうございます。基礎がないのでなかなか難しくて困っています。
マクロの記録で記録してみるのもひとつのなのですが、
以下のURLが参考になりますでしょうか?
http://www.moug.net/skillup/nksw/nksw01-01.htm
(※最初の4文字は半角にしてください。)
>>それであれば、対応は、まったく変わります。
>>
>>Workbooks("集約表.xls").ActiveSheet.Range("B6")
>>の部分を
>>Workbooks("集約表.xls").ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(1)
>>とします。
>>なお、このコードにすると、H18年度店所情報.xlsを転記したあとに、
>>再度、H18年度店所情報.xlsを転記することはできません。
>>エラーが起こるわけではないですが、二重転記になりますので、十分注意してください。
>>(そういう考えがなくなったということのようですが、心配です)
>
>ご心配ありがとうございます。
>現在は今のコードのまま完成まで行きたいと思っています。
今のコードでは、H19年度店所情報.xlsのデータを転記しようとすると、
転記済みのH18年度店所情報.xlsが上書きされますよ。
それを回避するためには、上記のようにすればいいです。
ただし、これにするためには、使用上の注意事項があるということです。
>質問のお答えですが、
>現在転記しているのは、H18店所情報です。
>4月1日以降はH19店所情報より取り込みます。
私に答えられても困ります。
それをExcelに教えてあげてください。
それが「ない」からできないと、申し上げているのです。
|
|