|
こんにちは。かみちゃん です。
>エラーは出なくなりましたが、
>次の検索にいってくれなくなりました・・・。
以下のようなデータですと、以下のようなコードで問題なく動いています。
A B C
1 区分
2 新規
3 ××
4 新規
5
Sub Sample()
Dim c2 As Range
Dim firstAddress As String
Set c2 = Sheets("カウンター数一覧").Columns("A").Find(what:="新規", lookat:=xlWhole)
If Not c2 Is Nothing Then
firstAddress = c2.Address
Do
Range(c2.Address).Select
UserForm1.Show
' Set c2 = Sheets("カウンター数一覧").Columns("A").FindNext(c2)
' Loop While Not c2 Is Nothing And c2.Address <> firstAddress
Set c2 = Sheets("カウンター数一覧").Columns("A").FindNext(c2)
If c2 Is Nothing Then Exit Do
Loop Until c2.Address = firstAddress
Else
MsgBox "新規のお客様はいません。"
End If
End Sub
どこか、違うところがあるのではないでしょうか?
|
|