Как скопировать информацию из ячеек определенного цвета на другом листе?

Для копирования информации из ячеек определенного цвета на другом листе в Excel, можно воспользоваться следующими шагами:

1. Выберите ячейки с нужным цветом на первом листе.
2. Нажмите правой кнопкой мыши на выделенных ячейках и выберите "Копировать".
3. Перейдите на другой лист, куда хотите вставить скопированную информацию.
4. Нажмите правой кнопкой мыши на нужную ячейку и выберите "Вставить".

Чтобы получить данные с другого листа, используя фильтр по цвету (зеленому и оранжевому), можно применить следующие шаги:

1. Выделите столбец или строки, которые содержат данные с цветными ячейками.
2. Нажмите на вкладку "Данные" в верхней панели меню.
3. Выберите "Расширенный фильтр" из раздела "Фильтры".
4. В открывшемся окне выберите столбец с цветными ячейками в поле "Диапазон".
5. В разделе "Фильтр" выберите нужные цвета (зеленый и оранжевый) в выпадающем списке.
6. Нажмите "ОК".

Теперь на вашем листе будут отображаться только те данные, которые соответствуют выбранным цветам.

Добрый день. 
 Вариант макроса VBA Excel: 
 Sub CopyHighlightedCells() 
 Dim Product As Range 
 Dim ProductCell As Range 
 Dim HCsheet As Worksheet ' ëèñò äëÿ êîïèðîâàíèÿ äàííûõ ñ çàëèâêîé 
 Dim HPsheet As Worksheet  ' ëèñò äëÿ âñòàâêè äàííûõ ñ çàëèâêîé 
 
 Set HCsheet = Worksheets("Ëèñò1-copy") 
 Set Product = HCsheet.Range("B5", HCsheet.Range("B5").End(xlDown)) 
 Set HPsheet = Worksheets("Ëèñò2-paste") 
 
 For Each ProductCell In Product 
 '  åñëè ÿ÷åéêà æåëòîãî èëè çåëåíîãî öâåòà 
 If ProductCell.Interior.ColorIndex = 43 Or ProductCell.Interior.ColorIndex = 44 Then 
 ProductCell.Resize(1, 4).Copy Destination:= _ 
 HPsheet.Range("B1").Offset(HPsheet.Rows.Count - 1, 0).End(xlUp).Offset(1, 0) 
 End If 
 Next ProductCell 
 HPsheet.Columns.AutoFit 
 End Sub