ячейки с красным текстом перенести на др лист

[Alexander_Gr]

Подскажите макрос который может перенести ячейки с красным текстом на др лист.
Спасибо!

[Pavel55]

Пишите подробнее, что взять, откуда (из всего листа, или из столбца В), куда переносить (название листа, ячейки, столбца) и т.д. Тогда будет быстрее ответ и более рабочий макрос. А так держите.
Макрос ищет на всём листе Лист1 ячейки с красным шрифтом, и переносит их на Лист2 в столбец А

Sub CopyRedText()
Dim iCell As Range
Dim NewSh As Worksheet
Dim i As Long
    
    Set NewSh = Sheets("Лист2") 'куда будем копировать
    For Each iCell In Sheets("Лист1").UsedRange 'откуда будем копировать
        If iCell.Font.ColorIndex = 3 Then
            i = i + 1
            iCell.Copy Destination:=NewSh.Cells(i, 1) 'копируем в столбец А
        End If
    Next
    MsgBox "Done!", , ""
End Sub

[Alexander_Gr]

Спасибо! Все работает! То что надо!
Замечания учту на будущее!
Спасибо !

[Savelij]

Доброго времени суток!Подскажите,пожалуйсто,что надо изменить,чтобы взять данные из столбца А Лист 1 и перенести в Лист 2 и начинать заполнять с ячейки C 10!Заранее спасибо!

[SAS888]

Опять же: смотри замечания от Pavel55. Не все понятно.
Следующий макрос скопирует НЕ ПУСТЫЕ ячейки листа "Лист1" столбца "A" и перенесет их в "Лист2", начиная с ячейки "C10".

Sub MoveData()

    Dim i As Long, j As Long
    j = 10
    For i = 1 To Sheets("Лист1").Range("A65536").End(xlUp).Row
        If Not IsEmpty(Cells(i, "A")) Then
            Sheets("Лист2").Cells(j, "C") = Sheets("Лист1").Cells(i, 1)
            j = j + 1
        End If
    Next

End Sub

Если нужно скопировать все (вместе с пустыми) ячейки - думаю, сообразите.

[Savelij]

Спасибо!Всё работает!