Excel - Usporedite dva popisa i promijenite boju retka

Problem

Imam dvije različite radne knjige; recimo radnu knjigu 1 i radnu knjižicu2. U obje radne knjige imam stupac s barkodovima.

Trebam VBA za provjeru dva stupca barkoda u radnim bilježnicama i ako se pronađu podudarnosti za stvaranje nove radne knjige i kopiranje cijelog retka radne knjige 1 i korištenje iste boje crtičnog koda u radnoj knjizi 2.

Riješenje

Pretpostavljam da su stupovi barkoda i list 1 i list 2 isti

zatim isprobajte ovaj kôd

na početku kada pokrenete kôd, kod će vas pitati za unos o slovu stupca barkoda. možete upisati slovo stupca npr. G i kliknuti na ok (gore desno):

Makronaredba je

 Sub test () Dim col As String, r As Range, c As Range, cfind As Range Dim x, y As Integer col = InputBox ("upišite stupac LETTER u kojem je bar kod označen za npr. G") On Error Resume Next S radnim listovima ("sheet2") Postavite r = Raspon (.Cells (2, col), .Cells (2, col). End (xlDown)) Za svaki c In rx = c.Vrijednost s radnim listovima ("sheet1"). Stupci (col & ":" & col) Postavljanje cfind = .Cells.Find (što: = x, lookat: = xlWhole) Ako cfind nije ništa onda GoTo nnext y = cfind.Interior.ColorIndex cfind.EntireRow.Copy s radnim listovima ( Klikovi (Rows.Count, "A"). End (xlUp). Offset (1, 0) .PasteSpecial. Cells (Rows.Count, col). End (xlUp) .Interior.ColorIndex = y End S kraja s nnext: Sljedeća c Završi s krajom podskupinom