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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1863 След.
Промежуточные итоги
 
Уже целых 4 сообщения ))
Предлагайте новое название - модераторы поменяют.
Промежуточные итоги
 
nlyagin, из названия темы должна быть понятна ПРОБЛЕМА. А Вы перечисляете возможные инструменты  решения.
Удаление данных ячейки при заполнении другой ячейки в одной строке
 
DEN124IS, привыкайте нормально формулировать вопросы. Иначе будет получать такие ответы, как в #2,
Удаление данных ячейки при заполнении другой ячейки в одной строке
 
Ответ получен, и ответ правильный.
Тему можно закрывать )
[ Закрыто] Данные из Телеграмм в Эксель
 
1. Ознакомьтесь с правилами.
2. Зайдите в свой профиль и поменяйте отображаемое имя (логин).
3. Создайте новую тему.
4. Начните сообщение с приветствия )
Выпадающий список отображаемый две колонки
 
Батарея - это мяррр )
Выпадающий список отображаемый две колонки
 
Цитата
БМВ написал:
А что сразу лист бокс?
А потому, что удобно )
Выпадающий список отображаемый две колонки
 
Цитата
rudik написал:
при нажатии на ячейку,
КАКУЮ ячейку? Смотрите в сторону ListBox.
Разделить ФИО по столбцам формулой
 
Я знаю человека с фамилией Петрович )
Пятничный offtop, для порезвиться
 
Миш, ты писал, что Бакарди не очень тебе глянулся. А мне наоборот - очень даже понравился в своё время. Впервые на Кубе его попробовал.
Какого качества он сейчас у нас продаётся - вопрос. Сам давно не пью, а вот друзьям очень нравится )
Удалить выпадающий список по условию, Требуется удалить выпадающий список при изменении значения в ячейке.
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    If Not Intersect(Target, Range("B3:B5")) Is Nothing Then 'Если ячейка пересекается с указанным диапазоном, то
        Application.EnableEvents = False
        If Target = "" Then
            With Target.Offset(0, 3) 'Применительно к ячейке, смещённой на три столбца вправо
                .Validation.Delete 'Удаляем выпадающий
                .Value = ""
            End With
        Else
            Target.Offset(0, 3).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="+,-"
        End If
    End If
Application.EnableEvents = True
End Sub

И столбец G уже не нужен )
Пятничный offtop, для порезвиться
 
Цитата
БМВ написал:
делает любой напиток вкуснее.
И даже уксус?
Удалить выпадающий список по условию, Требуется удалить выпадающий список при изменении значения в ячейке.
 
Уходим от темы про УДАЛЕНИЕ ))
Включите макрорекордер и запишите вставку выпадающего списка. - получите код. Останется добавить:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    If Not Intersect(Target, Range("B3:B5")) Is Nothing Then 'Если ячейка пересекается с указанным диапазоном, то
        Application.EnableEvents = False
        If Target = "" Then
            With Target.Offset(0, 3) 'Применительно к ячейке, смещённой на три столбца вправо
                .Validation.Delete 'Удаляем выпадающий
                .Value = ""
            End With
        Else
            'Здесь строка добавления выпадающего
        End If
    End If
Application.EnableEvents = True
End Sub
Удалить выпадающий список по условию, Требуется удалить выпадающий список при изменении значения в ячейке.
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    If Not Intersect(Target, Range("B3:B5")) Is Nothing Then 'Если ячейка пересекается с указанным диапазоном, то
        Application.EnableEvents = False
        If Target = "" Then
            With Target.Offset(0, 3) 'Применительно к ячейке, смещённой на три столбца вправо
                .Validation.Delete 'Удаляем выпадающий
                .Value = ""
            End With
        End If
    End If
Application.EnableEvents = True
End Sub
Удалить выпадающий список по условию, Требуется удалить выпадающий список при изменении значения в ячейке.
 
Всё верно.
Только я не понимаю, зачем там цикл - зачем каждый раз перебирать ВСЕ ячейки столбца В, если нужно удалить выпадающий список только в одной строке?
И не вижу в коде удаления выпадающего списка. Есть только удаление значения.
Удалить выпадающий список по условию, Требуется удалить выпадающий список при изменении значения в ячейке.
 
Перед циклом вставить строку
Код
Application.EnableEvents = False
А перед выходом из процедуры вернуть в True
Перенос данных из объединенных ячеек одного документа в одну ячейку другого документа. VBA, Макрос VBA
 
Тема та же, но вопрос другой. Если в Вашем файле будет, например, диаграмма, и нужно её отформатировать - тоже в этой теме будем обсуждать?
А что? - файл тот же.
Назначить область печати с условием
 
sunnyb, код следует оформлять соответствующим тегом: ищите такую кнопку (см. скрин) и исправьте своё сообщение.
Автоподбор высоты строки объединенной ячейки
 
И опять здравствуйте!
В так не пробовали найти ответ?
Удалить выпадающий список по условию, Требуется удалить выпадающий список при изменении значения в ячейке.
 
Niko.x87, неплохо бы добавить отключение отслеживания событий.
Как внести данные из UserForm в умную таблицу
 
Я однажды столкнулся с проблемой при определении номера последней заполненной строки в умной таблице. Оказалось, что (в том конкретном случае) появлялась разница в одну строку в зависимости от того, какая ячейка активна. Т.е., если активна ячейка в пределах умной таблицы - один результат. Если за пределами таблицы - другой.
Но через некоторое время пришлось работать с другим файлом, и таи такой разницы не наблюдалось. Чем отличалась одна умная таблица от другой - я так и не понял )
Если не ошибаюсь, и RAN столкнулся с этой проблемой и даже создавал тему по этому поводу.
Разбить записи (строки) в журнале на несколько записей (от количества дней) разделив объем на количество дней
 
См. предложение в личке.
Разбить записи (строки) в журнале на несколько записей (от количества дней) разделив объем на количество дней
 
Цитата
serj-ua написал:
хау мач?
Если готовы оплатить работу, то тему следует перенести в платный раздел и я могу взяться.
Переносить тему?
Разбить записи (строки) в журнале на несколько записей (от количества дней) разделив объем на количество дней
 
Макрос нужно писать.
Пятничный offtop, для порезвиться
 
Цитата
vikttur написал:
кто вспомнит автора этой затеи?
Вроде Серёга.
Только не пойму - почему в основной ветке: Ведь есть "Курилка" для этих целей? ))
Учет наличия с формами прихода / расхода: организации работы документа (Office 2010), Нужны макросы для реализации описанных возможностей по ТЗ
 
Да, информируйте об этом прямыми ссылками.
Создание алгоритма распределения плана продаж на территории
 
Вы тогда определитесь - в платный раздел переносить или в бесплатный. И название бы следовало поменять - имеющееся не отражает проблему/задачу. Предложите новое - модераторы поменяют.
Создание алгоритма распределения плана продаж на территории
 
А почему тема в "Курилке"?
Учет наличия с формами прихода / расхода: организации работы документа (Office 2010), Нужны макросы для реализации описанных возможностей по ТЗ
 
EvgeniyLFC, Вы разместили заказ по крайней мере на двух формах - тендер? Или будете платить каждому исполнителю?
Дописать в ячейку текст через VBA, Дописать в ячейку текст через VBA независимо от того что вводится туда вручную.
 
ar2b, прочитайте личку.
По вопросу: если к числу добавите макросом текст, то значение в ячейке перестанет быть числом.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1863 След.
Наверх