[blackeangel]

Форум тупит..вот накидал, но не работает почему то
Поправте что не так?

Код:

Sub KD()
Application.ScreenUpdating = False
i = 2
sWhatFind1 = "Обозначение"
sWhatFind2 = "Карточки"
sWhatFind3 = "ПредвАрхив"
Cells.Find(What:=sWhatFind1, After:=ActiveCell, SearchOrder:=xlByColumns).Activate
ncolumn1 = ActiveCell.Column
Cells.Find(What:=sWhatFind2, After:=ActiveCell, SearchOrder:=xlByColumns).Activate
ncolumn2 = ActiveCell.Column
Cells.Find(What:=sWhatFind3, After:=ActiveCell, SearchOrder:=xlByColumns).Activate
ncolumn3 = ActiveCell.Column
Do While Cells(i, ncolumn1).Value <> Empty
If Cells(i, ncolumn2).Value Like Cells(i, ncolumn1).Value Then 'проверка на наличие основного исполнения
If Cells(i + 1, ncolumn1).Value Like Cells(i, ncolumn1).Value Then 'проверка на наличие другого исполнения
Cells(i + 1, ncolumn2).Value = Cells(i, ncolumn1).Value 'пишем в пустую ячейку значение основного исполнения
Else
If Cells(i, ncolumn3).Value Like Cells(i, ncolumn1).Value Then
If Cells(i + 1, ncolumn1).Value Like Cells(i, ncolumn1).Value Then
Cells(i + 1, ncolumn3).Value = Cells(i, ncolumn1).Value
End If
End If
End If
End If
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub