автоматизация поиска данных excel файла в другом excel файле с соответствующими пометками!

[ruotches]

Существует файл (в моем примере «основная книга»), состоящий из закладок, соответствующих месяцам года.
За каждый день вносятся данные о выпущенных картах: вид карты , номер карты, фио владельца.
Далее карты нужно распределить: либо в отделение, либо на почту, либо доставка курьером. В соответствующем столбце "Основной книги" нужно проставить дату, когда карта ушла. Эта книга очень большая.
Что я хочу: чтобы вручную не искать каждую карту(очень много времени уходит) и проставлять в соответствующем столбце дату ее «ухода», мне бы хотелось как-то автоматизировать это дело.
При выгрузке всех карт к примеру, в отделение, у меня формируется файлик, содержащий № карты и ФИО. Мне нужно как-то найти в моей огромной книге все эти карты (я думаю, по номеру карты, т.к. он уникален) и проставить дату в соответствующем столбце(или на крайняк выделить другим цветом человека).
Подскажите, как это можно организовать?
Спасибо заранее!

[doober]

Подскажите, как это можно организовать?

будут файлы,а там и решение появится.
Не хочеться все это выдумывать.

[ruotches]

к сожалению, не могу приложить оригинал, он большой

[doober]

Жмем на знакомую кнопку,в форме на кнопочку со значком Excel.
Выбираем файл выгрузки.
далее в Листбоксе.Можно конечно сделать,что после редактирования запись с листбокса убирается


Добавил вариант основная книгаV2 с удалением с Листбокса отредактированной записи

[Hugo121]

Может быть кто-нибудь напишет код под задачу, а у меня есть универсальный:
http://excel.ucoz.ru/index/comparefiles_find/0-25
- тут для 2007 Экселя
http://hugo.nxt.ru/CompareFiles.Find.rar
- тут есть версия и для 2000 Экселя

Примерные настройки:
Файл - приёмник: C:\Temp\ruotches\основная книга.xls
Файл - источник: C:\Temp\ruotches\выгрузка.xls
Столбцы сравнения в приёмнике: b
Столбцы сравнения в источнике: a
Лист - приёмник (№): 1
Лист - источник (№): 1
Столбцы - приёмники данных копирования: i
Столбцы - источники данных копирования: c

Вместо столбца i указать нужный в зависимости от вида выгрузки.
Есть опция "все файлы в этой папке с этими настройками" - тогда будут просмотрены все файлы выгрузок папки.
15 попыток бесплатно.

[Милена99982]

Помогите, пожалуйста! Приходится работать в Эксель для составления смет. Есть база расценок с определенными номерами, я их копипастом пользую, но это отнимает массу времени. Можно ли что-то придумать так, чтобы забивая в поиск номер расценки в рабочем файле, получать ее из базы полностью?

[Милена99982]

т.е., если я забиваю в столбце В рабочего файла "Е27-72-1", то хотелось бы получить всю строку из базы. Надеюсь на Вашу помощь.

[Hugo121]

Вышеупомянутым файлом - только адреса поменялись, брать тут:
http://ibay.narod.ru/other/CompareFiles.Find.rar
или
http://www.excelworld.ru/index/comparefiles_find/0-25

с такими настройками

Файл - приёмник: c:\Temp\Милена99982\Пример сметы.xls
Файл - источник: c:\Temp\Милена99982\СНиР - копия.xls
Столбцы сравнения в приёмнике: b
Столбцы сравнения в источнике: b
Лист - приёмник (№): 1
Лист - источник (№): 2
Столбцы - приёмники данных копирования: g,h,i,n,p
Столбцы - источники данных копирования: g,h,i,n,p

меняя листы от 2 до 7 удалось подтянуть расценки по 10 позициям (из 19) - вероятно остальные записаны иначе или их нет.
Например "С30-8-36" в книге нет нигде.
Правда на некоторых листах вылетает в ошибку (например на первом... что-то там в листах не так...), но результат не портит.

Сразу предупреждаю - только 15 пробных запусков бесплатно!

Но конечно можно пробовать писать другой макрос, под конкретную задачу.

[kalbasiatka]

Сообщение от Милена99982

Помогите, пожалуйста! Приходится работать в Эксель для составления смет.

У дорожных строителей нет денег на сметную программу?

[Hugo121]

Вариант узко специализированный - этот код помещаете в модуль в файл "СНиР - копия.xls", естественно сохраняете файл. Открываете файл.
Открываете файл "Пример сметы.xls" или любой другой, заполняете все номера любого листа (все эти Е27-82-1), затем Alt+F8 и выбираете макрос smeta из файла "СНиР - копия.xls".
Один лист готов.

Option Explicit

Sub smeta()
    Dim a(), i&, sh As Worksheet, cc As Range, arr

    With CreateObject("scripting.dictionary")
        .comparemode = 1
        For Each sh In ThisWorkbook.Worksheets
            With sh
                a = Range(.[b1], .Cells(.Rows.Count, "B").End(xlUp)).Value
            End With
            For i = 1 To UBound(a)
                If Len(a(i, 1)) Then
                    If InStr(a(i, 1), "-") Then
                        .Item(a(i, 1)) = sh.Name & "|" & i
                    End If
                End If
            Next
        Next
        For Each cc In ActiveSheet.Range([b1], Cells(Rows.Count, "B").End(xlUp)).Cells
            If .exists(cc.Value) Then
                arr = Split(.Item(cc.Value), "|")
                With ThisWorkbook.Sheets(arr(0)).Rows(arr(1))
                    cc.Offset(, 1) = .Cells(3)
                    cc.Offset(, 2) = .Cells(4)
                    cc.Offset(, 4) = .Cells(6)
                    cc.Offset(, 5) = .Cells(7)
                    cc.Offset(, 6) = .Cells(8)
                    cc.Offset(, 7) = .Cells(9)
                    cc.Offset(, 12) = .Cells(14)
                    cc.Offset(, 14) = .Cells(16)
               End With
            End If
        Next
    End With
End Sub

Можно и формулы тоже макросом сразу ставить, но если заполняете шаблон - их несложно протянуть.