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

Страницы: 1
VBA фильтр с диапазоном из ячеек
 
#
25.03.2022 23:18:15
Добрый день. есть такая задача: нужно в фильтр вставлять критерии из диапазон ячеек
Код
lo.Range.AutoFilter _          
Field:=iCol, _
Criteria1:=Array("Product 4", "Product 5", "Product 6"), _           
Operator:=xlFilterValues

так вот как сделать чтобы в Array("Product 4", "Product 5", "Product 6") вместо фиксированных значений вставлялись значения из заданного диапазона ячеек? ячеек будет всегда разное количество? помогите ПЖЛСТ)))
 
Перейти    
Сохранение книги после нескольких циклов
 
#
27.01.2022 17:21:54
Привет, друзья)
нужна ваша помощь)
как сделать так, чтобы макрос сам нажимал  или выбирал кнопку сохранить в диалоговом окне application.getsaveasfilename. просто собираюсь чтобы макрос отработал несколько циклов в авторежиме, и  не приходилось постоянно нажимать вручную кнопку "СОХРАНИТЬ".
Спасибо!
Код
Sub DFDF()
Dim x, fName

fName = Cells(1, 1)
x = Application.GetSaveAsFilename(fName, "Excel (*.xlsm), *.xlsm", , "Сохранить в файл...")
 If x = False Then
 Exit Sub
 Else
 ThisWorkbook.SaveAs x
 End If
End Sub
 
Перейти    
Сбор уникальных значений
 
#
20.11.2021 13:59:22
Приветствую, мастера VBA))
нужна ваша помощь))
помогите написать макрос сбора значений в ячеку: сначала находим уникальные значения по столбцу С, далее к этому уникальному значению находим уникальные значения из столбца В, и все это помещаем в ячейку.
пример как должно быть в итоге внес в ячеку G2.
С помощью коллекции могу собрать уни-ные знач из одного столбца, а вот так как описал выше, не хватает знаний и навыков. помогите пожалуйста.
во вложении DATA
 
Перейти    
Очищение памяти макроса
 
#
19.11.2021 03:43:55
Здравствуйте, постараюсь сформулировать мысль максимально понятно. Макрос обращается к некотрому файлу 1 в процессе работы, после исполнения процедуры не получается переместить/удалить файл 1, который использовался в процессе исполнения макроса. Нужно закрывать файл с этим макросом и после проводить манипуляции с файлом 1. Может есть какой способ оборвать процесс использования файла 1, после завершения работы макроса?
СПАСИБО))
 
Перейти    
Создание копии книги с поддержкой макросов
 
#
17.11.2021 05:02:37
Добрый день, господа)
нуждаюсь в вашей помощи)
помогите написать макрос создания копии текущей книги с поддержкой всех макросов, присвоением имени из ячейки A1 и сохранением в путь из ячейки A2, и распечаткой первого листа в кол-ве 5 шт,  пожалуйста)))
 
Перейти    
ВПР с ДВССЫЛ на другую книгу
 
#
04.11.2021 03:36:52
Добрый день! крик души, не пойму как применить двссыл на другую книгу в лок.сети
задача такая.
есть такая формула и она работает:

Код
=ВПР(L17;'\\10.38.56.62\Archive_LNK\АГПЗ\20) Ежедневный отчет\Ежедневный отчет АГПЗ\11) Ноябрь\[Ежедневный отчет АГПЗ 03.11.2021.xlsx]Персонал'!$B:$D;3;0)

но, адрес книги

\\10.38.56.62\Archive_LNK\АГПЗ\20) Ежедневный отчет\Ежедневный отчет АГПЗ\11) Ноябрь\[Ежедневный отчет АГПЗ 03.11.2021.xlsx]

будет меняться каждый день, я сделал чтобы это адрес собирался в ячейке, допустим в B1. при этом нужный диапазон для впр в этой книге всегда одинаков Персонал!$B:$D

мне необходимо, чтобы в мою формулу впр подставлялся адрес файла из ячейки B1, помогите, пожалуйста, это сделать))))))
 
Перейти    
Копирование диапазона с одного листа на другой
 
#
12.10.2021 13:42:55
Привет)) помогите разобраться почему не работает макрос, выдает ошибку "variable not defined "
во вложении файл. Спасибо!
 
Перейти    
Компактный поиск значения из множества значений
 
#
25.09.2021 12:58:52
привет))) подскажите как прописать условие
проверить ячейку A1 содержит ли она любое из значений R1;RW1;RW2;RW1R1;RW2R1 чтобы это было компактно.
помогите, пжлст)
Изменено: vikttur - 27.09.2021 00:52:05
 
Перейти    
Проявление другого листа на рабочем
 
#
21.09.2021 08:09:40
Привет)) объясните как устранить баг екселя: работаю на листе и каждый раз проявляется содержимое предыдущего листа. проблема устраняется прокруткой страницы вниз /вверх или переходио на другой лсит и обратно. но это дико раздражает. как полностью ее излечить?  
 
