Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Ибрагим Белхороев
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 15 След.
Формула выпадающего списка отображает пустые строки
 
#
14.06.2022 16:17:10
V, Ігор Гончаренко, спасибо вам.
 
Перейти    
Формула выпадающего списка отображает пустые строки
 
#
14.06.2022 14:38:28
Ігор Гончаренко, больше ничего не нужно учесть, кроме того, что таблица может расширяться
Изменено: Ибрагим Белхороев - 14.06.2022 14:39:06
 
Перейти    
Формула выпадающего списка отображает пустые строки
 
#
14.06.2022 14:23:20
Ігор Гончаренко, при расширении таблицы это формула не работает. К примеру, если в таблицу1 листа 2 вставить справо столбец, то формула не работает.
 
Перейти    
Формула выпадающего списка отображает пустые строки
 
#
14.06.2022 13:44:25
У меня в ячейках A1 и B1 связанные выпадающие списки, но проблема в том, что формула выпадающего списка ячейки B1 отображает пустые строки, не знаете, как изменить формулу, чтобы в выпадающем списке ячейки B1 отображались только ячейки со значением?
 
Перейти    
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
#
10.06.2022 15:25:15
МатросНаЗебре, макрос немного некорректно работает. Нужно сначала выбрать в выпадающем списке, чтобы потом пустые строки не отображались, а хотелось чтобы сразу пустые строки вообще не отображались в выпадающем списке.
 
Перейти    
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
#
10.06.2022 14:35:02
МатросНаЗебре,  спасибо. А без макроса нельзя как то изменить формулу в сообщении #3, чтобы в выпадающем списке не показовались нули?
 
Перейти    
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
#
10.06.2022 13:13:33
МатросНаЗебре,
Код
=ДВССЫЛ("Таблица1["&Лист1!$A$1&"]")
А как сделать, чтобы в выпадающем списке не выводились нули?
Изменено: Ибрагим Белхороев - 10.06.2022 13:52:56
 
Перейти    
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
#
10.06.2022 11:19:33
МатросНаЗебре, Из этого кода нужно изменить
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B1:B5")) Is Nothing Then
            If Target <> Empty Then
                Dim lr As Long, cell As Range, sh As Worksheet
                Dim ValidFormula As String
                ValidFormula = "=Номера"
                Set sh = Worksheets("Лист2")
                Set cell = sh.Cells.Find(Target)
                Application.EnableEvents = False
                cell.Delete Shift:=xlUp
                If sh.Cells(2, 3) = "" Then
                sh.Cells(2, 3) = Target
                Else
                lr = sh.Cells(Rows.Count, 3).End(xlUp).Row - 1 "
                sh.Cells(lr, 3).ListObject.ListRows.Add AlwaysInsert:=True
                sh.Cells(lr + 1, 3).Value = Target
                End If
                Application.EnableEvents = True
                With Range("B1:B5").Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=ValidFormula
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .ShowInput = True
                    .ShowError = True
                End With
            End If
        End If
 End If
End Sub

Вот эти строки

Код
            If Target <> Empty Then
                Dim lr As Long, cell As Range, sh As Worksheet
                Dim ValidFormula As String
                ValidFormula = "=Номера"
                Set sh = Worksheets("Лист2")
                Set cell = sh.Cells.Find(Target)
                Application.EnableEvents = False
                cell.Delete Shift:=xlUp
                If sh.Cells(2, 3) = "" Then
                sh.Cells(2, 3) = Target
                Else
                lr = sh.Cells(Rows.Count, 3).End(xlUp).Row - 1 "
                sh.Cells(lr, 3).ListObject.ListRows.Add AlwaysInsert:=True
                sh.Cells(lr + 1, 3).Value = Target
                End If

Так, чтобы значения из выпадающего прописывались не в третий столбец листа 2, а в таблицу2 в этом же листе. Это нужно для того, чтобы при расширении таблицы1, каждый раз не менять номер столбца в коде, куда должны прописываться выбранные значения из выпадающего списка.
 
Перейти    
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
#
10.06.2022 10:39:59
МатросНаЗебре, а как в коде прописать, чтобы использованные номера прописывались именно в таблицу2, а не в столбец этой таблицы?
Изменено: Ибрагим Белхороев - 10.06.2022 10:40:16
 
Перейти    
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
#
09.06.2022 11:21:36
Кто нибудь может помочь?
 
Перейти    
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
#
09.06.2022 10:03:21
У меня в файле есть макрос, который удаляет использованные значения выпадающего списка и прописывает в столбец C листа 2, но после выбора одного из значения выпадающего списка, выпадающий список пропадает, не знаете, как решить эту проблему? Также формула выпадающего списка в столбце B некорректно ссылается на значения умной таблицы листа 2.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B1:B5")) Is Nothing Then
            If Target <> Empty Then
                Dim lr As Long, cell As Range, sh As Worksheet
                Dim ValidFormula As String
                ValidFormula = "=Номера"
                Set sh = Worksheets("Лист2")
                Set cell = sh.Cells.Find(Target)
                Application.EnableEvents = False
                cell.Delete Shift:=xlUp
                If sh.Cells(2, 3) = "" Then
                sh.Cells(2, 3) = Target
                Else
                lr = sh.Cells(Rows.Count, 3).End(xlUp).Row - 1
                sh.Cells(lr, 3).ListObject.ListRows.Add AlwaysInsert:=True
                sh.Cells(lr + 1, 3).Value = Target
                End If
                Application.EnableEvents = True
                With Range("B1:B5").Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=ValidFormula
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .ShowInput = True
                    .ShowError = True
                End With
            End If
        End If
 End If
