Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Option Explicit Option Base 1 Public db As Database Public rs1 As DAO.Recordset Public sPath As String Public fxArray As Variant Sub Begin() Dim originalSymbol As Variant Dim revisedSymbol As String Dim x As Integer sPath = "C:\Documents and Settings\x152169\Desktop\ClientProfitability.accdb" Set db = DBEngine(0).OpenDatabase(sPath, False, False) Set rs1 = db.OpenRecordset("ClientMapping") fxArray = rs1.GetRows(rs1.RecordCount) rs1.Close Set db = Nothing Set rs1 = Nothing For x = 2 To Range("A65536").End(xlUp).Row originalSymbol = Cells(x, 1).Value MsgBox fxArray(Application.Match(originalSymbol, Application.Index(fxArray, 0, 1), 0), 2)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.