Выбор только первой ячейки в диапазоне, который соответствует условию

Question

Мой код копирует текст из ячейки в матрице 1 ко всем ячейкам, которые соответствуют моим критериям в матрице 2. Но я хочу, чтобы он копировал его только в первую ячейку который отвечает моим критикам в Matrix 2, а затем останавливается.

Private Sub CommandButton1_Click() 

Dim i As Integer 
Dim j As Integer 

For j = 2 To 2 
    For i = 21 To 21 

     If Cells(i, j).Value > 0 Then 
      Cells(i, j).Value = Cells(i, j).Value - 1 
      Cells(i, j).Offset(0, -1).Select 
     End If 

     'as it says - for EACH - so it copies in aLL the cells' 
     'I can't Change the range though, cause there will come a Loop eventually' 
     For Each cell In Range("a1:aap15") 

      If cell.Interior.ColorIndex = 6 Then 
       If cell.Value = "" Then 
        cell.Value = ActiveCell.Value 
       End If 
      End If 
     Next 
    Next 
Next 

End Sub 

Answer 1

Вы можете использовать команду Exit For для выхода из цикла for. Похоже, вы хотите добавить его здесь:

If cell.Interior.ColorIndex = 6 Then 
    If cell.Value = "" Then 
     cell.Value = ActiveCell.Value 
     Exit For 
    End If 
End If 

Примечание: не проверено. Дайте мне знать, если у вас возникли проблемы