ПОИСК И ВСТАВКА НА ДРУГОЙ ЛИСТ

[danika24]

Нужен макрос для вот этого файла,
тот что есть на форуме с похожей темой не работает помогите очень надо.
Надо чтобы он искал в ячейке А название района (с возможностью выбора района) допустий волжский и переносил строку на другой лист.

[IgorGO]

создайте лист2, вот это в модуль листа 2 в В1 пишете, что искать.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim r As Long, rg As Range, rg1 As Range
  If Target.Count > 1 Or Target.Address <> "$B$1" Then Exit Sub
  Range(Cells(2, 1), Cells(1 + WorksheetFunction.CountA([A:A]), 3)).ClearContents
  With Sheets(1)
    On Error Resume Next: r = 2
    Set rg = .[A:A].Find(Target, LookIn:=xlValues, Lookat:=xlPart): Set rg1 = rg
    Do While Err.Number = 0
      If Err.Number = 0 Then
        rg.Resize(1, 3).Copy Cells(r, 1): r = r + 1
      End If
      Set rg = .[A:A].Find(Target, rg, LookIn:=xlValues, Lookat:=xlPart)
      If rg.Address = rg1.Address Then Exit Do
    Loop
  End With
  Err.Clear: On Error GoTo 0
  MsgBox "Íàéäåíî " & r - 2 & " øò.", vbOKOnly, "Ãîòîâî"
End Sub

[danika24]

Спасибо но что написано в MsgBox "Íàéäåíî " & r - 2 & " øò.", vbOKOnly, "Ãîòîâî" и в "$B$1" вместо В поставить а все остально оставить или в кавычках все заменить на то что надо,если все заменить не получается.

[IgorGO]

там написано найдено столько-то шт. - информация не принципиальная для работы макроса (это отчет для оператора)

[danika24]

СПАСИБО ОГРОМНОЕ !!!!!!!!!!!!!!!!!!!

[slone2179]

Здравствуйте! А можно сделать, чтобы поиск был до полного совпадения?

[IgorGO]

можно.
замените
Set rg = .[A:A].Find(Target, LookIn:=xlValues, Lookat:=xlPart)
на
Set rg = .[A:A].Find(Target, LookIn:=xlValues, Lookat:=xlWhole)
(в двух местах)

[slone2179]

Спасибо большое! А я пишу xlWhole после запятой, вместо Lookat. Ну как я сам не допер?

[slone2179]

А почему он не пишет, что найдено 0 штук?

[EducatedFool]

Сообщение от slone2179

А почему он не пишет, что найдено 0 штук?

Может, потому, что искомый текст встречается в просматриваемой области именно 0 раз?