Осуществить поиск записей по двум символьным полям. Найденные записи отобразить на втором листе

[мария2507]

у меня вот че получилось, но не работает((
подскажите в чем дело???

Sub поиск()
i = 1
fam = InputBox("Введите фамилию")
dol = InputBox("Введите должность")

Sheets("Лист2").Activate
Columns("A:A").Select
Selection.ClearContents
Range("A1").Select

While Sheets("Лист1").Cells(i, 1) <> Empty
If Sheets("Лист1").Cells(i, 1) = fam And Cells(i, 4) = dol Then

Cells(i1, 1) = Sheets("Лист").Cells(i, 1)

Else
i = i + 1
End If
Wend
End Sub

[The_Prist]

While Sheets("Лист1").Cells(i, 1) <> Empty
If Sheets("Лист1").Cells(i, 1) = fam And Cells(i, 4) = dol Then
Cells(Cells(rows.count, 1).end(xlup).row + 1,1) = Sheets("Лист").Cells(i, 1)
End If
Wend

или так(Вы не объявли переменную i1 и не присвоили ей значение и i = i + 1 не в том месте, где должно быть...)

dim i as long, i1 as long
While Sheets("Лист1").Cells(i, 1) <> Empty
If Sheets("Лист1").Cells(i, 1) = fam And Cells(i, 4) = dol Then
i1 = i1 + 1
Cells(i1, 1) = Sheets("Лист").Cells(i, 1)
End If
i = i + 1
Wend

[мария2507]

т.е. вот так???
подскажите....


Sub поиск()
fam = InputBox("Введите фамилию")
dol = InputBox("Введите должность")
Sheets("Лист2").Activate
Columns("A:A").Select
Selection.ClearContents
Range("A1").Select
Dim i As Long, i1 As Long
While Sheets("Лист1").Cells(i, 1) <> Empty
If Sheets("Лист1").Cells(i, 1) = fam And Cells(i, 4) = dol Then
i1 = i1 + 1
Cells(i1, 1) = Sheets("Лист").Cells(i, 1)
End If
i = i + 1
Wend
End Sub

[The_Prist]

Я предоставил два работающих кода. А в Вашем втором примере Вы не присваиваете значение переменной i.
У Вас ошибка будет на строке

While Sheets("Лист1").Cells(i, 1) <> Empty

Sub поиск()
Dim i As Long, i1 As Long
fam = InputBox("Введите фамилию")
dol = InputBox("Введите должность")
Sheets("Лист2").Select
Columns("A:A").ClearContents

i = 1
While Sheets("Лист1").Cells(i, 1) <> Empty
If Sheets("Лист1").Cells(i, 1) = fam And Cells(i, 4) = dol Then
i1 = i1 + 1
Cells(i1, 1) = Sheets("Лист").Cells(i, 1)
End If
i = i + 1
Wend
End Sub

[мария2507]

он почему то не выводит результат на 2 лист((

[The_Prist]

Сообщение от мария2507

он почему то не выводит результат на 2 лист((

А я почем знаю? Может у Вас условие не выполняется, может первая ячейка на листе1 пустая и макрос даже и не проверяет ничего, а сразу выходит без проверок. Много вариантов. Выложите файл - можно сказать конкретней. Не хотите - пройдитесь по макросу в режиме отладки - F8.

[мария2507]

у меня тут не получается загрузить((
вот залила на файлообменник


http://www.sharemania.ru/0236749

[The_Prist]

Вот Вам правильный код:

Sub поиск()
Dim i As Long, i1 As Long
fam = InputBox("Введите фамилию")
dol = InputBox("Введите должность")
Sheets("Лист2").Select
Columns("A:A").ClearContents

i = 1
While Sheets("Лист1").Cells(i, 1) <> Empty
If Sheets("Лист1").Cells(i, 1) = fam And Sheets("Лист1").Cells(i, 4) = dol Then
i1 = i1 + 1
Cells(i1, 1) = Sheets("Лист1").Cells(i, 1)
End If
i = i + 1
Wend
End Sub

Ошибки:
1. При сравнении

If Sheets("Лист1").Cells(i, 1) = fam And Cells(i, 4) = dol Then

Вы сравниваете данные Лист1 Sheets("Лист1").Cells(i, 1) с фамилией(fam), а вот должность(dol) сравниваете с ячейкой на активном листе(т.е. Лист2) - Cells(i, 4) = dol, т.к. явно не указываете лист, с которого брать данные.
2.

Cells(i1, 1) = Sheets("Лист").Cells(i, 1)

- Вы неверно указали лист - ("Лист"), а надо ("Лист1").

[мария2507]

спасибо)
а можно сделать так, чтобы на 2 листе отображалась не только фамилия, но и все данные???

[The_Prist]

Сообщение от мария2507

чтобы на 2 листе отображалась не только фамилия, но и все данные?

Sub поиск()
Dim i As Long, i1 As Long
fam = InputBox("Введите фамилию")
dol = InputBox("Введите должность")
Sheets("Лист2").Select
Columns("A:A").ClearContents

i = 1
While Sheets("Лист1").Cells(i, 1) <> Empty
If Sheets("Лист1").Cells(i, 1) = fam And Sheets("Лист1").Cells(i, 4) = dol Then
i1 = i1 + 1
Sheets("Лист1").Rows(i).Copy Cells(i1, 1)
End If
i = i + 1
Wend
End Sub