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

Страницы: 1
Наценка в прайс листе по брендам, Каждый бренд со своей наценкой
 
Цитата
написал:
выглядит очень сложно

посмотрите очень легкий пример, может получится понять логику.
Не работает формула в условном форматировании
 
Код
=СЧЁТЕСЛИ(B2:B5;"<>"&B4)

Количество ячеек со значением, не равным 75, в ячейках В2–В5. Знак амперсанда (&) объединяет оператор сравнения "<>" (не равно) и значение в ячейке B4, в результате чего получается формула =СЧЁТЕСЛИ(B2:B5;"<>75"). Результат — 3. © Microsoft
Из списка с пустыми ячейками сделать список без пустых ячеек
 
Но это от версии экселя зависит. Работает?
Почитать про эту формулу: здесь
Код
=ФИЛЬТР(A1:A13;A1:A13<>"")
Изменено: yalewa - 26.11.2023 01:10:58
Одноразовый ввод данных в ячейку каждым из пользователей
 
Вы можете столкнуться с тем, что, например, на одной операционной системе код будет работать правильно (блокировать имя пользователя, например), а на другой операционной системе код не сработает и не вернет имя пользователя и не заблокирует доступ. Или где нибудь не хватит прав для другого идентификатора для блокировки.

Как вариант это выдать каждому какой нибудь ключ типа "nfierfiebfeirbfeb45357353kfbhbebfrhfbe", по которому он может посмотреть информацию. А ключ другого директора он сам не подберет.

Вот, почитайте про определение переменных окружения и можно на основании этих данных попробовать заблокировать доступ. Но что мешает скачать файл заново и в нем не будет данных о пользователе и он снова сможет один раз что то посмотреть.
Изменено: yalewa - 26.11.2023 00:54:21
VBA. XLSX to CSV, Нужна помощь в доработке скрипта
 
Цитата
написал:
такое ощущение, что снова идет работа по всем этим ячейкам и формулам
попробуйте отключить пересчет формул
Код
' Отключение
    Application.Calculation = xlCalculationManual

    For i = LBound(arr, 1) To UBound(arr, 1)
        ReDim Preserve arr2(i - 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            If txt = "" Then
                txt = arr(i, j)
            Else
                txt = txt & delim & arr(i, j)
            End If
        Next j
        arr2(i - 1) = txt
        txt = ""
    Next i

    ' Включение
    Application.Calculation = xlCalculationAutomatic
Изменено: yalewa - 25.11.2023 21:54:10
Совмещение двух макросов в одном файле
 
Цитата
написал:
exсel файл для создания клиентской базы со скидочными данными
что в итоге то должно быть?

Сделайте файл, в котором покажите какие данные у Вас есть и что в итоге должно получиться конкретно для Вас (вручную создайте идеальный итог для Вас). Так будет легче что то Вам предложить.

Например, на Лист1 сформируйте базу данных Ваших клиентов, разнесите все аккуратно по столбцам и строкам, а на Лист2 вручную наберите что и как должно выглядеть. И сразу станет приятней с этим работать и что то придумать.
макрос подбора
 
Цитата
написал:
та же ошибка ((
это логично))

наверное, нужно использовать другой подход, а не GoalSeek, где у Вас и ошибка.
макрос подбора
 
Цитата
написал:
runtime error '1004'reference is not valid
Попробуйте.
Код
Sub GSA()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim j As Integer

    Set sourceRange = Range("W79:AT79")
    Set targetRange = Range("W154:AT154")

    For j = 1 To sourceRange.Columns.Count
        If sourceRange.Cells(1, j).Value < 0 Then
            PerformGoalSeekSub sourceRange.Cells(1, j), targetRange.Cells(1, j)
        End If
    Next j
End Sub

Sub PerformGoalSeekSub(SourceCell As Range, TargetCell As Range)
    SourceCell.Parent.Activate
    TargetCell.GoalSeek Goal:=0, ChangingCell:=SourceCell
End Sub
макрос подбора
 
Цитата
написал:
выдает ошибку
какую?
если из за циклических ссылок, то, наверное, лучше использовать другой поход.

У Вас числа - это числа? Листы не скрыты?
Изменено: yalewa - 25.11.2023 12:15:48
Kutools - разъединить объединенные ячейки с заполнением данных
 
Попробуйте.

Нужно выделить ячейки и запустить макрос (можно нажать на кнопку). Можно сразу все выделить что подлежит разъединению, а не по каждой записи.  
отобразить последнюю пустую строку. Их 2 будет построчно - было /стало.Остальные пустые строки скрыты, Отобразить скрытые строки по условию
 
Попробуйте.

Удалил все скрытые ячейки, оставил только первую заполненную - из нее из последнего столбца копируется Ваша формула.

Добавление новой пустой строки (не отображение из скрытых) срабатывает по двум условиям:
1. Подразделение уже заполнено.
2. Указали профессию и вышли из редактирования ячейки с профессией (нажали энтер, таб и тп).

Код работает только на этот лист. Если будете переносить - добавляйте в соответствующий лист, не на всю книгу.
Страницы: 1
Наверх