Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "sheet1" Then
If Range("M1").Value = "" Then
Cancel = True
MsgBox ("名前を入力してください")
Range("M1").Select
Exit Sub
End If
ElseIf ActiveSheet.Name = "sheet2" Then
If Range("A47").Value = 文字 Then
Cancel = True
MsgBox ("日付を入力してください")
Range("A47").Select
Exit Sub
End If
Exit Sub
End If
End Sub
上記は印刷をする前に実行されるコードですが、上記を実行して印刷をした後に自動で下記のVBAを実行したいのですが
Sub データー取り込み()
ActiveSheet.Range("B2000:Z2000").Copy
ChDir "\\データーA\データーB\データーC\データーD"
Workbooks.Open Filename:="\\データーA\データーB\データーC\データーD\データーシート1.xls"
Sheets("顧客データー").Select
If Worksheets("顧客データー").Range("B18").Value = "" Then
Worksheets("顧客データー").Range("B18").PasteSpecial Paste:=xlPasteValues
Else
Worksheets("顧客データー").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues
End If
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
上記のコードと下記のコードをどのように絡めたらいいのかわかりません。アドバイスお願いします。
No.1ベストアンサー
- 回答日時:
以下の一行を
Private Sub Workbook_BeforePrint(Cancel As Boolean)
の最後(End Subの前)に挿入します。
Application.OnTime Now, "データー取り込み"
だけど、If Range("A47").Value = 文字 Then っておかしくないですか?
変数なのかな。
教えてもらったのでやってみたら、なんか上手くいきそうです。If Range("A47").Value = 文字 Then の文字の部分は僕も良くは判らないんですが多分関数がA47に反映されてる時(例えば=B5とか引っ張って日付をあらわす時で)""だと上手くいかないけど文字にすると大丈夫って言う感じでしょうか。アドバイス有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Excel(エクセル) VBA カゥントで数値の範囲を規制 1 2022/05/20 06:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで「3次元配列」表の...
-
顧客CDのCDって?
-
エクセルVBA テキストボックス検索
-
<新設税理士事務所です>ミロ...
-
お客さんの来店間隔が知りたい...
-
スプレッドシートの関数につい...
-
エクセルで並び替えするとハイ...
-
読み取ったQRコード/バーコード...
-
国内線航空券をJALのアプリにて...
-
EXCELでバーコードを作成すると...
-
ANAの2次元バーコードがスマホ...
-
バーコードに制御文字を入れる...
-
振込請求書が破れてしまいました
-
バーコードってダブらない?
-
Access97 バーコード 番号の非...
-
バーコードコントロールが印刷...
-
テプラ PRO SR530 バーコード...
-
エクセル バーコード作成で他の...
-
四次元バーコード
-
白くまくん
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
顧客CDのCDって?
-
<新設税理士事務所です>ミロ...
-
エクセルで「3次元配列」表の...
-
現在、日興証券で重大なトラブ...
-
VBA リストボックス反映できない
-
エクセルの数式で教えてください。
-
VBA。リストボックスの値を別の...
-
エクセルで並び替えするとハイ...
-
エクセルデータ。容量を減らす...
-
エクセルVBA テキストボックス検索
-
EXCELシート内の数字での並び替...
-
エクセルで顧客の継続率
-
データ型が一致しない?
-
顧客データと請求書、売上帳を...
-
こんなモノは作れますか?
-
Access クエリー Yes/No型の抽出
-
今繋がらない携帯番号の前の所...
-
アクセス ACCESS VBAで入力の...
-
事業内容に適した、見積・請求...
-
エクセルで一致する値を見つけ...
おすすめ情報