-
Find column (in Excel address) of matching value in array
I need to find the Column, e.g. "L" (in the Excel address) for the cell in an Array read in from Excel which contains a value matching a specified variable x.
[vba]
Public Sub RetAdr()
Dim VarArray as Variant
Dim x as integer
Dim RetAddress as String
x= 12 ' As an example,... looking for the Column of cell containing the value: 12
VarArray = Worksheets("Sheet1").Range("A1:CV1") ' values in VarArray are: 1,2,3... 100
RetColAddress = WorksheetFunction.Address(WorksheetFunction.Match(x,VarArray,0)) ' Need help here!
MsgBox = RetColAddress ' Should display "L"
End Sub
[/vba]
-
Lagos,
Try this:
[VBA]
Option Explicit
Public Sub RetAdr()
Dim VarArray As Variant
Dim x As Long
Dim RetColAddress As String
x = 12
VarArray = Worksheets("Sheet1").Range("A1:CV1")
RetColAddress = Replace(Cells(1, Application.Match(x, VarArray, 0)).Address(0, 0), 1, "")
MsgBox "RetColAddress = " & RetColAddress
End Sub
[/VBA]
Have a great day,
Stan
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules