Добрый день, уважаемые форумчане! Столкнулся со следующей проблемой. Имеется макрос choose_data, который вводит формулу в диапазон B8:B108 листа "Терапевтическое". Он работает. Возникла необходимость вносить изменения в эту формулу в нем, в зависимости от выбранных дат на листе "Контроль". В частности, речь идет о выборе файла с названием выбранной даты (например, 01_1.xlsm или 24_11.xlsm). Пробовал в макросе choose_formula дать имя выбираемому диапазону - m и вставить его в эту формулу. Он не работает. Ругается желтым на формулу. Что-то делаю не так. Прошу помочь.
Добрый день, уважаемые форумчане! Столкнулся со следующей проблемой. Имеется макрос choose_data, который вводит формулу в диапазон B8:B108 листа "Терапевтическое". Он работает. Возникла необходимость вносить изменения в эту формулу в нем, в зависимости от выбранных дат на листе "Контроль". В частности, речь идет о выборе файла с названием выбранной даты (например, 01_1.xlsm или 24_11.xlsm). Пробовал в макросе choose_formula дать имя выбираемому диапазону - m и вставить его в эту формулу. Он не работает. Ругается желтым на формулу. Что-то делаю не так. Прошу помочь.Leviven
Nic70y, Спасибо огромное! Смысл в этой формуле есть - он автоматически проставляет ссылки на указанный файл по выбору даты, в котором есть информация и переносит ее в столбец B для дальнейших вычислений. В этом столбце - длинный список пациентов. Поэтому любые изменения в указанном файле будут отражены в столбце. Иными словами - связь, выбранная пользователем.
Nic70y, Спасибо огромное! Смысл в этой формуле есть - он автоматически проставляет ссылки на указанный файл по выбору даты, в котором есть информация и переносит ее в столбец B для дальнейших вычислений. В этом столбце - длинный список пациентов. Поэтому любые изменения в указанном файле будут отражены в столбце. Иными словами - связь, выбранная пользователем.Leviven
Nic70y, Добрый день! Прошу прощения за навязчивость, но вот не могу понять, почему смена месяца макросом choose_m прекрасно работает, замена дня кодом Proba тоже работает. А вот макрос choose_dt по выбору из ячейки T2 никак не хочет работать. Вот рабочий макрос: [vba]
Код
Sub Proba() For Each ws In Worksheets ws.Activate Cells.Replace What:="1'!", Replacement:="27'!", LookAt _ :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False
Next ws Sheets("Контроль").Select End Sub
[/vba] А этот не работает: [vba]
Код
Sub choose_dt() Sheets("Контроль").Select Dim m As Range Set m = Range("T2") For Each ws In Worksheets ws.Activate Cells.Replace What:="[1'!]", Replacement:="[" & m & "'!]", LookAt _ :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False
Next ws Sheets("Контроль").Select End Sub
[/vba]
Nic70y, Добрый день! Прошу прощения за навязчивость, но вот не могу понять, почему смена месяца макросом choose_m прекрасно работает, замена дня кодом Proba тоже работает. А вот макрос choose_dt по выбору из ячейки T2 никак не хочет работать. Вот рабочий макрос: [vba]
Код
Sub Proba() For Each ws In Worksheets ws.Activate Cells.Replace What:="1'!", Replacement:="27'!", LookAt _ :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False
Next ws Sheets("Контроль").Select End Sub
[/vba] А этот не работает: [vba]
Код
Sub choose_dt() Sheets("Контроль").Select Dim m As Range Set m = Range("T2") For Each ws In Worksheets ws.Activate Cells.Replace What:="[1'!]", Replacement:="[" & m & "'!]", LookAt _ :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
