Using a VBA VLOOKUP with an Intersect in Excel 2010 - vba

Question

I have a spreadsheet that is used to enter instrument data and associated readings. There are multiple instruments entered from a validated list into a named range of "All_Inst". When an instrument is changed I need to clear out data in the row associated with that entry that is no longer applicable. At this data differs by instrument, I stored the various combinations in a simple 2 column table named "Delete_Data_TBL". From there I'm trying to use a VLookup to feed a case statement to clear the applicable cells.
I've successfully tested the vlookup outside of the intersect using a hardcoded value for the lookup value. I think the problem is using the c.value in the vlookup, but I can't find anything on what syntax to use. I tried assigning c.value to a variable and passing the variable to the vlookup, but wasn't able to get that working either, though again I'm unsure of the syntax.
A somewhat simplified version of what I've tried is as follows;
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim d As Integer
'***Check if any ALL_Inst cells have been changed
If Not Intersect(Target, Range("All_Inst")) Is Nothing Then
'Evaluate the cell that has changed to determine what should be set to ""
For Each c In Intersect(Target, Range("All_Inst")).Cells
d = Application.WorksheetFunction.VLookup(c.Value, Sheets("Inst_Tables").Range("Delete_Data_TBL"), 2, False)
Select Case d
Case 0, 5
c.Offset(0, 1).Value = ""
c.Offset(0, 4).Value = ""
c.Offset(0, 7).Value = ""
c.Offset(0, 11).Value = ""
c.Offset(0, 13).Value = ""
c.Offset(0, 15).Value = ""
c.Offset(0, 17).Value = ""
Case 3
c.Offset(0, 15).Value = ""
c.Offset(0, 17).Value = ""
Case 4
c.Offset(0, 1).Value = ""
c.Offset(0, 4).Value = ""
c.Offset(0, 7).Value = ""
c.Offset(0, 11).Value = ""
c.Offset(0, 13).Value = ""
Case 6, 7
c.Offset(0, 4).Value = ""
Case 9
c.Offset(0, 1).Value = ""
c.Offset(0, 4).Value = ""
c.Offset(0, 7).Value = ""
Case Else
'Do Nothing
End Select
Next
End If
End Sub

Answer 1

I apologize to stackexchange, i don't have enough reputation to make a comment but I think your problem is when cl.value is not found in the range. you can add in some error handling as follows:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim d As Integer`
'***Check if any ALL_Inst cells have been changed
If Not Intersect(Target, Range("All_Inst")) Is Nothing Then
'Evaluate the cell that has changed to determine what should be set to ""
For Each c In Intersect(Target, Range("All_Inst")).Cells
on error resume next
d = Application.WorksheetFunction.VLookup(c.Value,Sheets("Inst_Tables").Range("Delete_Data_TBL"), 2, False)
if isempty(d) = false then
Select Case d
Case 0, 5
c.Offset(0, 1).Value = ""
c.Offset(0, 4).Value = ""
c.Offset(0, 7).Value = ""
c.Offset(0, 11).Value = ""
c.Offset(0, 13).Value = ""
c.Offset(0, 15).Value = ""
c.Offset(0, 17).Value = ""
Case 3
c.Offset(0, 15).Value = ""
c.Offset(0, 17).Value = ""
Case 4
c.Offset(0, 1).Value = ""
c.Offset(0, 4).Value = ""
c.Offset(0, 7).Value = ""
c.Offset(0, 11).Value = ""
c.Offset(0, 13).Value = ""
Case 6, 7
c.Offset(0, 4).Value = ""
Case 9
c.Offset(0, 1).Value = ""
c.Offset(0, 4).Value = ""
c.Offset(0, 7).Value = ""
Case Else
'Do Nothing
End Select
end if
Next
End Sub