Нахождение нужной строки по двум столбцам входящим в неё

@ИльдарФИСТ · Регистрация: 22.04.2018

Author24 — интернет-сервис помощи студентам

Приветствую всех. Имеется таблица excel с заполненными результатами прохождения тестов. Мне необходимо сделать МАКРОСОМ поиск по этой таблице. Поиск должен осуществляться по двум соответствиям, это фамилия и предмет. То есть, как только при поиске фамилия и предмет совпали, программа должна вывести всю соответствующую строчку, включая дубликаты. Вывод необходимо осуществлять на тот же лист правее. До этого у меня была программа, которая выполняла те же действия, но только при поиске фамилии. Не получается сделать сразу для фамилии и предмета. Помогите, пожалуйста.

@Казанский · 22.12.2018, 21:01

ИльдарФИСТ,

Visual Basic

Private Sub CommandButton1_Click()
  On Error Resume Next
  Application.ScreenUpdating = False
  Me.ShowAllData
  Range("G2").CurrentRegion.ClearContents
  With Range("A2", Cells(Rows.Count, "E"))
    .AutoFilter 1, TextBox1.Text
    .AutoFilter 5, TextBox2.Text
  End With
  With Me.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
    If .Rows.Count > 1 Or .Areas.Count > 1 Then
      .Cells.Copy Range("G2")
    Else
      MsgBox "Ничего не найдено"
    End If
  End With
  Me.AutoFilterMode = False
  Application.ScreenUpdating = True
End Sub

@ИльдарФИСТ · 22.12.2018, 21:57 **[ТС]**

При запуске выдает ошибку Method or data member not found в строчке Me.ShowAllData

Добавлено через 3 минуты

Сообщение от ИльдарФИСТ

При запуске выдает ошибку Method or data member not found в строчке Me.ShowAllData

Исправил Me на Worksheets(1) и заработало. Спасибо большое !)

@ИльдарФИСТ 0 / 0 / 0 Регистрация: 22.04.2018 Сообщений: 13
	22.12.2018, 21:57 [ТС]	3
	При запуске выдает ошибку Method or data member not found в строчке Me.ShowAllData Добавлено через 3 минуты Сообщение от ИльдарФИСТ При запуске выдает ошибку Method or data member not found в строчке Me.ShowAllData Исправил Me на Worksheets(1) и заработало. Спасибо большое !) 0

Нахождение нужной строки по двум столбцам входящим в неё

Решение