Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1873 След.
Цмкл. Переход к следующему условию, если предыдущее не было выполнено
 
Цитата
Nasty621 написал:
Выйти из цикла For при отсутствии условия
Странная формулировка: если условия НЕТ, то и нечего проверять :)
Как на VBA вернуть имя именованного диапазона, который используется в выпадающем списке данной ячейки.
 
kai61, а Вы #12 видели?
Счет определенніх значений в диапазое
 
alcumatory, то, что Вы называете клетками, в Excel принято называть ячейками.
Как на VBA вернуть имя именованного диапазона, который используется в выпадающем списке данной ячейки.
 
Вы же сами установили в строке 3 один единственный диапазон.
Проверьте такой вариант:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NameRange As String, p As Range 'Добавлено Ю.И.
    If Target.Cells.Count > 1 Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    If Not Intersect(Target, Range("D2:D10")) Is Nothing Then
        Application.EnableEvents = False 'Отключили отслеживание событий (Добавлено Ю.И.)
        NameRange = Mid(Target.Validation.Formula1, 2) 'Добавлено Ю.И.
        Set p = Range(NameRange) 'Добавлено Ю.И.)
        If WorksheetFunction.CountIf(p, Target) = 0 Then
            r = MsgBox("Добавить новое имя в справочник?", vbYesNo)
            If r = vbYes Then p.Cells(p.Rows.Count + 1) = Target
        End If
        MsgBox "Значение переменной = " & NameRange, 64, "Для сведения"
    End If
    Application.EnableEvents = True 'Добавлено Ю.И.
End Sub
Как на VBA вернуть имя именованного диапазона, который используется в выпадающем списке данной ячейки.
 
Цитата
kai61 написал:
В этом то и вся заковыка
Т.е., Вы знали, как извлечь имя диапазона, а затруднения именно с этой "заковыкой"?
Как на VBA вернуть имя именованного диапазона, который используется в выпадающем списке данной ячейки.
 
У Вас была подсказка в #3 ))
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NameRange As String 'Добавлено Ю.И.
    Set p = Range("диапазон_1")
    If Target.Cells.Count > 1 Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    If Not Intersect(Target, Range("D2:D10")) Is Nothing Then
        Application.EnableEvents = False 'Отключили отслеживание событий (Добавлено Ю.И.)
        If WorksheetFunction.CountIf(p, Target) = 0 Then
            r = MsgBox("Добавить новое имя в справочник?", vbYesNo)
            If r = vbYes Then p.Cells(p.Rows.Count + 1) = Target
        End If
        NameRange = Mid(ActiveCell.Validation.Formula1, 2) 'Добавлено Ю.И.
        MsgBox "Значение переменной = " & NameRange, 64, "Для сведения"
    End If
    Application.EnableEvents = True 'Добавлено Ю.И.
End Sub
Макрос для вставки в любой ячейки ФИО и текущей даты под ним
 
EdinoroGOK, У меня короче )).
Вернитесь в своё сообщение и оформите код соответствующим тего при помощи кнопки (см. скрин)
Макрос для вставки в любой ячейки ФИО и текущей даты под ним
 
Код
Sub qqq()
    ActiveCell = "ФИО"
    ActiveCell.Offset(1, 0) = Date
End Sub
Пересылка файлов Эксель из аутлука в папку на локальном комп
 
t330, Вы лучше почитайте #3.
А претензии к ВАМ потому, что ВЫ разместили свою тему не на профильном форуме.
Пересылка файлов Эксель из аутлука в папку на локальном комп
 
Цитата
t330 написал:
я же копирую только экселевские файлы
А если бы копировали графические - написали бы на форум по Фотошопу?
Как на VBA вернуть имя именованного диапазона, который используется в выпадающем списке данной ячейки.
 
kai61, а самого файла у Вас нет?
О модераторе
 
Мелким дистанционку? Только удалёнка!  
О модераторе
 
На удалёнку ушёл )
Вытащить из адреса отдельно улицу, № дома и номер квартиры.
 
Цитата
IamDubstpper написал:
не знаю как изменить тему
А Вы читаете, что Вам пишут?
Цитата
vikttur написал:
Предложите .... Модераторы заменят
Вот как ещё нужно сформулировать, чтобы Вы поняли?
О модераторе
 
Цитата
Jack Famous написал:
Кто-то третий был
Sanja был. Сначала сказал, что в связи с переездом на новое ПМЖ временно не сможет заходить на форум, а потом вообще отказался и исчез...
Требуется макрос (макросы) для разделения отчета на разные файлы и сшивания обработанных файлов в один отчет
 
Рекорд (40 секунд) пока не побит )
О модераторе
 
Нифигасе!  Я один буду? ((
аналог оконной функции ранжирования в Power Pivot
 
Чур, не я )
Склейка файлов
 
Здесь смотрели?  
[ Закрыто] Функция ЕСЛИ(И, Несколько функций ЕСЛИ(И в одной формуле
 
Название темы ни о чём.
В самом сообщении не описана задача.
Нет файла-примера.
Тема закрыта, создавайте новую и не повторяйте ошибки..
Склейка файлов
 
Цитата
WolFsun написал:
Все файлы имеют разную между собой структуру
И как тогда склеивать? Вы бы показали пару маленьких файлов, которые нужно склеить и пример, как должна выглядеть склейка.
Один макрос на 17 кнопок в столбце, возможно ли?
 
Цитата
БМВ написал:
количество кнопок просто бесит
Глубокий вдох Глубокая затяжка  :)
Макрос реагирующий на изменение с отметкой даты, Написание макроса который реагирует на изменние на определенных листах .. и оставляет ссылку на адрес изменения и точную дату и время на другом листе
 
Пишу в личку.
Один макрос на 17 кнопок в столбце, возможно ли?
 
Цитата
Redjko написал:
считать действия игроков одним кликом.
Redjko, всегда человек, решающий СВОЮ задачу, понимает её. И зачастую ему кажется, что и для посторонних всё очевидно. Но это не всегда так )
Вот уже три человека не могут Вас понять. Делайте вывод )
Один макрос на 17 кнопок в столбце, возможно ли?
 
Цитата
Mershik написал:
послушать дядю модератора
Всё нормально )
А логику я тоже не понял.
Один макрос на 17 кнопок в столбце, возможно ли?
 
red7ko, смотрите личку.
Вводимые данные отображать в другой таблице в ячейках под этим номером
 
Цитата
multsib написал:
=ЕСЛИ(ЛИСТ2!A1=0;"";ЛИСТ2!A1)
multsib, а эта  формула ТОЧНО для решаемой в этой теме задачи?
[ Закрыто] Удаление строки, Удаление строки
 
Цитата
riority написал:
Удаление строки
Да, строки можно удалять. Ответ получен, тема закрыта.
Будете создавать ДРУГУЮ тему - формулируйте так, чтобы из названия была понятна проблема.
P.S. Заранее пишется слитно.
Вводимые данные отображать в другой таблице в ячейках под этим номером
 
Ничего не меняйте. Пользуйтесь моим вариантом )
Зависимость формулы от текущей даты
 
А зачем ДВА файла?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1873 След.
Наверх