Перейти    
Количество вхождений, удовлетворяющих заданным условиям
 
#
19.09.2021 13:47:05
Добрый день.
помогите пжлст написать макрос который будет считать количество вхождений удовлетворяющих заданным параметрам.
есть диапазон закрашенных ячеек в столбце А.
я нашел (благодаря вашему форуму) диапазон с какой ячейки начинается и заканчивается заливка. желтый цвет.
N - номер строки с которой начинается
Z - номер строки с которой заканчивается

нужно задать диапазон с N и Z
в рамках этого диапазона провести проверку сколько строк удовлетворяющих условиям:
1. если ячейка в столбце А закрашена жёлтым
2. если ячейка в столбце B равна 1
3. если ячейка в столбце С равна "годен"
Код
    Dim rgPoisk As Range, kol As Long, N,Z As Variant
    For Each rgPoisk In ActiveSheet.Range(Cells(N, 1), Cells(Z, 1))
        kol =0
        If Cells(rgPoisk, 1).Interior.Color = x And Cells(rgPoisk, 2) = 1 And Cells(rgPoisk, 3) = "годен" Then
        kol = kol + 1
        Else: End If
    Next rgPoisk
    Debug.Print kol
End Sub
не работает :(
помогите пжлст))
 
Перейти    
Определение первой и последней ячейки в столбце по определенному цвету
 
#
17.09.2021 14:04:25
Добрый день, на просторах интернета есть много  статей как определить первую непустую ячейку, но не могу найти мли сам придумать как сделать Определение первой и последней ячейки в столбце по определенному цвету. Помогите с кодом ПЖЛСТ 🙏
 
Перейти    
Макрос анализ данных из закрытой книги
 
#
16.09.2021 14:12:55
Добрый день господа, учусь программировать на vba. Ничего не понятно, но очень интересно😁😅
возникла необходимость сделать анализ ячеек в закрытой книге  с последующим вычислением и внесением результата в другую открытую книгу. Пожалуйста,  Подскажите как это сделать?
как такой анализ в закрытой книге отразиться на скорости расчетов, ведь строк порядка тысячи.
слышал что как-то  может открываться закрытая книга без видимости для пользователя в фоне, интересно об этом тоже узнать.
спасибо
 
Перейти    
Анализ содержимого ячейки на наличие заданного сочетания букв
 
#
12.09.2021 15:09:05
Привет.
есть такая задача.
в ячейке А1 есть фраза абвТМгд, и нужно проанализировать ее на предмет содержания в ней ТМ на русском или ТМ на английском.
в ячейке А2 проверяю рус:
Код
еслиошибка(поиск("ТМ";А1;1);"-")

в ячейке А3 проверяю анг:
Код
еслиошибка(поиск("TM";А1;1);"-")

в ячейке А4 условие:
Код
если(или(А2;А3)<>0;"есть";"нет")

и в таком исполнении работает.
но
если собрать все в одну формулу, то результат дает: ЗНАЧ.
Код
если(или(еслиошибка(поиск("ТМ";А1;1);"-");еслиошибка(поиск("TM";А1;1);"-"))<>0;"есть";"нет")


помогите разобраться почему так, пжлст)
Изменено: vikttur - 12.09.2021 23:10:05
 
Перейти    
Макрос копирования файлов из НЕСКОЛЬКИХ папок в другие папки с вырезанием файлов
 
#
27.08.2021 12:54:56
Добрый день господа)) нашел в одной теме макрос по копированию файлов из одной папки в другую. но не могу понять как прописать, чтобы все содержимое из папок 1,2,3,4 вырезалось и вставлялось в другие папки 11,22,33,44 соответственно, помогите пжлст)

вот что нашел
Код
Sub jjj()
    s_sourse_dir = ActiveWorkbook.Path & "\Проект.txt"
    s_reserv_dir = ActiveWorkbook.Path & "\ТЗ\Проект.txt"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Not FSO.FolderExists(s_sourse_dir) Then
        MsgBox "Нечего копировать."
        Exit Sub
    End If
    If FSO.FolderExists(s_reserv_dir) Then FSO.DeleteFolder s_reserv_dir, True
    FSO.CopyFolder s_sourse_dir, s_reserv_dir, True
End Sub
Изменено: vikttur - 28.08.2021 11:56:55
 
Перейти    
Определение факта наступления события из календаря
 
#
15.09.2020 21:31:36
В таблице задачи с толбцах "задач" указано сколько   задач выполнил сотрудник на навыке. Если есть задачи, то в столбце слева   появляется 1.
    Необходимо, чтобы в календаре формула посчитала были ли задачи у сотрудника   в Задачах за день по всем навыкам, и если были, то поставила 1 в дату   напротив его фамилии в календарь.
    Не могу придумать формулу, чтобы диапазон суммирования в задачах   определялся по дате из календаря. Сейчас приходится копировать ее и вручную   менять диапазон суммирования.
 
Перейти    
Страницы: 1
Наверх