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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 33 След.
как вставить значение в строку
 
Wild.Godlike, Спасибо огромное, работает
как вставить значение в строку
 
Доброго времени, Уважаемые Форумчане. Прошу подсказать как можно вставить дату в строку, Точнее в ячейке А1 выражение ст/лн.13; ст/лн.14.2; ст/лн.15.33; ст/лн.16а, в ячейке С1 дата. В ячейке F1 Должно получиться ст/лн.13 от 03.03.2019г.; ст/лн.14.2 от 03.03.2019г.; ст/лн.15,33 от 03.03.2019г.; ст/лн.16а. После последнего выражения дата не ставится. Выражение могут быть различной длины Заранее благодарен всем, кто откликнется
Как найти значение по трём критериям
 
artyrH, не увидел просто пробел
Как найти значение по трём критериям
 
БМВ, Спасибо огромное, а я весь мозг себе сломал что не так)))
Как найти значение по трём критериям
 
БМВ,Здравствуйте, вот к примеру ячейка L2 лист 2. В ней должно попасть значение по трем критериям.  А2,= лист1 А2:А28; М1=Лист1В2:В28; Р1=Лист1D1:D28
Как найти значение по трём критериям
 
Доброго времени, Уважаемые Форумчане! Прошу подсказать как найти значение по трем критериям Использовал конструкции
Код
=ИНДЕКС(Лист1!$C:$C;ПОИСКПОЗ($A2&M$1&$P$1;Лист1!$A:$A&Лист1!$B:$B&Лист1!$D:$D;0);1)
=СУММПРОИЗВ(--($A2=Лист1!$A$2:$A$28);--(N$1=Лист1!$B$2:$B$28);Лист1!$C$2:$C$28)
=ПРОСМОТР(2;1/($A2&M$1&$P$1=Лист1!$A$2:$A$28&Лист1!$B$2:$B$28&Лист1!$D$2:$D$28);Лист1!$C$2:$C$28)
не помогают. Заранее благодарен всем  кто откликнется
Как скрыть отобразить пустые или нулевые строки
 
Господа, может что то не правильно описал?
Как скрыть отобразить пустые или нулевые строки
 
vikttur,Загрузил
Как скрыть отобразить пустые или нулевые строки
 
Опять ошибка, господа подскажите, почему выскакивает ошибка индекс вне диапазона, в момент срабатывания макроса скрыть когда вставил код в рабочий документ
Как скрыть отобразить пустые или нулевые строки
 
спасибо огромнейшее
Как скрыть отобразить пустые или нулевые строки
 
Доброго времени уважаемые форумчане, прошу подсказать как подкорректировать макрос чтобы он скрывал и отображал строки второго столбца, но только учитываться должны не только пустые ячейки, но и нулевые. Заранее благодарен
Код
Sub Скрыть()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim LastRow, ST_A() As Variant
Dim ii As Integer
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
ReDim ST_A(LastRow, 1)
ST_A = Range(Cells(1, 1), Cells(1 + LastRow - 1, 1))

For ii = 1 To LastRow
    If ST_A(ii, 1) = 0 Or ST_A(ii, 1) = "" Then
       Rows(ii).Hidden = True
    End If
Next

MsgBox "ГОТОВО"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Как сформировать список без повторов по нескольким критериям
 
artyrH,спасибо огромное, не заметил свою ошибку
Как сформировать список без повторов по нескольким критериям
 
Доброго времени, Уважаемые форумчане, прошу подсказать как сформировать такой же список из колонки допP3:P43, только добавляется еще один критерий на листе ДопCF3:CF43 выбрать данные в ячейке которой будет текст "11" Заранее благодарен. Использовал формулу:
Код
=ИНДЕКС(доп!$P$1:$P$44;АГРЕГАТ(15;6;СТРОКА($A$1:$A$49)/ЕНД(ПОИСКПОЗ(доп!$P$1:$P$44;AW$4:AW4;0))/($AV$1=доп!$CF$4:$CF$44)/(AW$4=доп!$J$1:$J$44)/(main!$B$3=доп!$I$1:$I$44);1))
,но она не правильно формирует  
Как сформировать список без повторов по нескольким критериям
 
artyrH,Спасибо большое, работает
Как сформировать список без повторов по нескольким критериям
 
Доброго времени, Уважаемые Форумчане! Прошу подсказать, как сформировать список на листе "сводная" из таблицы на листе "доп" по критериям на листе "main". проще говоря если на листе "main" в ячейке В3 "Фрагмент 4" и в ячейке DS3 "УЗОУ1364", то выбираем из таблицы на листе "доп" значения из столбца С сравниваем критерии столбцов I : J и формируем список уникальными значениями на листе "сводная" столбец с заголовком "УЗОУ1364".Соответственно если  листе "main" в ячейке   DS3 "КУ1338"  то заполняем столбик на листе "сводная" с заголовком "КУ1338". Заранее благодарен
Как отметить если есть совпадение
 
