|
色々アドバイス頂き本当に有難うございます。
>保存するデータは、この2つの値だけでしょうか?
保存するデータは全部で136個で"伝票一覧"セルA〜セルEFまであります。
それに対する"確認表"の元データーは色々なセルに散乱しています。
> With Worksheets("伝票一覧")
> .Range("A65536").End(xlUp).Offset(1, 0).Value = Worksheets("確認表").Range("K5").Value
> .Range("B65536").End(xlUp).Offset(1, 0).Value = Worksheets("確認表").Range("D7").Value
> End With
↑はい!試したところ、確かに重複なしに入力できました。
しかし、一つ最後に問題が・・・
"伝票一覧"A1には"確認表"にある[伝票番号]が入力される設定になっているから
これは確実に毎回入力されるのですが、その他で空白であるセルの時もあるので
す。
その場合このプログラムでは空いたセルに入力させるので、そこが困っています。
[伝票番号]が入力されている"伝票一覧"A列に対して同じ行に入力される方法が
あれば、完成しますので、本当に助かります。
ホントに宜しくお願いします。m(_ _)m
|
|