|
Jeg har store problemer med min en Vlookup formen i en IF sætning med lidt loops.
Jeg har en varenummer (tekst) som jeg gerne vil tjekke om findes i en liste i et andet worksheet. Hvis nummeret findes i det andet worksheet skal feltet markeret med en baggrundsfarve.
Dette tjek skal så laves for alle varenumre i den første liste.
Jeg han få det til at virker ved at bruge følgende sætning. Men i denne der tjekker jeg ikke i det andet worksheet, men blot om den første celle er lig sig selv: ---------------------------------------------------------------------------- 'Marker udgåede varer (Rød i Item Number)
For i = 1 To NumProds If (Application.VLookup(Worksheets("data").Cells(5 + i, 4), , 1, False) = Worksheets("data").Cells(5 + i, 4)) Then Cells(5 + i, 4).Select With Selection.Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent5 .Color = RGB(55, 0, 0) .PatternTintAndShade = 0 End With End If Next
Application.StatusBar = "Step 4 of 10..." DoEvents ------------------------------------------------------------------------
Den formel som ikke virker er nedenstående. Den giver Runtime error 13 type dismatch.
Hvis jeg tilføjer worksheetfunktion "Application.worksheetfunktion.VLookup" får jeg istedet runtime error 438 Object doesn't support this property or method ------------------------------------------------------------------------ 'Marker udgåede varer (Rød i Item Number) (HAM)
For i = 1 To NumProds If Application.VLookup(Cells(5 + i, 4), Sheets("Inventory assortment").Range("A2:A99999"), 1, False) = Cells(5 + i, 4) Then Cells(5 + i, 4).Select With Selection.Borders '.PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent5 .Color = RGB(55, 0, 0) '.PatternTintAndShade = 0 End With End If Next
Application.StatusBar = "Step 4 of 10..." DoEvents
|