Закрыл 2ю ссылку на обращение к сайту и все заработало. Большое СПАСИБО, в первую очередь "vikttur" и  Вам, "Hugo". В очередной раз очень выручаете "чайника"

с количеством знаков после зпт, понятно, спасибо, но дело в том что курс евро в корне не верный = 26,84 при поиске двух валют

не хочу быть наглым, но не подскажете ли еще какие отправные цифры для поиска других валют: HKD, CNY, GBP, CAD, CHF , а лучше алгоритм поиска
к примеру по USD = 77 знак, начиная от кого символа? (у меня получается 41 символ от 73,7515 до USD)

		840
		USD
		1
		Доллар США
		73,7515

Оогромное спасибо, но не могли бы еще уточнить по ЕВРО: значение 26,8400, но курс Евро , д.б."80,7358", пробовал менять 71, но не дает положительных результатов

при этом для поиска 2й валюты (EUR) поменял сслылку (+1 к переменным)
sURI1 = "http://www.cbr.ru/currency_base/daily/?UniDbQuery.Posted=True&UniDbQuery.To=" & DateSerial(y1, m1, d1)
outstr1 = Mid(htmlcode1, InStr(1, htmlcode1, "EUR") + 71, 5)

где же кроется ошибка?

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

Помогало до 06/04, на более новые даты макрос не обновляет курсы.

Неужели нет вариантов решения?

Добрый день. После смены формата сайта cbr.ru курсы валют перестали подтягиваться. Прошу помочь изменить код макроса для корректной работы.
Есть подозрения что именно в данной строке макроса (файл см. в приложении) корень ошибки

<sURI = "http://old.cbr.ru/currency_base/daily.aspx?C_month=&quot; & m & "&C_year=" _
                 & y & "&date_req=" & d & "%2F" & m & "%2F" & y>

Заранее огромное спасибо, на откликнувшихся по моей проблеме.

Добрый день уважаемые модераторы и пользователи сайта. Воспользовался данной функцией - работает все замечательно.
Вопрос загрузки курсов ин.валют именно с сайта ЕЦБ для меня был очень актуален. Большое ВАМ спасибо.

Решение вопроса: (спасибо sboy из ЭксельВорд)

Добрый день. Прошу помочь в решении задачи приведенной ниже: Имеется вкладка со списком ФИО «Черный список», а также вкладка с Клиентами юр.лицами у которых есть представители (ген. дир, глав бух и проч. лица) При поиске представителей по черному списку необходимо вывести сообщение (любое информационное). Т.к. база достаточна велика то условное форматирование визуально помогает, но не достаточно, поэтому при совпадении дополнительно должно выводиться сообщение. Используя функ с IfEmpty не работает, т.к забита формула (ВПР – поиск совпадений по ФИО), бьюсь второй день с поиском решения, но тщетно… Идеально было бы «своять» макрос чтобы в сообщении указывалось наименование Клиента (+ФИО представителя). По всем совпадениям. Файл во вложении.

Большое спасибо

Добрый день.  
Подскажите пжлста формулу для поиска из диапозона данных и присвоение соотв значения  
Во вложении файл с периодом дней и процентной ставкой.  
При вводе любого числа необходимо найти соотв этому диапозону процентрую ставку

вопрос на засыпку:  
 
если в ячейке "С" с текстом примечания = пусто? то выдает сообщение "400", в идеале необходмо что бы примечание отсутстовало как объект.  
 
в теле макроса видно что примечание вставляется в диапазон ячеки "А", но где прописано что текст примечания в столбце "С"?

Здорово. большое спс.  
Буду адаптировать к своему файлу.

добрый день.  
мне как рядовому пользователю эксель возможно удалось бы решить эту задачу след образом:  
добавить столбец "А" и в нем прописать формулу "если значение ячейки из столбца "В" равно какому-то фруктов"(из списка) то присвоить произвольное значение(напр =1), а если нет то - пусто ("")         и есть макрос удаления пустых строк:  
 
Sub DeleteEmptyRows()  
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count  
Application.ScreenUpdating = False  
For r = LastRow To 1 Step -1  
If Application.Rows®.Columns(1).Value = "" Then Rows®.Delete  
Next r  
End Sub  
 
таким образом у Вас удалятся все строки столбец А у которых равен "" (пусто) а они у Вас уже заложены в формулы  
 
возможно есть более оригинальные и простые способы решения

Добрый день. Воспользовавшись форумом нашел след код: http://www.planetaexcel.ru/forum.php?thread_id=4475 но продолжения темы так и нет во вложении исходный файл. необходимо чтобы текст в ячейке столбца С скопировался в примечание ячейки столбца А

не помогает, результ такой же, первые ячейки корректные, остальные Знач или пусто

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

при вставке листа с датой плюс 1 месяц необходимо также копировать данные с предыдущего листа (диапозон А1:А40) на новый.

Добрый день.  
подскажите пжлста как с помощью макроса добавить вкладки с наименование даты большей предыдущей на 1 месяц, т.е если последняя вкладка "на 01.10.2011" то добавить вкладку с наименованием "на 01.11.2011"

Добрый день.  
задача следующая:  
отследить процентные ставки на предмет их соответствия рыночным  
на первой вкладке таблица сделок    
на второй вкаладке "Эталон" ставок при привлечении кредитов (МИБИД)  
на третьей вкладке "Эталон" ставок при размещении кредитов (МИБОР)  
 
нужна след формула: если "привлекаем" то (если срок 1 день то берем из вкладки МИБИД соотв дате ставку 1дня, если срок больше 1 и меньше 7 то берем ставку 7ми дней...и т.д ЕСЛИ "размещаем" то берем из вкладки МИБОР соотв дате и срокам....