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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 14 След.
При сохранении отдельных листов книги имя книги брать из текста ячейки
 
starter, доброй ночи, попробуйте Вашу формулу вставить в ячейку В22, а в коде макроса А22 поменяйте на В22
Цикл. Переход к следующему условию, если предыдущее не было выполнено
 
Nasty621, добрый день, у Вас какая-то проблема в коде макроса, чтобы понять что за проблема, нам нужно понять что делает Ваш макрос. Чтобы понять что делает Ваш макрос нужно: либо чтобы Вы сами объяснили (например, копирует то-то туда-то при условии того-то), либо самим помогающим сесть и потратить свое время и самостоятельно разобраться в Вашем, честно скажу, "трудночитаемом" коде.
Так почему бы не пойти навстречу и не объяснить что делает Ваш код простыми словами, а не обижаться?
Ведь здесь помогают не платно, зачем же себя вести так, буд-то тут Ваши подчиненные?!!! (кстати, это ко многим "просящим помочь" относится)
Извлечь фрагмент между первой и второй запятой
 
=ПСТР(A2;ПОИСК(",";A2)+1;ПОИСК(",";A2;ПОИСК(",";A2)+1)-ПОИСК(",";A2)-1)

Автоматическое увеличение диапазона таблицы при добавление новых данных в другую таблицу
 
Добрый вечер. Попробуйте макросом обновлять список уникальных дат в Вашей умной таблице
Код
Sub Unikalnie()
Dim Cell As Range
Dim myCollection As New Collection
Dim myElement As Variant
Dim LastRow, i As Long

On Error Resume Next
LastRow = ThisWorkbook.Sheets("Лист1").Range("B1000000").End(xlUp).Row
For Each Cell In ThisWorkbook.Sheets("Лист1").Range("B2:B" & LastRow)
    myCollection.Add CStr(Cell.Value), CStr(Cell.Value)
Next Cell
On Error GoTo 0

i = 2
For Each myElement In myCollection
    ThisWorkbook.Sheets("Лист2").Range("A" & i) = myElement
    i = i + 1
Next myElement

End Sub
Изменено: Настя_Nastya - 27 Мар 2020 23:25:42
Связка с индексом при формировании выпадающего списка из уникальных значений
 
У Вас же есть этот список, разбитый по ячейкам... его и вводите
Связка с индексом при формировании выпадающего списка из уникальных значений
 
Цитата
berstrider написал:
как строку превратить в раскрывающийся список
через проверку данных...
Ограничить тип символов, которые могут идти после искомого значения, которое используется как подстрока
 
Без файла-примера помощь ждать будете, скорее всего, очень долго...
Макрос VBA Для определения наименьшей даты с показателем >100%
 
