Работа с цветом ячеек

[tibhar940]

Подскажите, пожалуйста, можно ли реализовать такой функционал?
Если На активном листе ячейка A1 имеет красную заливку, записать её значение в ячейку A2.

[IgorGO]

приблизительно так:

if [a1].interior.color = 255 then [a2]=[a1]

осталось только решить когда это выполнять

[tibhar940]

Сообщение от IgorGO

приблизительно так:

if [a1].interior.color = 255 then [a2]=[a1]

осталось только решить когда это выполнять

Извините, пожалуйста. Я немного не так сформулировал вопрос..
У меня есть ячейки от А1 до А256. Если какая либо из них красная, то нужно записать значение красной ячейки в ячейку B1.

[kuklp]

А если красных несколько? Или ни одной. Что тогда?

[tibhar940]

Сообщение от kuklp

А если красных несколько? Или ни одной. Что тогда?

В моём случае красных может быть только одна.

[kuklp]

Sub www()
    Dim c As Range
    Application.FindFormat.Clear
    Application.FindFormat.Interior.ColorIndex = 3
    Set c = ActiveSheet.UsedRange.Columns(1).Find("", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchFormat:=True)
    If Not c Is Nothing Then [b1] = c.Value
    Application.FindFormat.Clear
End Sub

[tibhar940]

Сообщение от kuklp

Sub www()
    Dim c As Range
    Application.FindFormat.Clear
    Application.FindFormat.Interior.ColorIndex = 3
    Set c = ActiveSheet.UsedRange.Columns(1).Find("", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchFormat:=True)
    If Not c Is Nothing Then [b1] = c.Value
    Application.FindFormat.Clear
End Sub

Спасибо. А если я к примеру хочу перенести значение красной ячейки на "Лист2"?
УЖе разобрался. Спасибо не надо)

[tibhar940]

Подскажите еще один момент. Допустим имеется столбец (1). Можно ли вычленить из него все ячейки красного цвета и произвести с ними какие-либо операции. Допустим...сложение.

Заранее спасибо.

[staniiislav]

Function СУММ_ЦВЕТ(Диапазон_суммирования As Range, Цвет_берется_из_ячейки As Range)
For Each cll In Диапазон_суммирования.Cells
If cll.Interior.ColorIndex = Цвет_берется_из_ячейки.Interior.ColorIndex Then
    summa = summa + cll.Value
End If
Next
СУММ_ЦВЕТ = summa
End Function

Второй вариант:

Function суммеслицвет(диапазон As Range, образец As Range, диапазон_суммирования As Range)
r = 0
simma = 0
For Each sh In диапазон
r = r + 1
If sh.Interior.ColorIndex = образец.Interior.ColorIndex Then
t = 0
    For Each sh1 In диапазон_суммирования
    t = t + 1
    If r = t Then simma = simma + sh1.Value
    Next
End If
Next
суммеслицвет = simma
End Function

и третий в файле

[tibhar940]

Сообщение от staniiislav

и третий в файле

Шикарно. Вот третий вариант мне идеально подходит. Везде однотипное форматирование. Останется просто макросом нужное значение формулы записать в нужную ячейку и вуаля.

Спасибо!