Спасибо ,большое ,работает
Как сцепить ячейки по нескольким условиям без повторов
 
Sanja, там файл больше 1,5 мб, возможно он конфликтует с другими кодами
к сожалению код работает нестабильно на 3000 строк, возможно конфликт с другими макросами
Как отметить если есть совпадение
 
Доброго времени ,уважаемые форумчане, прошу подсказать как сделать так чтобы при совпадении значений списка из листа 2 со списком на листе 1 в колонке R проставилась "1".  
Как сцепить ячейки по нескольким условиям без повторов
 
Sanja, по идее да, но этот код очень не стабильна, любое изменение на листе, и он перестает работать, я с ним как то мучался, В конечном итоге заменил на СцепитьЕсли, но сейчас много условий
Как сцепить ячейки по нескольким условиям без повторов
 
Sanja, доброго времени сцепить
Изменено: alex1210 - 8 Фев 2019 18:23:50
Как сцепить ячейки по нескольким условиям без повторов
 
Доброго времени Уважаемые Форумчане! Прошу помочь доработать функцию сцепки с несколькими условиями, чтобы она сцепляла без повторов. Заранее благодарен
Код
Function СЦЕПИТЬЕСЛИМН(rngU As Range, ParamArray Conditions()) As String
'rngU - диапазон сцепления
'Conditions() - массив ПАР значений вида: Диапазон_Условий1;Условие1;Диапазон_Условий2;Условие2...Диапазон_УсловийN;УсловиеN, обязательный
'               должен иметь хотя-бы одну пару значений.
'Разделителем найденных уникальных значений является ', ' (запятая с пробелом)
'Все диапазоны должны состоять из одного столбца и иметь равное кол-во строк
Dim cl()
Dim arrFlag() As Boolean
Dim I&, j&
On Error Resume Next
cl = rngU.Value
For I = 1 To UBound(cl)
    ReDim arrFlag(Int(UBound(Conditions) / 2))
    For j = LBound(Conditions) To UBound(Conditions) Step 2
        If rngU.Parent.Cells(rngU(I).Row, Conditions(j).Column).Value Like Conditions(j + 1) Then
            arrFlag(Int(j / 2)) = True
        End If
      If БезПовторов Then
        Dim oDict As Object, sTmpStr
        Set oDict = CreateObject("Scripting.Dictionary")
        sTmpStr = Split(sStr, разделитель)
        On Error Resume Next
        For li = LBound(sTmpStr) To UBound(sTmpStr)
            oDict.Add sTmpStr(li), sTmpStr(li)
        Next li
        sStr = ""
        sTmpStr = oDict.Keys
        For li = LBound(sTmpStr) To UBound(sTmpStr)
            sStr = sStr & IIf(sStr <> "", разделитель, "") & sTmpStr(li)
        Next li
    End If
        
    Next
    If WorksheetFunction.And(arrFlag) = True Then
         
        
        If СЦЕПИТЬЕСЛИМН <> Empty Then
            СЦЕПИТЬЕСЛИМН = СЦЕПИТЬЕСЛИМН & " " & cl(I, 1)
        Else
            СЦЕПИТЬЕСЛИМН = cl(I, 1)
        End If
  
    
    End If
    
Next
End Function
как просуммировать внутри групп
 
БМВ, О, заработАло!!!! Спасибо еще раз!
как просуммировать внутри групп
 
БМВ, не получается у меня все равно на рабочем примере
как просуммировать внутри групп
 
БМВ, Подскажите, а почему когда на листе 2 я вставляю сверху строку, сумма уменьшается
как просуммировать внутри групп
 
БМВ,а сейчас что то вообще не считает
как просуммировать внутри групп
 
БМВ, прописываю код в рабочую книгу, не работает ,подскажите, что делаю не так
как просуммировать внутри групп
 
БМВ, спасибо огромнейшее, работает как надо
как просуммировать внутри групп
 
Доброго времени, Уважаемые Форумчане, прошу подсказать кк можно просуммировать значения в колонке D (лист 1) в ячеёке C 4 (лист 2)по условиям. Критерии: B1 Лист2=A:A (лист2); С1 (Лист2)=В:В(Лист1); В2 (лист 2)=С:С. В ячейке В2(Лист2) выбираем значения через запятую с диапазона С:С и в ячейке C4 (Лист 2) суммируются значения из диапазона D:D (Лист 1). Заранее спасибо
Как сцепить ячейки по условию
 
V, Спасибо огромное, а главное что у меня была записана эта UDF

БМВ, спасибо большое, тоже интересное решение , буду внедрять где нельз использовать макросы
Как сцепить ячейки по условию
 
V,сцепить если не походит, там выбор из колонки, у у меня со строки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 33 След.
Наверх