Excel Missing: RulesEngine 1.0 Type library

[buzz71023]

I am getting a compile error: cannot find project or library. In references I am Excel "MISSING: RulesEngine 1.0 Type library". the code(s) I am getting these errors on work on my PC and RulesEngine 1.0 Type library is just check (Do not say MISSING in front of it).

I have two computer this works on and five that do not. All five are missing the "RulesEngine 1.0 Type Library"

I am not 100% sure this is my issue but its the only thing I have found that is coincide with each other.

All help and suggestions are welcome and will be mech appreciated.

for reference, this is the code I am having most the issues with this error at the

  "For Each cell In Range("C:D")"

Dim myItem As String, myRNG As Range, NewLoc As String
Dim Found As Range, RACKsht As Worksheet
Dim PCode As String, Lot As String, myDATE As String

Set RACKsht = Sheets("Rack Chart")

''Search for Product Code or Lot Number
myItem = InputBox("Enter what you would like to search for." & vbCrLf & vbCrLf & vbCrLf & "USE CAPITAL LETTERS WHEN NESSASSARY!", "Search", "Enter Here")
    If StrPtr(myItem) = 0 Then
        MsgBox "This action was canceled"
        Exit Sub
        Else
    If myItem = vbNullString Then
    MsgBox "There was no entries made to the inputbox. Try again"
    Exit Sub
    Else
    End If
    End If
    
Sheets("List").Select

For Each cell In Range("C:D")
    If cell.Value = myItem Then
  PCcode = Range("C" & cell.Row).Value
  Lot = Range("D" & cell.Row).Value
  myDATE = Range("B" & cell.Row).Value
                  cell.Select
            If MsgBox("Is the following what you were searching for" _
                    & vbCrLf & vbCrLf & "Product Code - " & PCcode & vbCrLf _
                    & "Lot Number - " & Lot & vbCrLf & "Date - " & myDATE, vbYesNo) = vbYes Then
            GoTo MYNEXT
        Else
        End If
    End If
Next cell
  Range("a1").Select
  RACKsht.Select
  MsgBox "There are no more results for " & myItem
 Exit Sub
'''------------------------------------------------------------
MYNEXT:
Range("F" & cell.Row).Select
NewLoc = ActiveCell.Value
Sheets("Rack Chart").Select
Application.ScreenUpdating = True
    ActiveSheet.Shapes(NewLoc).Select
'Turn Selection YELLOW
    With Selection.ShapeRange.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(255, 255, 0)
            .Transparency = 0
            .Solid
    End With
        
MsgBox ("The location of your item is " & NewLoc)
        
'Turn Selection back to BROWN
        With Selection.ShapeRange.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(153, 102, 51)
            .Transparency = 0
            .Solid
        End With
Range("a1").Select
End Sub

 

[shg]

There's nothing in that code that requires any external library. Did you try just unticking that reference?

 

[buzz71023]

No I wanted to make sure I would mess anything up because I've havent came accross this issue before. I will try

 

[buzz71023]

Works now on all the computers!!!! Thank you for you help and quick response!

 

[shg]

You're welcome.