エラー Nextに対するForがありませんについて
VBAに慣れていないのですが、下記のマクロを組んでみました。
実行すると、コンパイルエラー Nextに対するForがありませんと出てしまいました。
原因が良く解らないので解る方いらっしゃいましたら教えてください。
それと、もっと良い書き方などありましたらアドバイスを下さい。
よろしくお願いします。
Sub レポート作成2each()
Dim ReportMaxRow As Long '上方向に最終行を検索し行番号を格納
Dim AddWsName As String 'シート名格納
Dim Ws As Worksheet 'オブジェクト格納
Dim i As Long '繰り返しのカウントを格納
Dim flag As Boolean '真偽
ReportMaxRow = Worksheets("レポート元").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ReportMaxRow
If Cells(i, "N").Value <> "" Then
If Cells(i, "O").Value <> "" Then
AddWsName = Cells(i, "K").Value
For Each Ws In Worksheets
If Ws = AddWsName Then
flag = True
Next Ws ←ここでエラーになります。
If flag = True Then
Worksheets("レポート元").Cells(i, 1).EntireRow.Copy _
Destination:=Worksheets(AddWsName).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Else
Worksheets.Add
ActiveWorksheet.Name = AddWsName
Worksheets("レポート元").Cells(i, 1).EntireRow.Copy _
Destination:=Worksheets(AddWsName).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
MsgBox i + "行目の発注数の入力がませんでした。" & vbNewLine & "処理を中断します, _
vbOKOnly + vbExclamation, "お知らせ"
End If
Else
MsgBox i + "行目の発注数の入力がませんでした。" & vbNewLine & "処理を中断します", _
vbOKOnly + vbExclamation, "お知らせ"
End If
Next i
End Sub
お礼
過去に同じような質問があったのですね ありがとうございました