|
▼ハト さん:
ありがとうございます。
最初に、質問の投稿に記入ミスがありましたので、変更しておきます。
Worksheets("B").Cells(伝票, 1) = Range("B2")
↓
Worksheets("A").Cells(伝票, 1) = Range("B2")
>シートAの値を空白かチェックしたいのであれば
>
>Worksheets("A").Range("B2")
>
>のようにどこのシートなのかを明確にする書き方にした方がよろしいかと思います
>それと大きく勘違いなされているのは
>
>『セルが空白』のチェックは
>
> If Range("B2") <> "" Then
> '空白ではない
>
>です
本当に初心者で、
あまり理解できていなくてすみません。。
教えていただいたのを
下記のようにしてみたところ、
Worksheets("伝票7").Range ("B2")
のところで、
「オブジェクトはこのプロパティまたはメソッドをサポートしていません」
となりました。
どう変更すればよろしいでしょうか?
Sub 発行()
Worksheets("A").range("B2")
For 伝票 = 1 To 10
Worksheets("A").Cells(伝票, 1) = Range("B2")
If Range("B2") <> "" Then
印刷
End If
Next 伝票
End Sub
|
|