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

Страницы: 1
Макрос на копирование диапазона с четырьмя условиями, Макрос на копирование диапазона на одном листе и вставка на другой лист при четырех условиях
 
#
04.05.2020 15:21:34
Здравствуйте.
В очередной раз обращаюсь по макросу копирования уже усложнив задачу. В приложении высылаю пример, который состоит из трех листов. Прошу сконцентрироваться на втором и третьем листе (data,report). Задача состоит в следующем, при прожатии кнопки в лист report копировались бы информации с листа data, в соответствующие столбцы из одноименных, по условиям закрашенным желтого цвета. Т.е. что бы в заданном промежутке времени, по названию фирмы и двум статусам ( статусы в листе data не заполняются) копировались диапазоны и вставлялись в лист report. Строки информаций в листе data  не ограничены, т.е. последняя заполненная строка.
С уважением Халил  
 
Перейти    
Копирование заполненного диапазона с удалением дубликатов
 
#
02.05.2020 09:44:40
Доброго времени суток . Прошу помочь с поставленной задачей.
В приложении имеется пример файла. Два листа . Нужно скопировать информацию и столбца "D" начиная с ячейки D2 до последней заполненной текстом ячейки листа "DataBaza", вставить в лист "Report1"  начиная с ячейки D2 с условием удаления дубликатов. Т.е. по результату что бы в столбце C листа Report1 не было дубликатов. Заранее благодарю.
С уважением Халил Халилов.
Изменено: Халил - 02.05.2020 13:58:25
 
Перейти    
Как перевести функцию СРЗНАЧЕСЛИМН в Макрос?, Макрос функции СРЗНАЧЕСЛИМН при 3 критериях
 
