title: Macro VBA: Match text cells across two workbooks and paste
body: <p>I need help modifying a macro that matches the part number (Column C) between two sheets in different workbooks. Then it pastes the info from 'Original' sheet from the range P9:X6500 into the 'New' sheet into the range P9:X6500. The first sheet 'Original' in column C range C9:C6500 is the matching part number column. The 'New' sheet has the same column C with the part number to match. I only want match and paste the visible values. </p>
  
  <p>I originally had this macro code which copy pastes only visible values from one workbook to another that I would like to modify it to match and copy paste:</p>
  
  <pre><code>Sub GetDataDemo()
  Const FileName As String = "Original.xlsx"
  Const SheetName As String = "Original"
  FilePath = "C:\Users\me\Desktop\"
  Dim wb As Workbook
  Dim this As Worksheet
  Dim i As Long, ii As Long
  
  Application.ScreenUpdating = False
  
  If IsEmpty(Dir(FilePath &amp; FileName)) Then
  
      MsgBox "The file " &amp; FileName &amp; " was not found", , "File Doesn't Exist"
  Else
  
      Set this = ActiveSheet
  
      Set wb = Workbooks.Open(FilePath &amp; FileName)
  
  With wb.Worksheets(SheetName).Range("P9:X500")
  On Error Resume Next
  .SpecialCells(xlCellTypeVisible).Copy this.Range("P9")
  On Error GoTo 0
  End With
  
  End If
  
  
  ThisWorkbook.Worksheets("NEW").Activate
  
  End Sub
  </code></pre>
  
  <p>Also here is what I want it to look like:</p>
  
  <p><a href="https://imgur.com/FuG8CGb" rel="nofollow noreferrer">Original</a></p>
  
  <p><a href="https://imgur.com/T9GUXyp" rel="nofollow noreferrer">NEW</a></p>
  
  <p>I appreciate the help!</p>