Import matching up the Headers name instead of the Column letter

[Crazyhorse]

With Workbooks(MyFile).Worksheets("Trade Report")

If Trim(.Range("W" & unaplRow)) = "Purchase" Then 'Or Trim(.Range("R" &
unaplRow)) = "961011" Then
ThisWorkbook.Worksheets("TransactionsBuys").Activate

ThisWorkbook.Worksheets("TransactionsBuys").Range("F" & MastRow) =
C_Code(.Range("X" & unaplRow))

'ThisWorkbook.Worksheets("TransactionsBuys").Range("F" & mastRow) = "20955"
'ExecBroker

ThisWorkbook.Worksheets("TransactionsBuys").Range("A" & MastRow) = StrRegion
'Region

ThisWorkbook.Worksheets("TransactionsBuys").Range("B" & MastRow) =
Trim(.Range("J" & unaplRow)) 'Fund

ThisWorkbook.Worksheets("TransactionsBuys").Range("C" & MastRow) =
"=RIGHT(RC[-1],3)" ' Abbr fund

ThisWorkbook.Worksheets("TransactionsBuys").Range("D" & MastRow) =
Trim(.Range("L" & unaplRow)) 'Cusip or AssetID
'Column E is Blank becuase there is no AssetCode

ThisWorkbook.Worksheets("TransactionsBuys").Range("G" & MastRow) =
Format(Trim(.Range("R" & unaplRow)), "yymmdd") 'trade Date

ThisWorkbook.Worksheets("TransactionsBuys").Range("H" & MastRow) =
Format(Trim(.Range("S" & unaplRow)), "yymmdd")

ThisWorkbook.Worksheets("TransactionsBuys").Range("I" & MastRow) = Today

ThisWorkbook.Worksheets("TransactionsBuys").Range("J" & MastRow) =
StrSettleLoc

ThisWorkbook.Worksheets("TransactionsBuys").Range("K" & MastRow) =
Format(Trim(.Range("P" & unaplRow)), "00.00")

ThisWorkbook.Worksheets("TransactionsBuys").Range("U" & MastRow) = StrInterest

ThisWorkbook.Worksheets("TransactionsBuys").Range("V" & MastRow) =
Format(Trim(.Range("C" & unaplRow)), "00.00")

ThisWorkbook.Worksheets("TransactionsBuys").Range("AC" & MastRow) = StrPAOnly

ThisWorkbook.Worksheets("TransactionsBuys").Range("AU" & MastRow) =
StrIssueClass

MastRow = MastRow + 1
End If
End With

 

[Joel]

Yes, if header is in row 1 and is called ABC then

with ThisWorkbook.Worksheets("TransactionsBuys")
set c = .rows(1).find(what:="ABC", lookin:=xlvalues, lookat:=xlwhole)
if c is nothing then
msgbox("Could not find header : " & "ABC")
else
.Cells(MastRow, c.column) = C_Code(.Range("X" & unaplRow))
end if
end with