「DO LOOP」についての質問です。VBA初心者です。

質問

「DO LOOP」についての質問です。VBA初心者です。

昨日同じ質問をさせていただきましたが、私の質問がきちんと書かれていなかったせいで
皆様にご迷惑をおかけしてしまいましたm(_ _；)m
きちんと伝わるように訂正して再度質問させていただいてます。

『入力画面』というシートに日付を入力してマクロ実行すると
『入力画面』の右隣りにその日付名のシートが新しく作られるように設定しています。
入力する日は不定期で連続した日付ではありません。

それでお聞きしたいのは、新しく作成するシートのB列に複数の名前を入力した後、
その名前をキーに右隣のシートから一つずつ検索していって、一致するものがあれば
同じ行のN列とP列の値を新しいシートのK列とM列に取得しループ終了。
もしくは全てのシートを検索しても一致するものがなければゼロ表示でループ終了。

という作業をしたいんですが、構文がどのように作ればいいのかがわかりません。
お手数ですが、どうかご教授願います。

回答No.3

mt2008 · ベストアンサー

No.1です。
添付の図の様なイメージだったんですけど何か勘違いしています？

> あと、B列に空白行もある場合があるんですが、空白があるとループが終わってしまいますか？

はい、サンプルはアクティブシートのB1から空白行までループを回します。
空白ありで最終行までループを回すのでしたらnNameのループの箇所を修正してください。

For nName = 1 To Range("B1").End(xlDown).Row
↓
For nName = 1 To Cells(Rows.Count, 2).End(xlUp).Row

お礼

できました!!《*≧∀≦》

B1の箇所をB5に変えただけで出来ましたほんとーに有難うございましたm(_ _)m

回答No.2

mt2008

No.1です。

> 早速試してみました。ですが、エラーメッセージ等は出ませんし
> 実行も中断されている様子も無いのですが何の変動もありません。

・サンプルマクロでは、右側にシートが無い場合は何も行いません。
・B1から空白行のある所まで「名前」が入っているとしてみていますB1が空白では駄目です。
・もしかして「名前」って値ではなく「名前定義」の事ですか？

VBE画面でF8を押して一行づつステップ実行し、どこがおかしいのか確認してみてください。

お礼

「名前」という値ではなく、「中村」や「田中」といった名前です。
大変失礼いたしました。
「名前」が無かったから変動が無かったかもしれませんね(ノω=;)。。。

あと、B列に空白行もある場合があるんですが、空白があるとループが終わってしまいますか？

F8を押すと一行ずつ実行していくんですね。
初めて知りました。今後役立ちそうです。

有難うゴザイマス。

回答No.1

mt2008

こういう事でしょうか？

Sub Sample()

　Dim nCount, nActSheet, nName, nSheet
　Dim sTargetName

　nActSheet = ActiveSheet.Index
　nCount = Worksheets.Count
　If nCount <= nActSheet Then Exit Sub '右にシートが無ければ終了

　'アクティブシートのB列の値を検査「名前」とする
　For nName = 1 To Range("B1").End(xlDown).Row
　　sTargetName = Sheets(nActSheet).Range("B" & nName)

　　'右側のシートを１シートづつ検査対象シートとする
　　For nSheet = (nActSheet + 1) To nCount

　　　　'検査対象シートのB列に検査「名前」があるか確認
　　　　If Application.WorksheetFunction.CountIf(Worksheets(nSheet).Range("B:B"), sTargetName) > 0 Then
　　　　　'「名前」があればN、P列の値をアクティブシートのK、M列に入れる
　　　　　With Worksheets(nSheet)
　　　　　　nRow = Application.WorksheetFunction.Match(sTargetName, .Range("B:B"), 0)
　　　　　　Range("K" & nName) = .Range("N" & nRow)
　　　　　　Range("M" & nName) = .Range("P" & nRow)
　　　　　End With
　　　　　Exit For '１つ見つかったらその「名前」の検査は終了
　　　　End If
　　Next nSheet
　Next nName
End Sub

お礼

回答有難うございます。

早速試してみました。ですが、エラーメッセージ等は出ませんし
実行も中断されている様子も無いのですが何の変動もありません。
キーとなる名前はコピペしたので間違ってはいないです。

頂いた文を参考時に何か抜けている所がないか自分でも勉強してみます。