+ Ответить в теме
Показано с 1 по 3 из 3

Тема: Макрос для

  1. #1
    Derden is on a distinguished road
    Регистрация
    19.08.2009
    Возраст
    37
    Сообщений
    2
    Вес репутации
    0

    По умолчанию Макрос для

    Всем добрый день!

    Подскажите, пожалуйста, возможно ли решение такой проблемы в экселе:

    На одном листе находится "статичная база" данных на 1500 строк, в котором есть помимо других данных столбец "фото" с гиперссылками.

    На другой лист вставляются "адресные программы" с различным количеством строк, но с жестким формуляром самой таблицы.

    В этих листах есть три одинаковых столбца.

    Моя задача найти в "статичной базе" адрес идентичный адресу в "адресной программе" и скопировать гипперссылку из столбца "фото" в "статичной базе" в столбец "фото" в "адресной программе".

    Вся проблема в том, что объём работы стал просто нереальный. Иногда за день приходиться обработать и перенести вручную гипперсылки около 2 000 строк. К концу вечера глаза просто уже ничего не видят и за четыре месяца зрение посадил просто зверски.

    На прошлой работе у меня была похожая задача, но там было проще - должны были совпасть только по одной ячейке с адресом, и я автоматизировал с помощью функции "ВПР".
    А тут помимо адреса, есть ещё три стороны А, В и С и адрес поэтому разбит на две ячейки. Например
    ул. Лесная / А
    ул. Лесная / В
    ул. Лесная / С

    и функция "ВПР" уже не может искать совпадения.

    В общем, взываю о помощи. Заранее огромное спасибо за любой совет!

    П.С. Пример прикрепил.
    Вложения

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    developer EducatedFool is on a distinguished road Аватар для EducatedFool
    Регистрация
    06.04.2008
    Адрес
    Россия, Урал
    Возраст
    39
    Сообщений
    196
    Вес репутации
    11

    По умолчанию Re: Макрос для

    Попробуйте такой вариант:



    Вот весь код:
    Код :
    1. [color=darkblue]Sub[/color] CopyHyperLinks()
    2.     [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
    3.     [color=darkblue]Dim[/color] sh [color=darkblue]As[/color] Worksheet: [color=darkblue]Set[/color] sh = Worksheets("ClearChannel Baltics And Russia")
    4.     [color=darkblue]Dim[/color] cell [color=darkblue]As[/color] Range: Application.ScreenUpdating = [color=darkblue]False[/color]
    5.     [color=darkblue]For[/color] [color=darkblue]Each[/color] cell [color=darkblue]In[/color] Range([c6], Range("c" & Rows.Count).End(xlUp)).Cells
    6.         [color=darkblue]If[/color] Len(Trim(cell)) [color=darkblue]Then[/color]
    7.             sh.Range("c:c").Find(cell).Offset(, 1).Resize(3).Find(cell.Next).EntireRow.Cells(2).Copy cell.Previous
    8.         [color=darkblue]End[/color] [color=darkblue]If[/color]
    9.     [color=darkblue]Next[/color] cell: Application.ScreenUpdating = [color=darkblue]True[/color]
    10. [color=darkblue]End[/color] [color=darkblue]Sub[/color]
    11.  
    12. [color=darkblue]Sub[/color] ClearRange()
    13.     Range([b6], Range("b" & Rows.Count).End(xlUp)).ClearContents
    14. End Sub
    Макросы для Excel, Word, CorelDRAW. Быстро, профессионально, недорого. http://ExcelVBA.ru/

    Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216

  4. #3
    Derden is on a distinguished road
    Регистрация
    19.08.2009
    Возраст
    37
    Сообщений
    2
    Вес репутации
    0

    По умолчанию Re: Макрос для

    EducatedFool, спасибо Вам огромное!

    Всё работает просто отлично. Уже попробовал на нескольких программах.

    Вы просто не представляете, как Вы мне помогли. Низко, низко Вам кланяюсь.

    До сих пор не верю, что мне больше не придётся проводить десятки часов нажимая в десятитысячный раз ctrl+v, сtrl+v и уходить работы с покрасневшими глазами.

    Ещё раз огромное-огромное спасибо. Всех Вам благ!

+ Ответить в теме

Похожие темы

  1. Макрос
    Всем добрый вечер. Написал небольшую прогу, которая использует макрос. Макрос вычисляет значение выражения x=3((xxx+2y)(xxx+2y)-yyy-2y)-2(yyy+2x),...
    от ррррррроман в разделе Ассемблер
  2. макрос в word
    Кто разбирается в макросах, помогите пожалуйста. Задача вот какая, есть куча почти одиноковых документов, в них надо в 2х местах менять дату, в...
    от Demm в разделе MS Office и VB(A).
  3. запустить макрос
    Господа, ситуация такая: открыто две рабочие книги, одна из них главная, вторая - накопительная база (собственно только для просмотра). Как мне...
    от VictorM в разделе MS Office и VB(A).
  4. читаем макрос
    как сделать так чтобы при запуске макроса в Excel сначала открывался, какой нить определенный документ в Word в этом документе открывался макрос...
    от rum в разделе MS Office и VB(A).
  5. макрос для графика (vba)
    Подскажите, пожалуйста как созадть макрос, чтобы он строил график по выделенному диапазону данных. Собственно проблема в том чтобы задать...
    от matroskin в разделе MS Office и VB(A).

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения