Здравствуйте уважаемые форумчане. Помогите пожалуйста исправить код макроса. Есть файл с помощью которого можно получить курс инвалюты из сайта Национального банка Таджикистана. Макрос работает отлично. Но так как в самой таблице сайта не по всем датам есть курсы (например 27.11.2001 или 05.01.2005) файл выводит по этим датам неправильно. Необходимо добавить условие: Если нет такой даты, то вывести предыдущий курс от заданной даты и закрасить шрифт красным цветом.
Здравствуйте. Помогу, тем более, что стиль написания макроса мой. Применено условное форматирование.Столбец Е не трогайте. По Вашим датам я пропуска не нашел. По 06.07.2002 есть
Здравствуйте уважаемый Doober. Извините за столь поздний ответ. Не только стиль, а весь код на 100% Ваш, кот.несколько лет назад Вы мне написали и по сей день пользуюсь им. Посмотрел Ваш файл, но все равно выводит некорректно. Например, если задаем дату 27.11.2001, то выходят курсы, но они неправильны. Так как данной даты нет в раскр.списке дат самой страницы сайта.
Спасибо Doober, работает. Только вместо этих строк
Код
MsgBox "Не удалось получить данные", vbCritical, "Подключение"
Exit Sub
Добавил эти:
Код
Range("D8:D" & LastRow) = 0
GoTo 1
...
...
1:
Range("A6") = "Курс на дату: " & inpdate
Application.ScreenUpdating = 1
End Sub
Так как, необходимо чтоб было 0 если нет вводимой даты. В данный момент выходит msgbox, хотя есть подключение. Но если действительно не будет подключения, то выйдет 0.
Здравствуйте уважаемые форумчане. В последнем сообщении (#5) ув. Doober-а прикреплен файл. До сегодняшнего дня данный файл работал. Сейчас выходит ошибка. Сам не смог выявить ошибку, помогите пожалуйста.