MS Excel

Ahoj,

třeba takto:
For rd = 1 To ActiveSheet.UsedRange.Rows.Count
If UCase(Cells(rd, 4)) = "NE" Then
Cells(rd, 4).Interior.Color = vbRed
If Cells(3, 6) <> "" Then Cells(3, 6) = Cells(3, 6) & ";D" & rd Else Cells(3, 6) = "D" & rd
End If
Next
M@citovat

rd mi symbolizuje číslo řádku.
Kdy se tam ta hodnota objeví, někdo ji napíše, nebo je to výsledek vzorce?

Asi by se to mohlo spouštět při:
je-li hodnota zadávána ručně.
Private Sub Worksheet_Change(ByVal Target As Range)
v tomto případě není nutno prohledávat celý sloupec, ale jen nově zadanou hodnotu.

je-li hodnota výsledkem vzorce.
Private Sub Worksheet_Calculate()

Jinak pro zabarvení buňky F3 stačí změnit
Cells(rd, 4).Interior.Color = vbRed
na
Cells(3, 6).Interior.Color = vbRed

M@citovat

'Worksheet_Change' je dostupny v modulu prislusneho listu, na kterem ke zmene dojde...citovat

parada,slape to pekne. Jen mam jeste jeden problem... Kam to mam vepsat,kdyz potrebuju,aby mi to jelo predevsim na nove založeném listu?Běží mi to jen na prvním.Když sem to zkousšl dát pod nový modul,nefungovalo! Pokud je to nějaký složitější,tak ten soubor sem raději přiložím... díkycitovat