ユーザーフォームトラッカーV1.3

Question

私を助けてください、次のプログラムは、私は1つのブックからデータをコピーして別のブックに貼り付けしようとしていますが、私はすべて試したエラーオブジェクトはこのプロパティまたはメソッド

をサポートしていません提供します私の知識と結果なしで終わった。

Private Sub cmbsendmail_Click() 
'Application.Visible = False 
'ThisWorkbook.Save 
'Dim copyd As String 

Dim mydata As String 
Dim mypath As String 
Dim tfile As String 
Dim wbkwo1 As Workbook 
Dim wbkwo2 As Workbook 
Dim bname As String 
Dim Tdate As Date 

Workbooks.Open Filename:="C:\Users\Admin\Desktop\Work\Automated.xlsx" 

'data location & range to copy 
bname = "Nagarjun B" 
Range("A5").Formula = "=Today()-1" 
Tdate = Range("A5").Value 
Range("6:6").Select 
Selection.AutoFilter 
Range("A6").AutoFilter Field:=2, Operator:= _ 
     xlFilterValues, Criteria1:="Nagarjun B", visibledropdown:=False 
    Cells.Find(What:=Tdate, LookIn:=xlFormulas, _ 
     LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
     MatchCase:=False, SearchFormat:=False).Activate 
ActiveCell.Offset(0, 1).Select 
ActiveCell.Offset(0, 1).Select 
    ActiveCell.Paste 
    Application.CutCopyMode = False 
ThisWorkbook.Save 
wbkwo1.Close 
Range("C10:AH10").ClearContents 
Unload UserForm2 
Unload UserForm1 
End Sub 

エラーがAutoFilterラインであるかもしれないよう Nagarjun B

Answer 1

が見える事前にお願いします。

Range("A6").AutoFilter Field:=2, Operator:= _ 
    xlFilterValues, Criteria1:="Nagarjun B", visibledropdown:=False 
Cells.Find(What:=Tdate, LookIn:=xlFormulas, _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 

まず問題はvisibledropdwn:=False後に行を継続するVBAを伝えるために何, _がないことです。 第2の問題は、をCells.Find...の前に置き、Cells.FindメソッドをCriteria2パラメータとして使用するようにVBAに指示する必要があることです。