Скопировать значение в другую книгу

Question

почему значение ячеек twb (i, 7) не отображается в extwb (pasterowIndex, 1)?

Вы можете сделать этот

twb.Sheets(1).Activate
Cells(i, 7).Select
Selection.Copy
extwb.Sheets(8).Activate
Cells(pasterowIndex, 1).Select
ActiveSheet.Paste

код немного простым, потому чтоУ меня есть много значения для копирования?

Sub historical()
    Dim twb As Workbook
    Dim extwb As Workbook
    Dim extwb3 As Worksheet
    Dim i As Long
    Dim pasterowIndex As Long
    pasterowIndex = 2

    Set twb = Workbooks.Open("C:\Users\faisal.abraham\Documents\Travel\PUPD.xlsx")
    Set extwb = Workbooks.Open("C:\Users\faisal.abraham\Documents\Travel\PIRD.xlsx")

    With twb.Sheets("Actuary_Travel_Voucher_Engineer")
        For i = 8 To Cells(Rows.Count, 1).End(xlUp).Row
            If twb.Cells(i, 23).Value = "PERMATA HIJAU  " And Cells(i, 28).Value = "PAID" Then
            twb.Sheets(1).Activate
            Cells(i, 7).Select
            Selection.Copy
            extwb.Sheets(8).Activate
            Cells(pasterowIndex, 1).Select
            ActiveSheet.Paste

            pasterowIndex = pasterowIndex + 1
            End If
        Next i

        pasterowIndex = 2
    End With
End Sub

Answer 1

Этот код

    twb.Sheets(1).Activate
Cells(i, 7).Select
Selection.Copy
extwb.Sheets(8).Activate
Cells(pasterowIndex, 1).Select
ActiveSheet.Paste

можно заменить на

 twb.Sheets(1).cells(i,7).copy extwb.sheets(8).cells(pasteindex,1)

, который не устраняет другие проблемы, но по крайней мере делает код менее болезненным