別のブック内の行を追加するセルをコピーする

Question

したがって、あるブックからA1、B2、C3のセルをコピーし、列A、B、Cの論文値を持つ別のワークブック（最後の行）に行を追加する必要があります。

これまでのところ、私は近くにいると思いますが、私は終わりはできません。 私はこの構文を使用していただきました！間違ってない考えhavoない "LASTROW = wNew.Cellsセットを。（Rows.Count、 "A"）。終了（xlUp）.Row + 1" 問題

Sub Botão1_Clique() 

Dim wks As Worksheet 
Dim wNew As Worksheet 
Dim y As Workbook 
Dim lastrow As Long 

Application.ScreenUpdating = False 
Set wks = ActiveSheet 

Set y = Workbooks.Open("Y:\teste.xlsx") 

Set wNew = y.Sheets("GERAL") 

Set lastrow = wNew.Cells.(Rows.Count, "A").End(xlUp).Row + 1 


wks.Cells(1, 1).Copy 
wNew.Cells(lastrow, 1).PasteSpecial Paste:=xlPasteValues 
wks.Cells(2, 2).Copy 
wNew.Cells(lastrow, 2).PasteSpecial Paste:=xlPasteValues 
wks.Cells(3, 3).Copy 
wNew.Cells(lastrow, 3).PasteSpecial Paste:=xlPasteValues 



    Application.ScreenUpdating = True 


End Sub 

するseens私はまた、Yを閉鎖したいと思います：teste.xlsxワークブック\、そしてあなたが適切にWorkbooksとWorksheetsを参照する良い仕事をするだけでなく、あなたが完全にCellsとRowsを修飾することを確認してください

Answer 1

を「行が追加」というメッセージが表示されます。それらはワークシートオブジェクトのプロパティである。 ThisWorkbook.Worksheets("..").Rows

Sub Botão1_Clique() 
    Dim wks As Worksheet, wNew As Worksheet 
    Dim y As Workbook 
    Dim lastrow As Long 

    Application.ScreenUpdating = False 

    Set wks = ActiveSheet 
    Set y = Workbooks.Open("Y:\teste.xlsx") 
    Set wNew = y.Sheets("GERAL") 

    With wNew 
     lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 
     .Cells(lastrow, 1).Value = wks.Cells(1, 1) 
     .Cells(lastrow, 2).Value = wks.Cells(2, 2) 
     .Cells(lastrow, 3).Value = wks.Cells(3, 3) 
    End With 

    'extra code as requested   
    y.Close True 'save changes if TRUE 
    MsgBox "ROW ADDED" 

    Application.ScreenUpdating = True 
End Sub