|
お返事ありがとうございました。
早速、試してみました。
B5へ貼り付けるところでエラーになってしまい、「オブジェクトは金プロパティまたはメソッドをサポートしていません」となってしまいます。
再度、ご教授下さい。
原因は、 |
↓ですか?
With WB.Worksheets("管理表マスター")'原因はここですか?
If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
Da1 = Format(Me.TextBox1.Value, .Range("BG6").NumberFormat)
Da2 = Format(Me.TextBox2.Value, .Range("BG6").NumberFormat)
If .AutoFilterMode = False Then
.Range("M3:BG3").AutoFilter
End If
With .Range("M3:BG" & r2)
.AutoFilter field:=47, Criteria1:=">=" & Da1, Operator:=xlAnd, _
Criteria2:="<=" & Da2
.AutoFilter field:=1, Criteria1:="=保守*"
If WB.Worksheets("管理表マスター").Range("M65536").End(xlUp).Row > 4 Then
.Range("B4:K" & r2).SpecialCells(xlCellTypeVisible).Copy
ThisWorkbook.Worksheets("保守期限一覧表").Range ("B5")'ここでエラー
.PasteSpecial xlValues
.Range("M4:W" & r2).SpecialCells(xlCellTypeVisible).Copy
ThisWorkbook.Worksheets("保守期限一覧表").Range ("L5")
.PasteSpecial xlValues
.Range("AZ4:BU" & r2).SpecialCells(xlCellTypeVisible).Copy
ThisWorkbook.Worksheets("保守期限一覧表").Range ("W5")
.PasteSpecial xlValues
Application.CutCopyMode = False
Else
MsgBox "抽出データはありません", vbInformation
End If
WB.Worksheets("管理表マスター").AutoFilterMode = False
End With
Else
MsgBox "入力された値が日付として確認できませんでした", vbInformation
End If
End With
|
|