Приветствую!    
Возможно кто-то делал связьExcel и услуги "Мои карты" в Яндексе - прошу откликнуться. В файле есть данные - город, количество мест. Требуется Макрос - находит город в "Мои карты" и ставит метку(в метке Количество мест и Город). Или это закодированная услуга в Яндексе?  
Спасибо.

Приветствую, HUGO!  
У меня тут в файлике вопрос автоматизации решен через ИНДЕКС.  
Вот только в макросе постоянно приходится добавлять/уменьшать номера ячеек. А можно ли прописать так(должна же быть какая-то формула), чтобы макрос проставлял индекс "й" в ячейку В, если ячейка С непустая? А если пустая, то "стоп".  
Спасибо.  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

В этом у меня никаких возможностей.Увы...

{quote}{login=Hugo}{date=25.08.2010 04:02}{thema=}{post}Слушай, забыл совсем про эту задачу...  
Так тут и адрес другой, и искать иначе надо.  
Вечером дома посмотрю.{/post}{/quote}  
 
Мне показалось, что введение промежуточных городов через запятую будет проще. А промежуточные города очень важны - а то маршруты длинные и разные получаются. Плюс на этом сайте доп.результат - км, расход топлива  
спасибо.

Приветствую.  
Попытался поменять адрес сайта, но в чем-то ошибка...не пойму  
 
'изготовлено by HUGO  
Dim from_ As String, to_ As String, rezult_ As String  
from_ = Application.Trim([c3]) 'from_)
to_ = Application.Trim([c4]) 'to_)
sURL = "http://www.sit-trans.com/?start_city=%EC%EE%F1%EA%E2%E0&end_city=%E2%EB%E0%E4%E8%EC%E8­%F0&price_type=length&inter_city=" & from_ & "&City5=" & to_  
URL2HTML  
On Error Resume Next  
rezult_ = Mid(sHtmlCode, InStr(sHtmlCode, "PlaceHolderMain_atiTrace_lblTotalDistance") + 43, 6)  
rezult_ = Replace(rezult_, "<", "")  
rezult_ = Replace(rezult_, "/", "")  
rezult_ = Replace(rezult_, "s", "")  
rezult_ = Replace(rezult_, "p", "")  
rezult_ = Replace(rezult_, "a", "")  
rezult_ = Replace(rezult_, "n", "")  
rezult_ = Replace(rezult_, " 1.0 T", "нет инф.")  
[c5] = Val(rezult_)
End Sub

{quote}{login=Hugo}{date=20.08.2010 08:31}{thema=}{post}По ходу дела на работе обнаружился косяк - у меня всё нормально, но тот же файл при открытии на 2003 офисе зависает и выкидывает в дебаг VBA кода (но ничего не показывает,т.к. завис :)) по причине того, что формула лезет сразу на сайт. Если убрать с листа формулу - всё нормально.  
В общем, переделал формулу в макрос. Срабатывает при активации С5.{/post}{/quote}  
Приветствую, Уважаемый!  
Во-первых, спасибо за уделенное мне время!  
Во-вторых,прошу помочь.  
Не хватает моих знаний в Excel, чтобы понять состав макроса, который Вы мне прислали в файле! И так , и так пробовал - все не то.  
Я тут другой сайт нарыл: http://www.sit-trans.com/?action=distance  
В нем города, через которые идет транспорт, можно записать в одной ячейке через запятую. Мне показалось это более удобным при запросе. В файле я сцепку городов в одну ячейку сделал, обозначил красным где нужен результат (км, бензин). А вот как прописать запрос на сайт - ну не получается!  
Может найдете возможность помочь недотепе.  
Извините за беспокойство.  
С уважением, Андрей

{quote}{login=Hugo}{date=20.08.2010 05:34}{thema=}{post}Там в формуле надо доработать - добавить Trim значениям, а то в случае лишнего пробела в названии не находит.{/post}{/quote}  Все - выгоняют. Поеду, дома покумеекаю... СПАСИБО!

{quote}{login=Hugo}{date=20.08.2010 05:26}{thema=}{post}Попробовал - можно сделать, но города надо заводить номерами.  
Если у Вас городов ограниченное количество и Вы можете составить список соответсвия, тогда можно этот список дать формуле. Если списка нет - тогда нет.  
А кстати формула уже и мне пригодилась. И оно ищет не только по России, но и по Европе тоже.{/post}{/quote} Счписок составить можно. А потом попробовать привязать ПОИСК номера по городу и подстановку

{quote}{login=Hugo}{date=20.08.2010 03:07}{thema=}{post}Да что там теперь разжёвывать - всё готово. Меняете город - получаете новое расстояние.  
А учиться - всегда пригодится.  
Я кстати не профессионал. Просто очень лениво руками всё делать :){/post}{/quote}  
до меня только дошло! Да, это великолепно работает! СПАСИБО! Только при расчете расстояния от А до Б. А можно ли сделать так - от А до А через Б,В,Г,Д?

{quote}{login=Hugo}{date=19.08.2010 09:34}{thema=}{post}Получилось?  
 
Я не нашёл, куда километры вставлять, дописал в конец.  
"Тверь" в формуле не прописывал для универсальности, пишите в строке формул.  
Зато можно просчитаь между любыми городами.  
Рассчитано на 6 цифр, больше наверное не понадобится.  
Отключил Application.Volatile - тормозило. Похоже, что тут не нужно. Смотрите, тестируйте.{/post}{/quote}  
 
День Добрый, Уважаемый Hugo!  
Закон относительности в действии! Думал - знаю, умею... А как столкнулся с истинным профессионалом - он тебе и разжевал и показал - понял, что "баран". Извините, это я про себя, конечно! Полночи учился, по другому не скажешь. Скажу прямо - из всего, что Вы мне написали понял только одно - автоматизировать расчет расстояний в Excel с запросом на сайт возможно. Но как...увы, не туда пальчиком жму видимо. Если у Вас найдется время разжевать мне по пунктам...400-997-633 или and1966@yandex.ru. Заранее благодарен!

{quote}{login=Hugo}{date=19.08.2010 03:58}{thema=}{post}Да вот она, красоту правда не наводил.{/post}{/quote}  
Да, уж не силен в макросах! Надо покорпеть...

{quote}{login=Hugo}{date=19.08.2010 02:37}{thema=}{post}Что-то в примере второго города не вижу. Тамбов? Угадал?{/post}{/quote}  
Спасибо.  
Тверь это.  
Сейчас попробую

День Добрый!  Подскажите, пожалуйста, как создать запрос на сайт на расчет расстояний по маршруту. Поясню. по работе использую сайт www.ati.su для расчета пройденного машиной пути. Для этого задается начальная и конечная точка и промежуточные города. Таких маршруток в день бывает до 70 штук, вот и сижу тупо вбиваю. Может возможно как-то автоматизировать в Excel? Весьма признателен за любую подсказку.