Excel - Primerjajte dva seznama in spremenite barvo vrstic

Težava

Imam dve različni delovni zvezki; recimo delovni zvezek 1 in delovni zvezek2. V obeh delovnih zvezkih imam stolpec s črtnimi kodami.

Potrebujem VBA za preverjanje dveh stolpcev črtne kode v delovnih zvezkih in če najde zadetke za ustvarjanje novega delovnega zvezka in kopiranje celotne vrstice delovnega zvezka 1 in uporabo iste barve celične črtne kode v delovnem zvezku 2.

Rešitev

Predvidevam, da sta stolpca s črtno kodo, listi 1 in 2, enaki

nato poskusite to kodo

na začetku, ko zaženete kodo, bo koda vprašala vnos o črki stolpca črtne kode. lahko vtipkate črko stolpca npr. G in kliknete ok (desno zgoraj):

Makro je

 Sub test () Dim col As String, r As Range, c As Range, cfind As Range Dim x, y Kot Integer col = InputBox ("vnesite stolpec LETTER, v katerem je črtna koda zapisana npr. Za G") Na napaki Resume Next Z delovnimi listi ("sheet2") Nastavite r = Razpon (.Cell (2, col), .Cells (2, col). End (xlDown)) Za vsak c In rx = c.Vrednost z delovnimi listi ("sheet1"). Stolpci (col & ":" & col) Nastavi cfind = .Cells.Find (kaj: = x, lookat: = xlWhole) Če cfind ni ničesar, potem GoTo nnext y = cfind.Interior.ColorIndex cfind.EntireRow.Copy with Worksheets ( Čelade (Rows.Count, "A"). End (xlUp) .Offset (1, 0) .PasteSpecial .Cells (Rows.Count, col) .End (xlUp) .Interior.ColorIndex = y End S koncem z nnext: Naslednja c Zaključi s končnico Sub 

Opomba

Hvala za venkat1926 za ta nasvet na forumu.