View Single Post
 
Old 06-11-2017, 06:25 PM
charlesdh charlesdh is offline Windows 7 32bit Office 2010 32bit
Expert
 
Join Date: Apr 2014
Location: Mississippi
Posts: 382
charlesdh is on a distinguished road
Default

Hi,

What you really need to is have the File That was converted from PDF be active and the have a code that will loop thru it to copy the data from it to your destination workbook.
Here is a sample dcode that you can use.
You can add a line of code that will make sure that the workbook that you need the data from is Active. This code only move column "D" "Tag NR". You can modify it for the rest of the required data.

Code:
Sub Test_Process()
'You need to have Original file converted Active to run this code. I only have it set to copy "Tag NR"
Application.ScreenUpdating = False
Dim lrow As Long '' PDF workbook Your Example File
lrow = ThisWorkbook.Sheets("Data").Range("D18").End(xlUp).Row
Dim llrow As Long



   With ActiveWorkbook
        llrow = ActiveSheet.Range("D18").End(xlUp).Row ''Active workbook Original File
        i = 7
        Do While i <> llrow + 1
            ThisWorkbook.Sheets("Data").Range("E" & lrow).Value = ActiveSheet.Range("D" & i).Text
            i = i + 1
            lrow = lrow + 1
        Loop
   End With
   
  Application.ScreenUpdating = True
 
End Sub
Reply With Quote