Sortare dupa culoare

[catalin743]

Buna ziua

Avem o foaie de lucru cu multe randuri, fiecare din aceste randuri fiind colorat, (cam 3-4 culori) .In functie de culoarea liniei (sau a celulei) as vrea sa fac diverse operatii, de exemplu liniile colorate cu prima culoare sa le sterg, cu a doua sa le copiez in alta foaie, etc.(asta e in regula stiu sa fac). Problema e ca nu stiu cum pot determina culoarea liniei(celulei).

Va multumesc anticipat.

[Dr.Windows]

Pentru detectare culorii se foloseste proprietatea celulei sau a "range"-ului - Interior.ColorIndex dar atentie in cazul unui range care are culori combinate rezultatul este Null.

Ai mai jos un exemplu pentru detectarea culorii

Cod: Selectaţi tot

Sub ColorDetect()
    MsgBox ("Culoare interior: " & ActiveCell.Interior.ColorIndex)
 End Sub

Sau daca preferi ceva mai automatizat pune urmatorul cod in ThisWorkbook:

Cod: Selectaţi tot

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    MsgBox ("Culoare interior: " & Target.Interior.ColorIndex)
End Sub

[Dr. Cloud]

Si ca sa vin cu o completare, aici vei gasi mai multe detalii despre codurile culorilor.

[catalin743]

Este ok, am reusit,multumesc Alexx.