Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Усовершенствование макроса по изменению ссылки

Автор MSiUzaQ, 05.07.2012, 05:24

« назад - далее »

MSiUzaQ

Здравствуйте уважаемые знатоки,

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

MSiUzaQ


kuklp

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

MSiUzaQ

Цитата: KuklP от 05.07.2012, 09:04
Так?

К сожалению не работает, все равно приходится переключать месяц на второй странице вручную, а если например сделать ссылку на второй странице на первую на месяц и год, путь на ней все равно не меняется при изменении месяца на первой(

kuklp

:-) Это ж еще пойди пойми из Вашего описания, чего Вы хотите. Ну смотрите.
PS  Делайте ссылку на второй странице на первую на месяц и год.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

MSiUzaQ

Цитата: KuklP от 06.07.2012, 11:39
:-) Это ж еще пойди пойми из Вашего описания, чего Вы хотите. Ну смотрите.
PS  Делайте ссылку на второй странице на первую на месяц и год.

Я так и подозревал что не совсем понятно... Не очень хорошо умею выражать свои мысли(

При открытии прикрепленного файлика выскакивает ошибка, я её заскринил и приложил.

kuklp

Ну и правильно. Это было до моего вмешательства:-) Там лидирующие точки лишние.
Так надо:
With Лист1
    sNed = .Range("J13")
    sFile = .Range("I13")
End With
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

MSiUzaQ

Цитата: KuklP от 06.07.2012, 13:38
Ну и правильно. Это было до моего вмешательства:-) Там лидирующие точки лишние.
Так надо:
With Лист1
    sNed = .Range("J13")
    sFile = .Range("I13")
End With


Был немного под праздником не мог написать. Что-то я делаю не так, но что-то не работает( На второй странице не изменяется путь в ссылке автоматически :'(

kuklp

Я не знаю, как на это отвечать. У меня меняется. Хорошо, вот Ваш файл. Попробуйте на первом листе менять месяц в ячейке С1.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

MSiUzaQ

Цитата: KuklP от 08.07.2012, 17:58
Я не знаю, как на это отвечать. У меня меняется. Хорошо, вот Ваш файл. Попробуйте на первом листе менять месяц в ячейке С1.

Может быть у меня с настройками EXCEl-я проблемы? по тому что у меня даже на первом листе перестал меняться путь(

kuklp

А может у Вас макросы отключены? Кто смотрит тему, отпишитесь плиз - работает ли мой файл?
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Kupava

Цитата: KuklP от 08.07.2012, 18:37
А может у Вас макросы отключены? Кто смотрит тему, отпишитесь плиз - работает ли мой файл?
У меня работает, если включила макросы. Думаю, у товарища именно это не учтено!

kuklp

Спасибо, Kupava. Я-то не сомневался, у меня тоже работает, но хоть как-то убедить ТС Вы мне помогли ;)
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

MSiUzaQ

Все оказывается действительно работает, у меня какая-то странная проблема с EXCEL приключилась( на другом компе все завелось без проблем. Спасибо большое)