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@
lamaxx(8.7.2010 13:29)citovat#001932 
Super, diky! Jen jeste maly dotazek-rd je zkratkou pro co? Potreboval bych tam par veci zmenit. Potrebuju aby se podbarvila pouze bunka F3 a byla tam veta např. \"test neuspesny\". A dale-dost zasadni-potrebuju aby se to vypsalo hned jak se hodnota \"ne\" objevi, nikoliv az po tom,co rucne spustim makro.a navazat to na tlačitko se mi moc nechce :(
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@
lamaxx(8.7.2010 14:53)citovat#001937 Tak všechno se mi zdarilo,akorat to porad musim spoustet pres makro/nazev makra/spustit. Ta automatika se mi nedari rozchodit. Btw-zapisuju to vpodstate rucne... Kam mam presne "Private Sub Worksheet_Change(ByVal Target As Range)" zapsat? Kdyz jsem to dal misto "sub ...()" tak to nejede.
'Worksheet_Change' je dostupny v modulu prislusneho listu, na kterem ke zmene dojde...
lamaxx(12.7.2010 9:44)citovat#001944 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íky
1939_ne.zip
RSS nejnovější články