Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 15 След.
Формула выпадающего списка отображает пустые строки
 
V, Ігор Гончаренко, спасибо вам.
Формула выпадающего списка отображает пустые строки
 
Ігор Гончаренко, больше ничего не нужно учесть, кроме того, что таблица может расширяться
Изменено: Ибрагим Белхороев - 14.06.2022 14:39:06
Формула выпадающего списка отображает пустые строки
 
Ігор Гончаренко, при расширении таблицы это формула не работает. К примеру, если в таблицу1 листа 2 вставить справо столбец, то формула не работает.
Формула выпадающего списка отображает пустые строки
 
У меня в ячейках A1 и B1 связанные выпадающие списки, но проблема в том, что формула выпадающего списка ячейки B1 отображает пустые строки, не знаете, как изменить формулу, чтобы в выпадающем списке ячейки B1 отображались только ячейки со значением?
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
МатросНаЗебре, макрос немного некорректно работает. Нужно сначала выбрать в выпадающем списке, чтобы потом пустые строки не отображались, а хотелось чтобы сразу пустые строки вообще не отображались в выпадающем списке.
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
МатросНаЗебре,  спасибо. А без макроса нельзя как то изменить формулу в сообщении #3, чтобы в выпадающем списке не показовались нули?
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
МатросНаЗебре,
Код
=ДВССЫЛ("Таблица1["&Лист1!$A$1&"]")
А как сделать, чтобы в выпадающем списке не выводились нули?
Изменено: Ибрагим Белхороев - 10.06.2022 13:52:56
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
МатросНаЗебре, Из этого кода нужно изменить
Код
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, каждый раз не менять номер столбца в коде, куда должны прописываться выбранные значения из выпадающего списка.
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
МатросНаЗебре, а как в коде прописать, чтобы использованные номера прописывались именно в таблицу2, а не в столбец этой таблицы?
Изменено: Ибрагим Белхороев - 10.06.2022 10:40:16
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
Кто нибудь может помочь?
Удаление использованных данных из выпадающего списка и прописывание их в отдельную таблицу
 
У меня в файле есть макрос, который удаляет использованные значения выпадающего списка и прописывает в столбец 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
Поиск значения при нескольких условиях
 
Ігор Гончаренко, спасибо.
Поиск значения при нескольких условиях
 
bigorq, "44720Pobeda"
Поиск значения при нескольких условиях
 
Ігор Гончаренко, если увеличить строку в таблице, то формула работает. А что дает это строка, можете объяснить?
Поиск значения при нескольких условиях
 
bigorq, получаем объединение текущей даты и значения в ячейке D6, это нужно, чтобы в таблице найти нужную мне ячейку
Изменено: Ибрагим Белхороев - 08.06.2022 14:12:00
Поиск значения при нескольких условиях
 
Ігор Гончаренко, вы не знаете, как решить эту проблему?
Изменено: Ибрагим Белхороев - 08.06.2022 13:59:06
Поиск значения при нескольких условиях
 
Msi2102, извиняюсь, вроде я прикреплял.
Поиск значения при нескольких условиях
 
У меня в ячейке F9 формула массива, которая ищет нужное мне значения из таблиц другого листа, но проблема в том, что в ней возникает ошибка, не знаете, как это исправить?
Изменено: Ибрагим Белхороев - 08.06.2022 13:52:01
Обновлять дату каждые 6 месяцев
 
Ігор Гончаренко, формула работает, но немного не так, как мне нужно. К примеру, у меня в ячейке A2 дата 01.11.22 через 6 месяцев должно быть 01.05.22 это будет актуальная дата отпуска, а в ячейке C2 следующая дата отпуска, т.е 01.11.22.
Изменено: Ибрагим Белхороев - 01.06.2022 10:37:56
Обновлять дату каждые 6 месяцев
 
Допустим, у меня в одной ячейке определенная дата, ссылаясь на эту ячейку, мне нужно, чтобы в другой ячейке дата каждые 6 месяцев автоматически обновлялась. Как написать такую формулу?
При поиске искомого значения в столбце вставить данные из соседнего столбца
 
memo, New, спасибо вам
При поиске искомого значения в столбце вставить данные из соседнего столбца
 
У меня в столбце A данные с текстом и номерами в ячейках, а столбце B сумма. Мне нужно, чтобы при поиске номеров из столбца C в столбце A, вставлялась сумма из столбца B.

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