Поиск в базе данных

[St-Dyx]

Кто знает - помогите, коль не сложно советом. Есть таблица, состоящая из около 15 тыс. строк и 5-6 столбцов (не так важно). Из неё надо выдернуть только несколько тыс. Проблема в том, что каждому искомому значению соответствуют несколько значений в БД, и надо чтобы нашло и как-нибудь выдернуло все. Или хотя бы окрасило в красивые и приятные глазу цвета. Если не сложно - ответьте, а то искать значения при помощи CTRL+F - как-то бесстолково по-моему.... Заранее спасибо.

[OgE®_M@G]

А сколько условий?С функцией ЕСЛИ пробовал?

[St-Dyx]

Функцией если только найти можно. А вот как скопировать? Ну т.е. чтобы при совпадении значений копировалась вся соответствующая строка.... А ниже - другая, и т.д. Просто найти - этого мала, это и поиском делается. Мне же нескольты тысяч строк копировать вручную прийдеться.

[valerij]

Сообщение от St-Dyx

А вот как скопировать?

Если я выложу макрос, похожий на такую задачу, разберешься самостоятельно?(я, объяснить не смогу)

[St-Dyx]

Э-э.... Попробовать можно... А просто в формулах это не возможно??

[valerij]

Сообщение от St-Dyx

Э-э.... Попробовать можно... А просто в формулах это не возможно??

За формулы не знаю, а этот макрос написал SAS, прекрасно работает, все очень быстро.
По сути, есть два столбца, "А" и "С", "IU"(промежуточный, его мона опустить) при совпадении данных, они, окрашиваются в синий цвет.

Sub CompData() 'Окраска цветом совпавших № накладных
Dim x As Range, Ft As Range, Fst As String, iNd As Integer, i As Long, iVal As String, _
    oSt As Long
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    iNd = ActiveSheet.Index
    Sheets("НАКЛ").Select
    Set Ft = ActiveCell
    ActiveSheet.Unprotect Password:="12345"
    Range(Cells(2, "A"), Cells(Rows.Count, "A")).Interior.ColorIndex = xlNone
    Columns("IU").ClearContents
    Columns("C").Copy
    Range("IU1").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd

    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" And Cells(i, "A") <> 0 Then
            Set x = Columns("IU").Find(what:=Cells(i, "A"), LookAt:=xlWhole)
            If Not x Is Nothing Then
                Fst = x.Address
                Do
                    Cells(i, "A").Interior.ColorIndex = 24
                    Cells(x.Row, "C").Interior.ColorIndex = 24
                    Set x = Columns("IU").FindNext(x)
                Loop While Not x Is Nothing And Fst <> x.Address
            End If
        End If
    Next
    Ft.Select
    Application.EnableEvents = True
Range("A1:A1378").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

[IgorGO]

Э-э.... Попробовать можно... А просто в формулах это не возможно??

можно и без формул. кажись это задача для фильтра. ставим фильт, задаем условие больше, меньше, равно, не равно, содержит, не содержит, начинается и т.д. в результате из всего видим то, что нужно. 2007 даже готов результаты работы фильтра вытащить на другой лист, по желанию...

[St-Dyx]

Да, под фильтр я и хочу подогнать... Скорее всего под цветовой. Ведь даже если "Содержит" - надо чтобы автоматом таблицу пробежал и сам добавлял.... А вот как это сделать? Изменять по-одному можно и при помощи "Заменить" - к примеру залить все соответствуюющие цветом, потом под фильтр. Но вот при вводе команды надо каждый раз вручную в поле "Заменить" вводить искомое значение. А их же до черта!

[St-Dyx]

Блин. Есть формула просматривающаю весь объем БД, а не какие-то конкретные ячейки?! Чтобы можно было её совместить с "Если" и было бы уже неплохо! А за макрос - спасибо чесс слово, спасибо большое за помощь, но увы и ах, я даже не смог найти куда его вставить