Excel - Jämför två listor och ändra radfärg

Problem

Jag har två olika arbetsböcker; låt oss säga arbetsbok 1 och arbetsbok2. I båda arbetsböckerna har jag en kolumn med streckkoder.

Jag behöver en VBA för att kontrollera de två streckkods-kolumnerna i arbetsböckerna och om det finns matchningar för att skapa en ny arbetsbok och kopiera hela raden av arbetsbok 1 och använda samma streckkodsfärg i arbetsbok 2.

Lösning

Jag antar att streckkoderns kolumner både ark 1 och ark 2 är desamma

försök sedan denna kod

i början när du kör koden frågar koden en inmatning om streckkoden i streckkoden. du kan skriva kolumnbokstaven, t.ex. G och klicka ok (högst upp till höger):

Makroet är

 Sub-test () Dim-kol som sträng, r Som omfång, c Som omfång, cfind Som omfång Dim x, y Som heltal col = InputBox ("skriv kolumnen LETTER där streckkoden är neterad för t.ex. G") På fel Fortsätt Nästa Med kalkylblad ("ark2") Ange r = Område (.Cells (2, col), .Cells (2, col) .End (xlDown)) För varje c I rx = c.Value With Worksheets ("sheet1"). Kolumner (col & ":" & col) Ange cfind = .Cells.Find (vad: = x, lookat: = xlWhole) Om cfind är ingenting sedan Gå till nnext y = cfind.Interior.ColorIndex cfind.EntireRow.Copy med kalkylblad "Sheet3") .Cells (Rows.Count, "A"). Slut (xlUp) .Offset (1, 0) .PasteSpecial .Cells (Rows.Count, col) .End (xlUp) .Interior.ColorIndex = y End Med slutet med nnext: Nästa c Slut med slutet Sub