userform til samkøring af data

En løsning er at et regneark via det andet regneark og så manipulere og hente data derfra. Det er ikke så kompliceret hvis du kender til VBA og kodning.

hej det ved jeg godt men jeg synes at det driller,
de data jeg søger i ser sådan ud
   




107591    STEEL WIRE ROPE Ø2.3 NYLON SHE    Box 2 VMI   
115517    CABLE TIE 292X4.8MM PLT3S-C0    Box 3 VMI   
134011                                Box 1 VMI    800
134013    WEDGE LOCK WASHER M33 A4    Box 2 VMI    150
146475                                Box 3 VMI   
150157    WASHER M20 200HV TZN            Box 3 VMI    1000
150157    WASHER M20 200HV TZN            Box 3 VMI    1000
150157    WASHER M20 200HV TZN            Box 3 VMI    1000
150157    WASHER M20 200HV TZN            Box 3 VMI    1000
150828    SCREW SKT FH M20X50 10.9 GZN    Box 3 VMI    100
150837    WASHER SPRING M10 480H FLZNLNC    Box 3 VMI    4000
150837    WASHER SPRING M10 480H FLZNLNC    Box 3 VMI    4000
150837    WASHER SPRING M10 480H FLZNLNC    Box 3 VMI    4000
150837                                Box 3 VMI    4000
150837                                Box 3 VMI    4001
150855    SCREW SKT M12X25 10.9 FLZNLNC    Box 2 VMI    200
150855    SCREW SKT M12X25 10.9 FLZNLNC    Box 2 VMI    200
150862    SCREW SKT FH M12X35 A4-70    Std. Pallet VMI    6000

den sub jeg prøver at få til at virke ser sådan ud
Private Sub CmB_Flet_Click()

    Dim c As Range
    Dim Boxe As Variant
Dim p As Variant, FB As Boolean, lokation As Integer

Dim R As Long, CF As String, Datafil As String, DataArk As String
    Application.ScreenUpdating = False
    Datafil = "Kun WmiGem_1.xlsx"    ' Filnavnet på gemmefilen
    DataArk = "Data"  ' Navnet på opslagsarket
    If Not WorkbookIsOpen(Datafil) Then
        Workbooks.Open Filename:="Y:\Nacelles\Vestas Assembly\Nacelle Factory Ringkoebing\_Shared\Lean_Information\Plan For Every Part\Wmi flet" & "\" & Datafil
    Else
        Windows(Datafil).Activate
    End If

  If IsEmpty(OpslagsData) Then Call HentData    ' hvis ikke indlæst, så gøres det igen
    For p = 1 To UBound(OpslagsData)
   
      Sheets(DataArk).Select
    For Each c In Range("a2", Range("a2").End(xlDown)).Cells
      Boxe = Me.ComBBox.Value
    If LCase(c.Value) = LCase(OpslagsData(p, 1)) And LCase(OpslagsData(p, 17)) = Boxe Then
   
    c.Offset(0, 3).Interior.ColorIndex = 10
    End If

    Next
  Next
    If FB = False Then
        MsgBox "Nummeret er ikke fundet"
        Me.ComBBox.SetFocus  ' sætter focus på tekstboksen
        Exit Sub
    End If
   

End Sub

Den virker på sin vis men hvis jeg sætter f.eks anden søge kriterie til vmibox 1 bliver nogle af cellerne også grøne ud for f.eks vmibox 3 så hvis du kan se hvad der er forkert ville jeg blive glad

lukker denne