my current code does
1) Opens my desired workbooks via a picker button on my master workbook (Just need to compare 2 at once)
2) Delimits by pipe
3) concatenates columns B and C (into col D)
I am stuck here, my goal is to compare column A numbers from both opened workbooks on my master sheet.
Should I vlookup my values from one workbook to another and bring in the numbers and subtract?
How can I get my values in my master sheet and do a nice little subtraction? its tough, like I looked at some code to put my sheets into master but you have to state the master sheet and the current sheets to copy (sheet names will always be dynamic names so this kind is useless)
Any help would be appreciated, Sorry i am a beginner.
Sub Rec() Dim fileNames As Object, errCheck As Boolean Dim ws As Worksheet, wks As Worksheet, wksSummary As Worksheet Dim y As Range, intRow As Long, i As Integer ' Turn off screen updating and automatic calculation With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With 'get user input for files to search Set fileNames = CreateObject("Scripting.Dictionary") errCheck = UserInput.FileDialogDictionary(fileNames) If errCheck Then Exit Sub End If For Each Key In fileNames 'loop through the dictionary On Error Resume Next Workbooks.OpenText Filename:=fileNames(Key), _ DataType:=xlDelimited, _ Other:=True, _ OtherChar:="|" On Error GoTo 0 ' or your custom error handler 'delete first row For Each ws In ActiveWorkbook.Worksheets ws.Range("1:1").Delete Next ws 'concat B and C and place into D For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Cells(i, "D").Value = Cells(i, "C").Value & "_" & Cells(i, "B").Value Next i 'paste into rec sheet? Next 'End of the fileNames loop Set fileNames = Nothing ' Reset system settings With Application .Calculation = xlCalculationManual .ScreenUpdating = True .Visible = True End With End Sub