Добрый день! Написала макрос, он должен проверять цвет шрифта в ячейке и, если он красный, копировать данные из этой ячейки в другую на другом листе, потом возвращаться на первый лист и копировать данные из другой ячейки той же строки, снова вставлять их в ячейку на другом листе
Скопированные данные должны располагаться друг под другом
Вот собственно сам макрос, но по каким то причинам эксель вроде бы выполняет его, а результат почему то не вижу. Подскажите, где ошибка?
Скопированные данные должны располагаться друг под другом
| Код |
|---|
Sub Macro()
Dim Ma As Integer
Dim Sa As Integer
Dim Ra As Integer
Dim Ga As Integer
Ma = 30
For Sa = 5 To 102
Cells(Sa, 22).Select
If Cells(Sa, 22).Font.Color = 255 Then
Ra = ActiveCell.Row
Ga = ActiveCell.Column
Selection.Copy
Sheets("Сюда вставляем").Select
Range("I & Ma : J & Ma").Select
ActiveSheet.Paste
Sheets("Это проверяем на красный шрифт").Select
Range("B & Ra").Select
Selection.Copy
Sheets("Сюда вставляем").Select
Range("B & Ma : H & Ma").Select
ActiveSheet.Paste
Cells(S, 22).Value = D + 1
Ma = Ma + 1
End If
Next
End Sub |
Изменено: - 12.07.2017 15:00:11
