Sub 入力()
If Sheets("入力").Range("D3").Value = "" Then
MsgBox "客先名を入力して下さい"
Else
Dim K最終行 As Long
Dim T最終行 As Long
Dim i As Integer
With Sheets("入力")
For i = 3 To 12
If .Cells(i, "H").Value <> "" Then
U最終行 = Sheets("注文書").Range("G65536").End(xlUp).Row + 1
If U最終行 = 461 Then
MsgBox "注文書がいっぱいです"
Exit Sub
Else
End If
E最終行 = Sheets("営業確認").Range("G65536").End(xlUp).Row + 1
Sheets("営業確認").Range("k" & E最終行).Value = .Cells(i, "b").Value
Sheets("営業確認").Range("b" & E最終行).Value = .Cells(i, "c").Value
Sheets("営業確認").Range("c" & E最終行).Value = .Cells(i, "d").Value
Sheets("営業確認").Range("d" & E最終行).Value = .Cells(i, "e").Value
Sheets("営業確認").Range("g" & E最終行).Value = .Cells(i, "h").Value
Sheets("営業確認").Range("f" & E最終行).Value = .Cells(i, "i").Value
Sheets("営業確認").Range("i" & E最終行).Value = .Cells(i, "m").Value
Sheets("営業確認").Range("h" & E最終行).Value = .Cells(i, "p").Value
Else
End If
Select Case .Cells(i, "o").Value
Case "北"
K最終行 = Sheets("北").Range("h65536").End(xlUp).Row + 1
Sheets("北").Range("B" & K最終行).Value = .Cells(3, "C").Value
Sheets("北").Range("c" & K最終行).Value = .Cells(3, "b").Value
Case "中"
T最終行 = Sheets("中").Range("H65536").End(xlUp).Row + 1
Sheets("中").Range("b" & T最終行).Value = .Cells(3, "c").Value
Sheets("中").Range("c" & T最終行).Value = .Cells(3, "b").Value
End Select
Exit Sub
Dim Dummy As Worksheet
Dim SheetName As String
Dim OTA As Long
Dim GEN As Long
Dim SheetName2 As String
With Sheets("入力")
'3行目~22行目まで
For j = 3 To 22
SheetName = Sheets("入力").Range("D3").Value
On Error Resume Next
Set Dummy = Sheets(SheetName)
SheetName2 = .Cells(i, 14).Value
'もしシートがあれば・・・
If Err.Number = 0 Then
'SheetName2は入力シートのN行
SheetName2 = .Cells(i, 14).Value
OTA = Sheets(SheetName2).Range("B65536").End(xlUp).Row + 1
Sheets(SheetName2).Range("A7").Value = .Cells(3, "D").Value
Sheets(SheetName2).Range("C3").Value = .Cells(3, "C").Value
Sheets(SheetName2).Range("B" & OTA).Value = .Cells(i, "H").Value
Sheets(SheetName2).Range("I" & OTA).Value = .Cells(i, "I").Value
Sheets(SheetName2).Range("F" & OTA).Value = .Cells(i, "K").Value
Sheets(SheetName2).Range("H" & OTA).Value = .Cells(i, "L").Value
Sheets(SheetName2).Range("J" & OTA).Value = .Cells(i, "M").Value
'シートが無ければ・・・
Else
GEN = Sheets("原紙").Range("B65536").End(xlUp).Row + 1
Sheets("原紙").Range("A7").Value = .Cells(3, "D").Value
Sheets("原紙").Range("C3").Value = .Cells(3, "C").Value
Sheets("原紙").Range("B" & GEN).Value = .Cells(i, "H").Value
Sheets("原紙").Range("I" & GEN).Value = .Cells(i, "I").Value
Sheets("原紙").Range("F" & GEN).Value = .Cells(i, "K").Value
Sheets("原紙").Range("H" & GEN).Value = .Cells(i, "L").Value
Sheets("原紙").Range("J" & GEN).Value = .Cells(i, "M").Value
'原紙をコピーする
Sheets("原紙").Copy BEFORE:=Sheets(1)
'シートの名前を市場コードにする
Sheets(1).Name = SheetName
Next
End With
Exit Sub
On Error GoTo 0
Sheets("原紙").Select
Range("C3:E3,A7,B16:B35,F16:F35,H16:J35").Select
Range("H35").Activate
Selection.ClearContents
Sheets("入力").Select
Sheets("入力").Range("D3,G3:J12,L3:M12").Value = ""
Sheets("入力").Range("D3").Select
Range("B3").Formula = "=IF(D3="""","""",VLOOKUP(D3,'\\Seika-sv01\支店共有\マーケティング用\[担当者リスト.xls]リスト形式'!$B:$D,3,FALSE))"
MsgBox "入力が完了しました"
End If
End Sub
上記のようにマクロを組みましたがエラーが出てしまいます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストボックスの番号を使っ...
-
エクセルVBA テキストボックス...
-
Windowsのアプリ開発ってなんの...
-
入力フォームの値をQRコードで...
-
DataGridViewの桁数制限に関して
-
TextBoxから数字が文字...
-
初歩的な事だと思います。 Sub...
-
EXCEL VBA で指定した範囲に入...
-
入力フォームへ、データを自動...
-
教えて!全角文字「μ」の半角
-
Excel-VBAでInputBox+Pulldown...
-
excel vba でユーザーフォーム...
-
アルファベットGの小文字の入力
-
エディットボックスの入力制限...
-
検索窓とcssハックについて
-
数字以外の入力をエラーにする...
-
VBAでInputBoxの再入力をさせる...
-
オンライン数式文書作成サイトm...
-
フォームの入力項目に全角文字...
-
VBAで質問があります
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
Excel-VBAでInputBox+Pulldown...
-
数字以外の入力をエラーにする...
-
excel vba でユーザーフォーム...
-
初歩的な事だと思います。 Sub...
-
TextBoxから数字が文字...
-
EXCEL VBA で指定した範囲に入...
-
VBAでInputBoxの再入力をさせる...
-
c#でTextBoxの入力制限
-
VBA R1C1形式で変数の入力について
-
入力フォームの値をQRコードで...
-
VBAの質問です、複数のテキスト...
-
DataGridViewの桁数制限に関して
-
教えて!全角文字「μ」の半角
-
「イ分」・・・フンという文字...
-
複数行の入力を受け取る方法
-
エディットボックスの入力制限...
-
accessで該当するレコードがな...
-
ExcelVBAのユーザーフォームで...
おすすめ情報