Primerjanje

[bate]

Zdravo,
V makru pišem kodo, ki je za moje skromno znanje VB prezahtevna. Zato spet prosim za pomoč.

V koloni 'B' so fiksne številke, ki jih primerjam s številkami iz kolone 'C' kjer se spreminjajo. Tiste iz kolone 'C' , ki se ne ujemajo z nobeno številko iz kolone 'B' , po vrsti vpisujem v kolono 'D'.
V naprej hvala za odgovore.

Lp Brane

[bate]

Zdravo,
ne verjamem, da nihče ne zna odgovoriti. Verjetjno sem spet preveč zakompliciral. Kakorkoli... Medtem mi je samemu uspelo najti rešitev. Prepričan sem, da obstaja bolj elegantna rešitev, ampak meni zadostuje. Da le deluje. Če koga zanima je tu del kode:

Koda: Izberi vse

    ----
    n = 4
    Enake = 0
    For j = 4 To 15   ' v tej koloni se št. spreminjajo
    
    For i = 4 To 30   ' v tej koloni so št. fiksne
          If Cells(j, 3).Value = Cells(i, 2).Value Then Enake = Enake + 1
    Next i
      
          If Enake = 0 Then Cells(n, 4).Value = Cells(j, 3).Value
          If Enake = 0 Then n = n + 1
          Enake = 0

    Next j
    ----

lp Brane