Добрый день!
Код
Sub M()
Dim LastRow As Long
LastRow = ThisWorkbook.Sheets(1).[a1000000].End(xlUp).Row
    If LastRow > 3 Then
        ThisWorkbook.Sheets(1).Range("L4").FormulaArray = "=SMALL(IF(RC[-10]:RC[-1]>100%,R3C2:R3C11,""""),1)"
        ThisWorkbook.Sheets(1).Range("M4").FormulaR1C1 = "=HLOOKUP(RC[-1],R3C2:R8C11,ROW()-2,0)"
    End If
    If LastRow > 4 Then
        ThisWorkbook.Sheets(1).Range("L4:M4").AutoFill ThisWorkbook.Sheets(1).Range("L4:M" & LastRow)
    End If
End Sub
Простой макрос на объединение ячеек и сумму
 
Вы пытаетесь сделать сводную посредством кода VBA... не проще ли по Вашим исходным данным (которые Вы "максимально" упростили) сделать сводную, потом сделать из этой сводной обычную таблицу и удалить исходные данные (можно макросом)?
Лог изменений VBA
 
Здравствуйте, попробуйте такой код:
Код
Public PreVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PreVal = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> PreVal Then
Sheets("Log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = Application.UserName & " changed cell " & Target.Address & " from " & PreVal & " to " & Target.Value
End If
End Sub
Изменено: Настя_Nastya - 27 Мар 2020 11:44:52
Не получается убрать защиту рецензирования (запрос пароля), Рецензирование
 
Здравствуйте!
удалила код VBA данной книги (он при открытии ставит защиту листа)
Как заменить формулу в Гугл таблице на значение этой формулы автоматически?
 
Здравствуйте! Можно скриптом закрепить значения в гугл-таблице, а потом выгружать:
Код
function myFunction() {
  //объявляем лист, с которым будем работать
  var Sheet = SpreadsheetApp.getActive().getSheetByName("Лист1");
  Sheet.getRange('A1').setValues(Sheet.getRange('A1').getValues());
};
Изменено: Настя_Nastya - 27 Мар 2020 10:10:23
Проставить ниспадающие значения в списке
 
Цитата
Litvik написал:
если подряд идет одинаковое кол-во
и как должно быть?
Проставить ниспадающие значения в списке
 
Добрый вечер
=ЕСЛИ(B2=B1;A1-1;B2)
(только в B1 удалите единицу)
Изменено: Настя_Nastya - 26 Мар 2020 19:51:37
Формирование списка столбцов, значения в которых без повторов покрывают диапазон значений
 
swetlana, Вы в файле покажите что есть и что хотели бы видеть (ручками)
Расчёт стажа работы с учётом совмещения
 
Цитата
eEye написал:
Вот нужно сделать такую проверку, чтобы при суммировании всех годов, ексель учитывал пересекающийся стаж (обычно работа по совмещению) и не задваивал его
Доброе утро! Сделайте тогда нормальный пример - как есть и как должно быть, укажите в каких ячейках у Вас на данный момент не верно рассчитывается стаж и т.д.,
Скрипт экспорта значений из выбранных ячеек из одной таблицы в другую (по расписанию)
 
Пишу в личку
Сделано, оплачено
Изменено: Настя_Nastya - 26 Мар 2020 19:37:12
Последовательная подстановка значений из списка в повторяющийся текст
 
Приложите Ваш файл
Последовательная подстановка значений из списка в повторяющийся текст
 
="Шла "&A1&" по шоссе и сосала сушку"
Копирование строк и столбцов из одной книги в другую по условию
 
здравствуйте!
Код
Sub Copy() 'Кликуха
Dim LastRow As Long, Rw As Long 'Объявили переменный послдедних строк для двух слистов
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'Нашли номер последней строки на активном листе (там, где кнопка)
    With Sheets("Лист1") 'Применительно к Лист3
        Rw = Application.Workbooks("Реестр.xlsm").Sheets(1).Range("A1000000").End(xlUp).Row + 1 'Нашли номер первой свободной строки на этом листе
        For i = 8 To LastRow 'Цикл со строки № 11 по последнюю заполненную (на активном листе)
            If Cells(i, 3) = "a" Then 'Если ячейка столбца 7 текущей строки = "а", то
                Range(Cells(i, 8), Cells(i, 37)).Copy Application.Workbooks("Реестр.xlsm").Sheets(1).Cells(Rw, 1) 'Дипазон (текущая строка, столбцы 8:30) копируем в первую свободную ячейку второго листа
                Rw = Rw + 1 'Увеличивем переменную-счётчик первой свободной строки второго листа
            End If
        Next
    End With
End Sub
в модуль книги "Сводная"
а вообще странно, что он у Вас работает, т.к. Ваш код ссылается на Лист3, которого в книге нет...
Изменено: Настя_Nastya - 23 Мар 2020 16:49:11
Появление всплывающего окна при введении данных
 
Можно, не всплывающее окно, а, например, просто красить ячейку красным с помощью условного форматирования, если это клиент из черного списка.
Вычислить значение Бонуса с продажи, как процент бонуса каждого сотрудника от Стоимости заказа.
 
Здравствуйте, возможно, такая формула
=ИНДЕКС([Сотрудникиxlsx.xlsx]Сотрудники!$D$2:$D$11;ПОИСКПОЗ(D2;[Сотрудникиxlsx.xlsx]Сотрудники!$B$2:$B$11;0))*C2
Изменено: Настя_Nastya - 21 Мар 2020 16:30:20
Поиск значения по нескольким критериям, одно из которых дата, которая должна попадать в диапазон
 
Здравствуйте! С дополнительным столбцом на втором листе
=ЕСЛИ(ЕСЛИОШИБКА(СУММЕСЛИМН('Больничные и отпуска'!$E$2:$E$4;'Больничные и отпуска'!$A$2:$A$4;Список!$A3;'Больничные и отпуска'!$B$2:$B$4;"<="&Список!D$1;'Больничные и отпуска'!$C$2:$C$4;">="&Список!D$1);0)=0;ЕСЛИ(ИЛИ(D$2="СБ";D$2="ВС");"Выходной";ЕСЛИ(И($B3="";$C3="");"Работа в офисе";ЕСЛИ(И($B3<=D$1;ИЛИ($C3>=D$1;$C3=""));"Работа вне офиса";"Работа в офисе")));ИНДЕКС('Больничные и отпуска'!$D$2:$D$4;СУММЕСЛИМН('Больничные и отпуска'!$E$2:$E$4;'Больничные и отпуска'!$A$2:$A$4;Список!$A3;'Больничные и отпуска'!$B$2:$B$4;"<="&Список!D$1;'Больничные и отпуска'!$C$2:$C$4;">="&Список!D$1)))
Изменено: Настя_Nastya - 21 Мар 2020 16:10:45
Список уникальных значений с учетом условий отбора
 
Попробуйте такую формулу массива:

=СУММПРОИЗВ(--(ЧАСТОТА(ПОИСКПОЗ(ЕСЛИ((H9:H129<>"")*(A9:A129<>"")*(C9:C129="Day work");A9:A129;0);ЕСЛИ((H9:H129<>"")*(A9:A129<>"")*(C9:C129="Day work");A9:A129;0);0);СТРОКА(A9:A129)-СТРОКА(A9)+1)>0))-1
Распределение информации из строк в списке по листам в определенную ячейку
 
в excel выдает ошибку или ничего не происходит?
Список уникальных значений с учетом условий отбора
 
Здравствуйте, Не очень понятное описание.
По наитию) - формулы массива
=СУММ(ЕСЛИ((H9:H129<>"")*(A9:A129<>"")*(C9:C129="Day work");1;0))  
=СУММ(ЕСЛИ((H9:H129<>"")*(A9:A129<>"")*(C9:C129="Lump Sum");1;0))
Распределение информации из строк в списке по листам в определенную ячейку
 
Добрый день!  
Удаление макросом дубликатов из одного файла в другом
 
Здравствуйте, сначала, по хорошему бы, разделить текст с адресами в Файле 1 по отдельным ячейкам.
Нужно чтобы галочка автоматически ставилась если выполняется условие, Галочка если условие ИСТИНА
 
Здравствуйте
https://docs.google.com/spreadsheets/d/1DFYEmpSK4K4BrJ-AQ-V5_oElCle8oPF4klsZc9UDo54/edit?usp=sharing
Изменено: Настя_Nastya - 17 Мар 2020 17:59:01
Путь к файлу при консолидации таблиц
 
Цитата
Nordheim написал:
находились в одной дирректории
судя из описания задачи, файлы, как раз, и находятся в одной директории...на рабочем столе...
Изменено: Настя_Nastya - 17 Мар 2020 15:58:13
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 14 След.
Наверх