worksheets & rows メソッドは失敗しました。のエラー回避のやり方

いつもお世話になっております。



①　worksheetsメソッドは失敗しました。
LR = ThisWorkbook.Worksheets("B").Range("B" & Rows.Count).End(xlUp).Row

②　rowsメソッドは失敗しました。
With Workbooks("xx.xlsm").Worksheets("B").Range("B1").CurrentRegion
.AutoFilter field:=5, Criteria1:=">=" & ListBox3, Operator:=xlAnd, Criteria2:="<=" & ListBox4
End With


ThisWorkbook　Workbooks("xx.xlsm")をつけてもエラーになります。
ユーザーフォーム上にあるのでなにか付け加えないといけないのでしょぅか
いけないのでしょぅか



下記のコードをがあります。
AutoFilterMode = False
With Workbooks("xx.xlsm").Worksheets("B").Range("B1").CurrentRegion
.AutoFilter field:=5, Criteria1:=">=" & ListBox3, Operator:=xlAnd, Criteria2:="<=" & ListBox4

End With



With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
End With


With ListView1
.View = lvwReport
.FullRowSelect = True
.AllowColumnReorder = True
.Gridlines = True
.AllowColumnReorder = True
.CheckBoxes = True
.ForeColor = vbBlue

.ColumnHeaders.Add , , "NO", 70
.ColumnHeaders.Add , "B", "名前", 100
.ColumnHeaders.Add , "C", "性別", 50
.ColumnHeaders.Add , "D", "血液型", 50
.ColumnHeaders.Add , "F", "生年月日", 100

Dim LR As Long
LR = ThisWorkbook.Worksheets("B").Range("B" & Rows.Count).End(xlUp).Row 'B列最終行

For R = 2 To LR
If Rows(R).Hidden = False Then

With ListView1.ListItems.Add
.Text = Range("B" & R).Value
.SubItems(1) = Range("C" & R).Value
.SubItems(2) = Range("D" & R).Value
.SubItems(3) = Range("E" & R).Value
.SubItems(4) = Range("F" & R).Value


End With
End If
Next
End With

AutoFilterMode = False

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/06/07 16:04

こんにちは

エラー内容については、すべての情報が欲しい所ですね

①　通常エラーは発生しないと思いますが、アクティブなシートがBシート以外なら発生する可能性があるかも・・

使用環境状況が良く分からないので
LR = ThisWorkbook.Worksheets("B").Range("B" & ThisWorkbook.Worksheets("B").Rows.Count).End(xlUp).Row
や
LR = ThisWorkbook.Worksheets("B").Range("B1048576").End(xlUp).Row
で試してみてください

②rowsメソッド？
Range("B1").CurrentRegion　が成立していないか
.AutoFilter field:=5, Criteria1:=">=" & ListBox3, Operator:=xlAnd, Criteria2:="<=" & ListBox4　
field:=5が成立していないか、
各リストボックスの値でAutoFilterが成立していないか・・・
Workbooks("xx.xlsm").Worksheets("B").Range("B1").CurrentRegion.select
stop
で範囲を確認してみては？

いずれにしても　あてずっぽな回答になると思いますので
エラー番号、エラー内容を再度掲示する方が良いかと・・

この回答へのお礼

いつもありがとうございます。
早速ためしてみます

お礼日時：2022/06/07 16:09