End Sub
Изменено: Ибрагим Белхороев - 10.06.2022 08:01:09
 
Перейти    
Поиск значения при нескольких условиях
 
#
08.06.2022 14:27:31
Ігор Гончаренко, спасибо.
 
Перейти    
Поиск значения при нескольких условиях
 
#
08.06.2022 14:14:26
bigorq, "44720Pobeda"
 
Перейти    
Поиск значения при нескольких условиях
 
#
08.06.2022 14:11:36
Ігор Гончаренко, если увеличить строку в таблице, то формула работает. А что дает это строка, можете объяснить?
 
Перейти    
Поиск значения при нескольких условиях
 
#
08.06.2022 14:01:44
bigorq, получаем объединение текущей даты и значения в ячейке D6, это нужно, чтобы в таблице найти нужную мне ячейку
Изменено: Ибрагим Белхороев - 08.06.2022 14:12:00
 
Перейти    
Поиск значения при нескольких условиях
 
#
08.06.2022 13:53:45
Ігор Гончаренко, вы не знаете, как решить эту проблему?
Изменено: Ибрагим Белхороев - 08.06.2022 13:59:06
 
Перейти    
Поиск значения при нескольких условиях
 
#
08.06.2022 13:44:31
Msi2102, извиняюсь, вроде я прикреплял.
 
Перейти    
Поиск значения при нескольких условиях
 
#
08.06.2022 13:38:32
У меня в ячейке F9 формула массива, которая ищет нужное мне значения из таблиц другого листа, но проблема в том, что в ней возникает ошибка, не знаете, как это исправить?
Изменено: Ибрагим Белхороев - 08.06.2022 13:52:01
 
Перейти    
Обновлять дату каждые 6 месяцев
 
#
01.06.2022 10:36:30
Ігор Гончаренко, формула работает, но немного не так, как мне нужно. К примеру, у меня в ячейке A2 дата 01.11.22 через 6 месяцев должно быть 01.05.22 это будет актуальная дата отпуска, а в ячейке C2 следующая дата отпуска, т.е 01.11.22.
Изменено: Ибрагим Белхороев - 01.06.2022 10:37:56
 
Перейти    
Обновлять дату каждые 6 месяцев
 
#
31.05.2022 19:04:17
Допустим, у меня в одной ячейке определенная дата, ссылаясь на эту ячейку, мне нужно, чтобы в другой ячейке дата каждые 6 месяцев автоматически обновлялась. Как написать такую формулу?
 
Перейти    
При поиске искомого значения в столбце вставить данные из соседнего столбца
 
#
28.05.2022 10:18:03
memo, New, спасибо вам
 
Перейти    
При поиске искомого значения в столбце вставить данные из соседнего столбца
 
#
28.05.2022 00:54:24
У меня в столбце A данные с текстом и номерами в ячейках, а столбце B сумма. Мне нужно, чтобы при поиске номеров из столбца C в столбце A, вставлялась сумма из столбца B.

Прикрепил файл для примера, там несколько строк, а в реальной таблице очень много.  
 
Перейти    
Если ячейка залита красным цветом, то 10*60, если нет то 10*50
 
#
15.05.2022 10:14:22
Не знаете, как написать такую формулу?
 
Перейти    
Поиск всех значении каждого наименования из таблицы
 
#
14.05.2022 09:28:26
memo, спасибо большое, альтернативный вариант помог.
 
Перейти    
Поиск всех значении каждого наименования из таблицы
 
#
13.05.2022 21:58:28
memo, я вот во всю пытаюсь применить эту формулу к своей реальной таблице, но никак не получается, не знаете в чем причина?
Файл не могу приложить размер слишком большой.
Изменено: Ибрагим Белхороев - 13.05.2022 22:19:11
 
Перейти    
Поиск всех значении каждого наименования из таблицы
 
#
13.05.2022 21:11:06
memo, это альтернатива всей формуле?
 
Перейти    
Поиск всех значении каждого наименования из таблицы
 
#
13.05.2022 20:16:12
memo, как я понимаю, если таблица в листе 1 будет в другой книге, то данная формула не будет работать, так как функция СЧЕТЕСЛИ не работает с закрытой книгой?
Изменено: Ибрагим Белхороев - 13.05.2022 20:16:35
 
Перейти    
Поиск всех значении каждого наименования из таблицы
 
#
13.05.2022 20:12:08
memo, в листе 3 показал, то как мне нужно. Задача кажется простой, так как я всего лишь пример показал, а так в реальной таблице данных очень много.
 
Перейти    
Поиск всех значении каждого наименования из таблицы
 
#
13.05.2022 19:45:21
У меня в листе 1 и в листе 2 таблицы, мне нужно вывести такую формулу, чтобы при заполнении в таблице листа 2 указывались все размеры и цены каждого наименования из таблицы листа 1, не знаете как это сделать?
 
Перейти    
Вставить картинку в ячейку из папки рабочего стола при выборе имени картинки в выпадющем списке
 
#
30.03.2022 09:19:50
Дмитрий(The_Prist) Щербаков, я вас понял, спасибо за помощь.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 15 След.
Наверх