VBA for Excel

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ovaj forum je najblize mom pitanju

Dakle VBA za Excel je u pitanju..

Ovako.. Hocu da ispitam da li se u celijama odredjenog Rangea ponavlja ista vrednost.. ako se ponavlja da se font promeni u crveno. i.. ne ide mi

ja sam uradio nesto ovako...

Dim kolona As Integer
Dim red As Integer
Dim kupacTest As String
Dim brojac As Integer


red = 11
kolona = 3
brojac = 11

Do While red < 117

kupacTest = Sheet1.Cells(red, kolona).Value 'uzima vrednost prvog reda\kolone

For brojac = 11 To 117 Step 1
If kupacTest = Sheet1.Cells(brojac, kolona).Value Then
Sheet1.Cells(red, kolona).Font.Color = RGB(255, 0, 0)
Sheet1.Cells(brojac, kolona).Font.Color = RGB(255, 0, 0)
End If
Next brojac
red = red + 1
Loop


medjutim boji mi sve celije u tom loopu...

probao sam i sa varijantom for..next ali onda oboji samo prve dve iste vrednosti na koje naleti.

Vidim da je greska negde u petlji... ali izlupah glavu i ne ide...

Dajte ideje, mozda moze nekako drugacije da se (jednostavnije) odradi.
Conditional format ne dolazi u obzir, samo VBA.

hvala unapred i pozdrav

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Moras da proveravas svako sa svakim.
To za jednu kolonu nije problem, ali za vise njih je problem.

Da vidim da li sam razumeo sta zelis:

Hoces da proveris da li se npr. broj, ponavlja u rangeu celija od A1 - C8 (3 kolone i 8 redova, npr.)?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hm. kolona je uvek ista... uzme vrednost reda 1 i proveri da li postoji negde u narednim redovima, ako ima, oboji u crveno.. (oznaci da ima ponavljanja).

poz

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

izbaci do while....

Dim kolona As Integer Dim red As Integer Dim kupacTest As String Dim brojac As Integer red = 11 kolona = 3 brojac = 11     kupacTest = Sheet1.Cells(red, kolona).Value 'uzima vrednost prvog reda\kolone     For brojac = 11 To 117 Step 1         If kupacTest = Sheet1.Cells(brojac, kolona).Value Then             Sheet1.Cells(red, kolona).Font.Color = RGB(255, 0, 0)             Sheet1.Cells(brojac, kolona).Font.Color = RGB(255, 0, 0)         End If     Next brojac