Макрос во вторую книгу 1405087.xls
[vba]Код
Sub Zalivka()
Dim i As Integer
Dim j As Integer
Dim Sheet_FirstBook As Worksheet
Set Sheet_FirstBook = Workbooks("4165447.xls").Worksheets("Лист1")
With Sheet_FirstBook
Range("G2:J7").Interior.ColorIndex = xlColorIndexNone
For i = 2 To 7
For j = 7 To 10
If .Cells(i, j - 5).Interior.ColorIndex = 4 Or .Cells(i, j - 5).Interior.ColorIndex = 6 Then
Cells(i, j).Interior.ColorIndex = 5
End If
Next
Next
End With
End Sub
[/vba]
Первая книга 4165447.xls Обе книги должны быть открыты