|
こんにちは^^ 横から失礼します。
>住所・社名を「行のタイトル」として設定はできないのでしょうか?
>できるのであれば、設定してしまえば今のままで実現できるかと思います。
あ〜これがOKなら、15行目から、「補助2」のデータが入るみたいなので、
1行目〜14行目まで、「行のタイトルに」設定してしまえばいいですね!
ところで、itoさんのコードを拝見してて、気になったことが・・・
「With」の使い方ですが
With Worksheets("補助2") '受注台帳から抽出したA社の受注件数リスト
IngRow2 = Sheets("補助2").Range("A1").End(xlDown).Row
End With
ですと、Withの意味がないように思います。
With Worksheets("補助2")
IngRow2 = .Range("A1").End(xlDown).Row
End With
これでええんちゃうかな?
同じように、
With Worksheets("請求書")〜End Withで囲んでしまうなら、
Sheets("請求書").Cells(3, 2).Value = Sheets("補助6").Cells(j, 5).Value
部分の、「Sheets("請求書")」も必要ないですよね?
あと、まず、「補助6」のデータを1データ転記→「補助2」のデータをループで回して、全部転記→そこで、印刷。
そして、「補助6」のデータが複数あるなら、またループで戻り、2データ目にはいりますが、その時「補助2」のデータは、常に同じデータになりますよね??
それでええんですか?
それから
Sheets("請求書").Cells(i + 13, 1).Value = Sheets("補助2").Cells(i, 1).Value
Sheets("請求書").Cells(i + 13, 1).Value = Sheets("補助2").Cells(i, 2).Value
は、書き間違いかな・・と思うけど、Cells(i + 13, 1)のデータが上書きされちゃいますね。
もひとつ、「補助6」のA列には例えば通しナンバーなどが入ってるんですよね?
もし、空白なら、A列で最終行を取得してるので、データなしになっちゃいます。
私なりに質問を読んで、疑問に思ったことを書きましたが、私の思い違いだったらごめんなさい。(あまり読解力がないので^^;;;)
|
|