макрос для определения закрашивания ячеек и копирования их значений

[Katerina]

Помогите пожалуйста со следующей задачей!!! Имеется таблица:

                / даты
______________________________________________________________________
наименование    / 23 сент / 24 сент / 25 сент / ... / 15 окт / ...
______________________________________________________________________
наименование 1  /   2     /         /    5
наименование 2  /         /  3      /
наименование 3  /         /         /
наименование 4  /         /         /    2
...             /         /         /
наименование 10 /   1     /         /

необходимо сделать проверку для каждой закрашеной ячейки с цифрой вывести следующую таблицу:

наименование    количество    дата
наименование 1      2        23 сент
наименование 1      5        25 сент
наименование 2      3        24 сент
наименование 4      2        25 сент
наименование 10     1        23 сент

[HandKot]

и что у Вас не получается?

[Katerina]

много чего не получается!!  например, как в определенном диапазоне задать условие для определения закрашеной не пустой ячейки!!
то есть закрашивание :
x1 = Range("B58:IV70").Select
For i = 1 To 256
If x1.Cell("i, 58").Interior.Pattern = xlSolid Then
тут ошибка , но не понимаю  , совсем все забыла, давно это было когда я в макросах разбиралась. и  то писала не сложные программки по учебе. не заморачивалась по поводу макросов не думала что пригодиться в работе.

[Sla]

тут ошибка , но не понимаю

Offtopic:

Надпись в  маршрутном такси

Остановок Тута, Тама, Здеся - не делаю!

Поставлю в угол.

[HandKot]

примерно так

Код:

Public Sub test()
    Dim r As Range
    For Each r In ThisWorkbook.Worksheets(1).Range("A1:C7")
        'проверяем на пустоту
        If Not IsEmpty(r) Then
            'проверяем на закрашенность
            If r.Interior.ColorIndex > 0 Then
                Debug.Print r.Address & " не пустая и закрашена!!!"
            End If
        End If
    Next r
End Sub

можно сделать проверку на закрашенность и не пустоту сразу

Код:

Public Sub test1()
    Dim r As Range
    For Each r In ThisWorkbook.Worksheets(1).Range("A1:C7")
        'проверяем на пустоту и закрашенность
        If Not IsEmpty(r) And r.Interior.ColorIndex > 0 Then
            Debug.Print r.Address & " не пустая и закрашена!!!"
        End If
    Next r
End Sub

дополнение: в строке r.Interior.ColorIndex > 0 можно вместо 0 подставить нужный цвет

ВОПРОС: зачем проверять закрашенность ячейки или по условию нужно брать ячейки где есть чичло и она закрашена?

[Katerina]

Спасибо за помощь!!! Попробую!!!
а надо это для файла, в котором заноситься наименования продукции и количество выпуска по датам, то количество продукции которое закрашено не упакованно - вот его то и нужно выводить в отдельную таблицу. возможно задача не совсем ясна, но для работников организации эта информация необходима, конечно можно получить эту информацию просто просмотрев начальную таблицу, но начальство хочет видеть сводную таблицу. А так как наименований продукции достаточно, то вручную каждый раз это сложно будет делать.

[Katerina]

Спасибо HandKot  !!! Получилось!!! Осталось немного подкорректировать и сделать формирование нужной мне выходной таблицы. Вот.     
Огромное-огромное спасибо!!!