No ak máte tie farby hodnôt vlastnoručne zafarbené (teda nie Formátom bunky, napr. kladné/záporné čísla), tak:
-Označte rozsah / alebo celý stĺpec
-Ctrl+F
-Formát - tá malá šípka - Vybrať formát bunky - klik na zafarbenú hodnotu
-Nájsť všetky
-klik do poľa s nájdenými a Ctrl+A
-Zavrieť
-A máte ich označené
Alebo
-na karte Data vytvorte Filter pre oblasť alebo stĺpec
-Filtrovať podľa farby - napr. červená
-vykonajte požadované úpravy, a filter zrušte, kliknutím na ikonu Filter
Ale ak to máte farbené pomocou Formátovania bunky/Podmieneného formátovania, tak asi jedine makrom (priradte napr. tlačítku):
Sub SelectColor()
Dim R As Range, C As Long, B As Range, A As Range
On Error GoTo koniec
Set R = Application.InputBox("Oblasť v ktorej chcete hľadať farbu :", "Označenie buniek podľa farby", Selection.Address, , , , , Type:=8)
C = Application.InputBox("Označte bunku s farbou, ktorá sa má hľadať :", "Označenie buniek podľa farby", Selection.Cells(1, 1).Address, , , , , Type:=8).DisplayFormat.Font.ColorIndex
On Error GoTo 0
For Each B In R
If B.DisplayFormat.Font.ColorIndex = C Then If A Is Nothing Then Set A = B Else Set A = Union(A, B)
Next B
A.Select
koniec:
End Subcitovat
-Označte rozsah / alebo celý stĺpec
-Ctrl+F
-Formát - tá malá šípka - Vybrať formát bunky - klik na zafarbenú hodnotu
-Nájsť všetky
-klik do poľa s nájdenými a Ctrl+A
-Zavrieť
-A máte ich označené
Alebo
-na karte Data vytvorte Filter pre oblasť alebo stĺpec
-Filtrovať podľa farby - napr. červená
-vykonajte požadované úpravy, a filter zrušte, kliknutím na ikonu Filter
Ale ak to máte farbené pomocou Formátovania bunky/Podmieneného formátovania, tak asi jedine makrom (priradte napr. tlačítku):
Sub SelectColor()
Dim R As Range, C As Long, B As Range, A As Range
On Error GoTo koniec
Set R = Application.InputBox("Oblasť v ktorej chcete hľadať farbu :", "Označenie buniek podľa farby", Selection.Address, , , , , Type:=8)
C = Application.InputBox("Označte bunku s farbou, ktorá sa má hľadať :", "Označenie buniek podľa farby", Selection.Cells(1, 1).Address, , , , , Type:=8).DisplayFormat.Font.ColorIndex
On Error GoTo 0
For Each B In R
If B.DisplayFormat.Font.ColorIndex = C Then If A Is Nothing Then Set A = B Else Set A = Union(A, B)
Next B
A.Select
koniec:
End Subcitovat