Некий поиск

Private Sub CommandButton1_Click()
Dim TargetRow As Long
Dim TargetColumn As Integer
Dim FoundNomer As Range
Dim FoundOkno As Range
Dim FoundOknoRow As Long

TargetRow = ActiveCell.Row ‘строка активной ячейки
TargetColumn = ActiveCell.Column ‘столбец астивной ячейки
With Sheets(«Свод») ‘надо перенести содержимое активной ячейки на лист Свод
‘ищем в столбце А строку с 8602/имя листа
Set FoundNomer = .Columns(1).Find(«8602/» & ActiveSheet.Name, , xlValues, xlWhole)
‘ищем окно № на листе Свод, соответствующее окну активной ячейки
Set FoundOkno = .Columns(1).Find(What:=Cells(ActiveCell.Row, 1), After:=FoundNomer, LookIn:=xlValues, _
LookAt:=xlWhole, SearchDirection:=xlPrevious)
FoundOknoRow = FoundOkno.Row
.Cells(FoundOknoRow, TargetColumn) = ActiveCell
End With
End Sub

Добавить комментарий

Ваш адрес email не будет опубликован.