#
01.04.2020 12:31:31
Код
Sub Debitor()
    
    With Worksheets("Reyestr")

  Range("H2") = Application.WorksheetFunction.SumIfs(.Columns("X"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  Range("J9") = Application.WorksheetFunction.SumIfs(.Columns("N"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  Range("J10") = Application.WorksheetFunction.SumIfs(.Columns("O"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  Range("J11") = Application.WorksheetFunction.SumIfs(.Columns("P"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  Range("J12") = Application.WorksheetFunction.SumIfs(.Columns("Q"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  Range("J13") = Application.WorksheetFunction.SumIfs(.Columns("R"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  Range("J14") = Application.WorksheetFunction.SumIfs(.Columns("S"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  Range("J15") = Application.WorksheetFunction.SumIfs(.Columns("T"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  Range("J16") = Application.WorksheetFunction.SumIfs(.Columns("U"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  Range("J17") = Application.WorksheetFunction.SumIfs(.Columns("V"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  Range("J18") = Application.WorksheetFunction.SumIfs(.Columns("W"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  Range("H9") = Application.WorksheetFunction.AverageIfs(.Columns("N"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))
  'Range("H10") = Application.WorksheetFunction.AverageIfs(.Columns("O"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6"))  
End With
  
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("A17").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    MsgBox "Ñïàñèáî çà âíèìàòåëüíîñòü !!!", vbCritical

End Sub
   Здравствуйте уважаемые формучане.
И вновь я обращаюсь к Вам за помощью. В приложении высылаю файл (пример) где основные рабочие страницы Reyestr и  Selective Debit Report. Если просмотрите макрос то заметите что при вычислении среднего значения (страница  Selective Debit Report, ячейка H9)  операция проходит успешно, но стоит повторить операцию и применить ее к ячейке H10, возникает ошибка. Не вразумлю причину. На всякий случай прописываю макрос сюда


С уважением Халил Халилов.
 
Перейти    
Копирование ячеек с рабочего листа "Лист1" на отчетный лист "Лист2" посредством макроса по переменному условию, Необходима помощь в написании макроса
 
#
25.04.2019 10:36:44
Здравствуйте.
В приложении вставил пример файла, где в Лист1 будет постоянно меняться спиков в столбцах А и В. Как Вы можете заметить условие регистрируется в столбце В. Перейдя на Лист2 и прожав кнопку хотелось бы активировать макрос, который обновлял бы перечень в столбце В листа 2 по условию указанному в ячейке С2 листа Лист2. Заранее спасибо. С уважением Халил Халилов.  
 
Перейти    
Обновление гиперссылок макросом, гиперссылки на JPEG или PDF файлы из какой либо одной папки
 
#
04.03.2019 15:33:46
Здравствуйте.
Всем доброго времени суток. Задача стоит следующая. В приложении прикрепляю файл, где хотелось бы запускать, при открытии файла, макрос, который создавал бы гиперссылки на JPEG или PDF файлы, которые будут лежать в папке допустим под название "CV List",по строгой нумерацией совпадающей с нумерацией в Excell  файле в колонне "А". Т.е. ячейка под номер F1 ссылалась бы на файл 1 в папке CV List и так далее. Спасибо за помощь.
С уважением
Халил Халилов.  
 
Перейти    
Поиск поздней даты в постоянно увеличивающей базе с учетом двух критериев, Необходимо найти на одном Sheet самую позднюю дату с учетом названия фирмы и операции и вставить дату на другой Sheet
 
#
26.02.2019 10:49:16
Здравствуйте. Как всегда в трудные моменты обращаюсь к форумчанам и гуру Excell. Зараее спасибо за помощь.
Задача состоит в следующем. Имеется базана на Sheet "Base" , которая будет постоянно увеличиваться. Основные критерии поиска - это название фирмы ( столбец D), название операции (столбец F) и естественно сама дата ( столбец F) . P.S. как вы успели заметить в столбце С тоже есть дата, но она нас не интересует. Необходимо,что бы найдя самую позднюю дату с учетом критериев названий фирмы и операции, скопировалась эта дата и вставилась соответствено в Sheet "Report" в деопазоне D2:P37.

P.S. этот репорт поможет котролировать работу работников , которые выполняют стандартные операции ( ведут отчетности компаний ) в стандартые промежутки времени. Пример : Начисление з/п производится не позднее 27 числа каждого месяца. Работники через каждые 2 дня выдают отчетность о проделанной работе, эта отчетность вводится в Sheet "Base" , а в Sheet "Report"  будет контролироваться основные горящие точки по датам. Если у кого то есть иное видение данной проблемы с удовольствием воспользуюсь советами.

С уважением Халил Халилов.  
Изменено: Халил - 26.02.2019 10:51:57
 
Перейти    
Как изменить дизайн (заменить каким либо фото) MsgBox, Хочу скрасить рутинность работы в форме для работников
 
#
14.02.2019 14:56:39
Здравствуйте, Хочу придать краски в работе работников. При запуске макросов, выдается сообщение на монитор (MsgBox) , хотелось бы приукрасить или заменить стандартную форму корпоративным фото.Может это возможно прописать кодами что бы фото вытягивалось из фиксированного места. Спасибо заранее.  
 
Перейти    
Замена вычисление формулы СУММЕСЛИМН с критерием промежутка между датами посредством макроса, Есть макрос, которые работает без Error , но не суммирует. Помогите найти причину.
 
#
07.02.2019 13:53:39
Здравствуйте. Есть код  макроса, которые заменил мне функцию СУММЕСЛМН , работает без ошибок, но не суммирует, после завершения работы макроса все по нулям. Помогите разобраться в чем ошибка в написании. Основной момент состоит в том, что два условия это две различные даты, которые вписываются произвольным образом в клетки листа. Числа суммирования, находятся на втором листе.
Изменено: Халил - 07.02.2019 13:55:07
 
Перейти    
Суммирование данных с другого листа одного файла
 
#
27.01.2019 17:51:05
Здравствуйте.
Внимательно просмотрел все темы более или менее похожие на задачу с которой я столкнулся, ну увы ни где не нашел ответ на поставленный вопрос.  Если говорить конкретнее к письму приложен файл.Для примера попросил бы указать макрос благодаря которому в листе "Дебиторы" я мог бы в колонну С:С вывести суммы в соответствии с критериями из калонны B:B и промежутка дат указанных на рабочем листе, из листа "Продажи". Заранее спасибо.  
С уважением
Халил Халилов
 
Перейти    
Макрос на принт автоматически выделяемого деапозона
 
#
16.07.2018 11:05:37
Здравствуйте. У меня следующая проблема. Приложенны 2 файла, "Kassa" основной. В файле "Каssa" sheet "Print" активная кнобка принта . При ее нажатии формируется документ в книге Forma1.2 ... но на принт не уходит. Принтуется только два текста которые отмечанный в скрипте. Кто бы смог помочь доделать написанное  ? С уважением Халил.  
Изменено: Халил - 16.07.2018 11:08:34
 
Перейти    
Макрос заменяющий функцию SUMIFS для информции в одной книге,но на разных Sheet-ах.
 
#
26.05.2018 09:38:16
Здравствуйте.

Есть файл (приложен к письму) . Хочу минимизировать использование формул, так как файл со временем будет увеличиваться . Прошу помощи в написании макроса который основываясь на 2 условиях (условия указанны в Sheet "Baza" столбцы "D" и "H") , будет искать данные в том же Sheet "Baza" но в столбце "G" и суммируя их размещать в Sheet Pl 18 соответственно тем же условиям указанным в стобце "B" и строке "2" в деапозоне выделенном зелёного цвета.

Заранее спасибо.  
 
Перейти    
Экспорт данных из одной книги в другую при совпадении значения в столбце
 
#
09.03.2018 15:10:39
Здравствуйте. Заранее спасибо всем за помощь.

Имеется ежедневно обнавляющаяся база информации из 16 столбцов. (Книга 1) . Из этой книги в Книгу 2 надо экспортировать всю инфу построчно из столбцов E,F,G при условии если 15 тый слобец (т.е. столбец О ) этой строчки = AKTIV.  В идеальном варианте активизация макроса должна происходить при открытии Книги 2.

Еще раз Спасибо.
Изменено: Халил - 09.03.2018 15:21:07 (Загрузка файлов)
 
Перейти    
Написание Макроса по Авторегистрации информации из стабильных ячеек, Написание Макроса по Авторегистрации информации из стабильных ячеек
 
#
21.12.2017 13:37:23
Здравствуйте. Нуждаюсь в помощи по авторегистрации (макросом) данных из стабильных ячеек в одноименные столбцы по датам. Т.е. это форма предназначена для ведение риестра по ежедневным операциям для будущей отчетности. Заранее благодарен.  
 
Перейти    
Страницы: 1
Наверх