TonySondergeld
New Member
- Joined
- Jul 11, 2009
- Messages
- 31
The Code I trying to get to work below come up with a error (Unable to get the MATCH property of the worksheet Function class. How it is to work when the combobox value is changed it lookup the value in a worksheet rang:F4:F1500 and when found return the matching row cell in column H4:H1500.
Any help would be great thanks you
Private Sub CBX_BagNo_Change()
Dim i
Dim iRange As Range, xRange As Range
Set iRange = Sheets("Bag Info Data").Range("F4:F1500")
Set xRange = Sheets("Bag Info Data").Range("H4:H1500")
i = CBX_BagNo.Value
Sheets("Print Bag Flags").TBX_ManufactureDate.Value = ""
Sheets("Print Bag Flags").TBX_ManufactureDate.Value = Application.WorksheetFunction.Index(iRange, Application.WorksheetFunction.Match(i, x, 0), 1)
End Sub
Any help would be great thanks you
Private Sub CBX_BagNo_Change()
Dim i
Dim iRange As Range, xRange As Range
Set iRange = Sheets("Bag Info Data").Range("F4:F1500")
Set xRange = Sheets("Bag Info Data").Range("H4:H1500")
i = CBX_BagNo.Value
Sheets("Print Bag Flags").TBX_ManufactureDate.Value = ""
Sheets("Print Bag Flags").TBX_ManufactureDate.Value = Application.WorksheetFunction.Index(iRange, Application.WorksheetFunction.Match(i, x, 0), 1)
End Sub