|
▼かみちゃん さん:
説明が足りず、すみません。
このように入っています。
CommandButton2(キャンセル)を押すと、
次の検索がされ、ユーザーフォームが表示されます。
CommandButton1(実行)を押すと、
次の検索がされず、とまってしまいます。
という意味です。
Private Sub CommandButton2_Click()
unload me
end sub
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
Unload Me
End Sub
|
|