Помогите, что я делаю не так!?
В ячейке А1 лист(поиск)- будет вводиться фамилия и нужно найти в листе (сбор данных), данную фамилию и копировать все строку в лист(поиск)...
В ячейке А1 лист(поиск)- будет вводиться фамилия и нужно найти в листе (сбор данных), данную фамилию и копировать все строку в лист(поиск)...
Код |
---|
Option Explicit Sub Кнопка1_Щелчок() a = ThisWorkbook.Worksheets("сбор данных").Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To a If Worksheets("сбор данных").Cells(i, 3) = Worksheets("поиск")("A1") Then Worksheets("сбор данных").Rows(i).Copy Worksheets("поиск").Activate b = Worksheets("поиск").Cells(Rows.Coun t, 1).End(xlUp).Row Worksheets("поиск").Cells(b + 1, 1).Select ActiveSheet.Paste Worksheets("сбор данных").Activate End If Next Application.CutCopyMode = False ThisWorkbook.Worksheets("поиск").Ce lls(1, 1).Select End Sub |