vba 型が一致しない
ExcelのVBAで特定の文字の最終行と最初の行を探す方法で、file.xlsmのデータから範囲してtbl_data.xlsファイルにデータを貼り付けるVBAですが、このコードだと型が一致しないとエラーが表示されます。
どのように修正すればいいでしょうか。
Sub try()
Dim r As range
Dim rr As range
Dim aju As range
Dim ajuu As range
Dim aku As range
Dim akuu As range
Set r = Columns("D").Find("T140420001", After:=range("D" & Rows.Count))
Set rr = Columns("D").Find("T140420001", After:=r, SearchDirection:=2)
Set aju = Columns("AJ").Find("Upper13", After:=range("AJ" & Rows.Count))
Set ajuu = Columns("AJ").Find("Upper13", After:=aju, SearchDirection:=2)
Set aku = Columns("AK").Find("Lower13", After:=range("AK" & Rows.Count))
Set akuu = Columns("AK").Find("Lower13", After:=aku, SearchDirection:=2)
range(r, rr).Select
range(aju, ajuu).Select
range(aku, akuu).Select
Windows("file.xlsm").Activate
range("AD7:AE16").Select
Selection.Copy
Workbooks("tbl_data.xls").Activate
ActiveWindow.SmallScroll Down:=-3
range(Cells(r.Row, aju.Column), Cells(rr.Row, akuu.Column)).Select '変更範囲
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("file.xlsm").Activate
End Sub