|
かみちゃん様
>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としてみたんですけどこれではうまく行かないんですね・・・。
.Row >3 に3とは何をさしているんでしょうか。
.Range("H3", .Cells(Rows.Count, 8).End(xlUp)).Resize(, 1).Copy _
Workbooks("故障一覧表.xls").ActiveSheet.Range("E2")
End If
>答えをサラッと書くのは簡単ですが、今後勉強されるのであれば、vangさんのためになりません。
>よく使う処理なので、ぜひきちんと理解していただきたいのです。
ありがとうございます。基礎がないのでなかなか難しくて困っています。
結局今日は完成しそうにありません。
>>難しいコードを組まなくてはならないようなので
>>以前のような考えはなくなりました。
>
>それであれば、対応は、まったく変わります。
>
>Workbooks("集約表.xls").ActiveSheet.Range("B6")
>の部分を
>Workbooks("集約表.xls").ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(1)
>とします。
>なお、このコードにすると、H18年度店所情報.xlsを転記したあとに、
>再度、H18年度店所情報.xlsを転記することはできません。
>エラーが起こるわけではないですが、二重転記になりますので、十分注意してください。
>(そういう考えがなくなったということのようですが、心配です)
ご心配ありがとうございます。
現在は今のコードのまま完成まで行きたいと思っています。
>難しいですか?
>Excelが泣いていますよ。
>今、集約表.xlsに転記されているのは、H18?H19?
>これから転記されてくる店所情報.xlsは、H18?H19?
>これから転記されるのは、ファイル名で判断できるけど、転記されているのは、わからないなぁ〜(Excel談)
まだフラグをどのように使っていいかも分かっていないので、
現在は今作っている何回も上書されるようなコードで進めたいと思います。
質問のお答えですが、
現在転記しているのは、H18店所情報です。
4月1日以降はH19店所情報より取り込みます。
|
|