vbaにて、オブジェクトエラー

質問

ただいまvbaで、ユーザーフォームとテキストボックスを用いて、数字のからまで、でフィルタリングするvbaをつくっています。

オブジェクトエラーがでてしまうのですが、
ちゃんとsetを入れているのになぜ出てしまうのでしょうか？

また、その他何かご指摘あればいただきたいです。

何卒宜しくお願い致します。

Sub 集計開始()

Dim drng As Range
Dim kara As String, made As String
Dim cnt As Long
ActiveSheet.AutoFilterMode = False
Set drng = Range("A1").CurrentRegion
kara = Val(usetform1.TextBox1.Text)
made = Val(usetform1.TextBox2.Text)

If kara <> "" And made = "" Then
drng.Worksheets("●●●").AutoFilter Field:=15, Criterial1:=">=" & kara
ElseIf kara = "" And made <> "" Then
drng.Worksheets("●●●").AutoFilter Field:=15, Criterial1:="<=" & made
ElseIf kara <> "" And made <> "" Then
drng.Worksheets("kwzweb").AutoFilter Field:=15, Criterial1:=">=" & kara, _
Operator:=xlAnd, Criteria2:="<=" & made

Else
MsgBox "数字を入力してください"

Exit Sub

End If

End Sub

回答No.2

imogasi · ベストアンサー

・UserForm1のスペルミス間違い
・Criteria1のスペルミス
こういう公のところに質問するのだから、スペルミスぐらい早く気づいてよ。
実行すると、それらの箇所に黄色指摘が出るでしょう。
＝＝
それに、私ならこうする案を以下に。
全般の流れが理解できてないのでは？
その全般の流れの説明がなされていないが、根本はそこにあるはず。
ーー
・ユーザーフォームを１つ設ける
・そこにテキストボックスを２つとコマンドボタンを１つ設ける
（２つのテキストボックスに数字を入れて、コマンドボタンをクリックする仕組み）
・コマンドボタンのクリックイベントに
Private Sub CommandButton1_Click()
MsgBox (UserForm1.TextBox1.Text)
MsgBox (UserForm1.TextBox2.Text)
集計開始
End Sub
ーー
標準モジュールに
下記はデータがSheet1のA,B列にありA1:B１５
（下記のように質問を改作）
データ例
項目 数量
a1 11
a2 12
a3 13
a4 14
a5 15
a6 16
a7 17
a8 18
a9 19
a10 20
a11 21
a12 22
a13 23
a14 24
ーーー
Sub 集計開始()

Dim drng As Range
Dim kara As String, made As String
Dim cnt As Long

Set drng = Range("A1").CurrentRegion
drng.AutoFilter
'MsgBox drng.Address
kara = Val(UserForm1.TextBox1.Text)
made = Val(UserForm1.TextBox2.Text)

If kara <> "" And made = "" Then
drng.Worksheets("Sheet1").AutoFilter Field:=2, Criteria1:=">=" & kara
ElseIf kara = "" And made <> "" Then
drng.Worksheets("Sheet1").AutoFilter Field:=2, Criteria1:="<=" & made
ElseIf kara <> "" And made <> "" Then
drng.AutoFilter Field:=2, Criteria1:=">=" & kara, Operator:=xlAnd, Criteria2:="<=" & made
Else
MsgBox "数字を入力してください"
End If
Exit Sub
End Sub
ーー
時間が掛かって、「から」「まで」を両方とも入れるケースしかテストしてない、後免。

お礼

丁寧に教えていただきありがとうございました！

回答No.1

MT765

ちょっとずれた回答ですがユーザーフォーム名デフォルトで使ってらっしゃるならValの後ろusetform1となっておりますがUserForm1ではないでしょうか。

お礼

ありがとうございます！
修正しましたら、また別のエラーで動きませんでした。