Помогите, что я делаю не так!?
В ячейке А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 |
... если есть "Option Explicit" так и "Dim" должно быть тоже (Dim a As Long, Dim b As Long, Dim i As Long, и так далее)