нашел данную вещ на форумах... все устраивает но ахота подкорректировать что бы при двойном клике на столбце А листа shHelp выпадала форма и автоматом предлагался список с листа shLists то же со столбца А ну и тд.....столбец В ... со столбца В соответственно.. помогите подалуйста. думаю многим понравиться
нашел данную вещ на форумах... все устраивает но ахота подкорректировать что бы при двойном клике на столбце А листа shHelp выпадала форма и автоматом предлагался список с листа shLists то же со столбца А ну и тд.....столбец В ... со столбца В соответственно.. помогите подалуйста. думаю многим понравитьсяExtybr
Pelena, подскажите пожалуйста как в оригинале, в лист куда вставляются значения вставил option explicit. не работает другой макрос, по событию Private Sub Worksheet_Change(ByVal Target As Range) как подружить?
Pelena, подскажите пожалуйста как в оригинале, в лист куда вставляются значения вставил option explicit. не работает другой макрос, по событию Private Sub Worksheet_Change(ByVal Target As Range) как подружить?Extybr
option explicit требует обязательного объявления переменных. Если "другой макрос" до этого работал, уберите option explicit. Ну, или объявите все переменные в этом "другом" макросе
option explicit требует обязательного объявления переменных. Если "другой макрос" до этого работал, уберите option explicit. Ну, или объявите все переменные в этом "другом" макросеPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Private Sub Worksheet_Change(ByVal Target As Range) Target.EntireRow.AutoFit For Each cell In Target If Not Intersect(cell, Range("Оплата")) Is Nothing Then With cell.Offset(0, -2) .Value = Date End With End If Next cell Application.EnableEvents = False If Not Intersect(Target, Range("Диапазон1", "Диапазон2")) Is Nothing Then Cells(Target.Row, 11) = "1" Application.EnableEvents = True End Sub
[/vba] суть макроса в том, что при любом изменении в ячейках диапазонов 1 2 в в столбец ставиться отметка 1 это для расчета (подстановки формул) вы же и помогли этот макрос навоять. ща если с Оption excplicit это не пашет, если убрать Оption excplicit то не работает то что в теме. и еще если с Оption excplicit то после срабатывания макроса вставки в столбец текста что в этой теме, срабатывает сохранение файла почемуто....
Pelena, [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Target.EntireRow.AutoFit For Each cell In Target If Not Intersect(cell, Range("Оплата")) Is Nothing Then With cell.Offset(0, -2) .Value = Date End With End If Next cell Application.EnableEvents = False If Not Intersect(Target, Range("Диапазон1", "Диапазон2")) Is Nothing Then Cells(Target.Row, 11) = "1" Application.EnableEvents = True End Sub
[/vba] суть макроса в том, что при любом изменении в ячейках диапазонов 1 2 в в столбец ставиться отметка 1 это для расчета (подстановки формул) вы же и помогли этот макрос навоять. ща если с Оption excplicit это не пашет, если убрать Оption excplicit то не работает то что в теме. и еще если с Оption excplicit то после срабатывания макроса вставки в столбец текста что в этой теме, срабатывает сохранение файла почемуто....Extybr
Этот макрос должен быть в модуле листа. Кстати, куда вы его вставляете? Я корректировала макрос в стандартном модуле. Они вообще нигде не пересекаются и не мешают друг другу. Сохранение файла у вас было изначально прописано при закрытии формы
Этот макрос должен быть в модуле листа. Кстати, куда вы его вставляете? Я корректировала макрос в стандартном модуле. Они вообще нигде не пересекаются и не мешают друг другу. Сохранение файла у вас было изначально прописано при закрытии формыPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Pelena, уберите пожалуйста сохранение при закрытии формы и этот макрос что написал в пр сообщ он и расположен в модуле листа. и тпм же прописано Оption excplicit ..
Pelena, уберите пожалуйста сохранение при закрытии формы и этот макрос что написал в пр сообщ он и расположен в модуле листа. и тпм же прописано Оption excplicit ..Extybr
Extybr, сколько бы вы не писали, что можно гвозди забивать комарами, вам все равно не поверят без убедительных доказательств, а именно, файла, в котором гвозди не желают забиваться комарами.
Extybr, сколько бы вы не писали, что можно гвозди забивать комарами, вам все равно не поверят без убедительных доказательств, а именно, файла, в котором гвозди не желают забиваться комарами.RAN
Pelena, Лена прошу прощения за напряг, удалил option excplicit и все работает......но пожалуйста подскажите что убрать с кода чтоб не было автосорхранения после каждого закрытия формы.
Pelena, Лена прошу прощения за напряг, удалил option excplicit и все работает......но пожалуйста подскажите что убрать с кода чтоб не было автосорхранения после каждого закрытия формы.Extybr
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
