「Sub 個別印刷()」でオブジェクトが必要です (エラー 424)の解決策をご教示ください。
「立会者シート」に入力した日別データ(5~14行目)を、立会者氏名(C列)を基準に「入館届シート」に複写して印刷します。
(立会者シート)
4行目 番号(A列) 立会日(B列) 立会者(C列) 同伴者1(D列) 同伴者2(E列)
5行目
6行目
「Sub 一括印刷()」は問題なくできるのですが、特定の番号のみを個別印刷する「Sub 個別印刷()」では、★印の箇所で”オブジェクトが必要です (エラー 424)”となります。解決策をご教示ください。
Sub 一括印刷()
Dim i As Long
For i = 5 To 14
If Worksheets("立会者").Cells(i, 3).Value <> "" Then
Worksheets("入館届").Cells(4, 11).Resize(, 4).Value = Sheets("立会者").Cells(i, 2).Resize(, 4).Value
Worksheets("入館届").PrintOut copies:=1
End If
Next
End Sub
Sub 個別印刷()
Dim n As Variant
Dim foundcell As Variant
For Each n In Split(InputBox("印刷する立会日の番号を入力して下さい" _
& vbCrLf & vbCrLf & "複数の場合は番号をカンマで区切って下さい"), ",")
Worksheets("立会者").Select
Set foundcell = Range("A5:A14").Find(n, after:=Range("A14"), lookat:=xlWhole)
If foundcell Is Nothing Then
MsgBox "番号が見つかりません。"
Else
★Worksheets("入館届").Cells(4, 11).Resize(, 4).Value = _
★Worksheets("立会者").Range("B4:E4").Offset(foundsell.Row - 4).Value
Worksheets("入館届").PrintOut copies:=1
End If
Next n
End Sub
No.2ベストアンサー
- 回答日時:
・・・Offset(foundsell.Row - 4)・・・
foundcell が正しいような気がする!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
VBAで Set wb = Sheets(1).Copyができないわけ?
PowerPoint(パワーポイント)
-
セルのコピーで「オブジェクトが必要です。」
Visual Basic(VBA)
-
(初心者です)VBAについて。「実行時エラー424、オブジェクトが必要です」について
Visual Basic(VBA)
-
-
4
VBAのエラーについて、”実行時エラー424オブジェクトが必要です”
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
イベントプロシージャ 印刷が...
-
VB.NETで罫線付きのデータを印...
-
印刷ダイアログを表示させたくない
-
2回以上PDFをコピーや印刷がで...
-
ActiveReportsを使って[印刷ダ...
-
プリンターを指定して印刷するには
-
違うフォーマットの宛名印刷
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
ミニチュアCDの作り方を教えて...
-
グーグルマップのV3で地図をプ...
-
~の文字化けについて
-
プリンタの印刷ジョブを削除し...
-
数式が消える
-
vba 時間の引き算 例えば 15:00...
-
Windows10のVBAでDirectX 8が使...
-
「読み込み違反」が起きたとき...
-
matplotlibで任意の角度の円弧...
-
WinSCPで画像のように puttyを...
-
秒数を入力すると○時間○分○秒と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
ACCESSで設定した帳票の用紙サ...
-
vbaでPDFファイルが印刷されない
-
プリンターを指定して印刷するには
-
印刷ダイアログを表示させたくない
-
VBAで不特定枚数印刷をしたいで...
-
VBAにて指定したセルをプルダウ...
-
VB.NET+ActiveReports で印刷...
-
ActiveReportsを使って[印刷ダ...
-
VBscriptでPDFファイルを直接印...
-
webページの印刷制限について
-
PDFファイルを印刷し終了するには
-
イベントプロシージャ 印刷が...
-
クリレポのプリンタ設定について
-
両面印刷設定方法について
-
ファイルのパス指定での印刷方法
-
Accessフォームで全レコードを...
-
VBSでExcelファイル印刷時のプ...
-
VBAで印刷スプール終了の判定を...
おすすめ情報