|
いつもお世話になっております。
以下のVBAを作ったのですが、
『Loop While Not c2 Is Nothing And c2.Address <> firstAddress』で
(オブジェクト変数または With ブロック変数が設定されていません。)の
エラーメッセージが出てしまいます。
userformの処理をすると
このメッセージがでて、なにもせず閉じると、思う通りになってくれます。
どこがいけないのでしょうか?
教えてください。
2007 vistaを使用しています。
Dim c() As Object
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
Else
MsgBox "新規のお客様はいません。"
End If
ユーザーフォーム上にはこちらを
Private Sub CommandButton1_Click()
Dim c() As Object
Set c3 = Sheets("カウンター数一覧").Columns("A") _
.Find(what:="○", after:=ActiveCell, SearchDirection:=xlPrevious)
Set c4 = Sheets("会社一覧").Columns("A") _
.Find(what:=c3.Offset(0, 1).Value, lookat:=xlWhole)
Sheets("会社一覧").Range(c4.row + 1 & ":" & c4.row + 1).Insert
Sheets("会社一覧").Cells(c4.row + 1, 1).Value = TextBox1.Value
Sheets("会社一覧").Cells(c4.row + 1, 2).Value = TextBox2.Value
Sheets("会社一覧").Cells(c4.row + 1, 3).Value = TextBox3.Value
Sheets("会社一覧").Cells(c4.row + 1, 4).Value = TextBox4.Value
Sheets("カウンター数一覧").Select
Unload Me
End Sub
|
|