Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Поиск по содержимому ячейки
 
Помогите, что я делаю не так!?
В ячейке А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
 
Цитата
Аняя написал:
Worksheets("поиск")("A1") Then
Ничего не смущает?
 
1. "Option Explicit" и без декларации переменных ?
2. Worksheets("поиск по ФИО") <> Worksheets("поиск")
Изменено: ocet p - 25 Мар 2018 17:46:35
 
???
 
чё это "???" ...  :)  ... если есть "Option Explicit" так и "Dim" должно быть тоже (Dim a As Long, Dim b As Long, Dim i As Long, и так далее)

попробуйте файла:
Изменено: ocet p - 26 Мар 2018 12:13:54
 
Так?
Изменено: Nordheim - 26 Мар 2018 12:39:06
"Все гениальное просто, а все простое гениально!!!"
 
Да, все работает спасибо большое вы гений!!! Админу спасибо за форум
Страницы: 1
Читают тему (гостей: 1)