title: Copy value to another workbook
body: <p>why twb cells(i,7) value don't show up in the extwb(pasterowIndex, 1)?</p>
  
  <p>can you make this </p>
  
  <pre><code>twb.Sheets(1).Activate
  Cells(i, 7).Select
  Selection.Copy
  extwb.Sheets(8).Activate
  Cells(pasterowIndex, 1).Select
  ActiveSheet.Paste
  </code></pre>
  
  <p>code little simple, because I have many value to copy?</p>
  
  <pre><code>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
  </code></pre>