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

Страницы: 1
Создание файла по параметрам и его заполнение. СРОЧНО, Создать по ТЗ excel файл и наполнить его данными из другой книги, предварительно разделив на массивы.
 
#
11.04.2023 22:51:55
Добрый день.
Требуется создать макрос, который будет брать данные из файла и перекладывать их в созданный шаблон.
Пометка #СРОЧНО - сегодня/завтра
В ТЗ много текста , но это подробное описание каждой ячейки.
СУММА - пишите в ЛС сразу ваше предложение с учетом ТЗ и срочности.  
Изменено: Max.il - 11.04.2023 22:58:43
 
Перейти    
Собрать данные из разных книг в нужном формате.
 
#
04.09.2019 16:09:54
Всем привет.
Все изложил в видео.
Будут вопросы - пишите сюда.

Изменено: Max.il - 04.09.2019 16:11:35
 
Перейти    
Если все ячейки из диапазона залиты УФ цветом , то в другой ячейки написать "ОК"
 
#
29.05.2019 20:31:53
Всем привет !
Файл во вложении, в нем есть описание

ps - Если ячейки залиты УФ , то в другой ячейки написать "ОК"!

Спасибо
 
Перейти    
Диалог выбора файла, если все условия соблюдены
 
#
28.05.2019 08:38:43
Привет. Прошу объяснить.

Если ВСЕ  ячейки U84, U86, U88, U90, U92 заполнены( любым символом ) , то открыть диалог выбора файла для открытия.
Код
Application.GetOpenFilename

В этом примере он открывает диалог все 5-ь раз, если условия соблюдены..
Как обозначить, что открыть диалог только при соблюдении всего условия ? ( т.е. заполнены все ячейки )
А если хоть одна из пяти пустая - выполнить
Код
rCell.Interior.ColorIndex = 3

Спасибо.
Код
Sub StandartProverka()
Dim rCell As Range

    For Each rCell In Range("U84, U86, U88, U90, U92")
        If rCell = "" Then
            rCell.Interior.ColorIndex = 3
        Else
            Application.GetOpenFilename
End If
    Next
End Sub
Изменено: Max.il - 28.05.2019 08:58:12
 
Перейти    
Вставить картинку в определенный диапазон
 
#
27.05.2019 21:38:30
Всем привет !

Пользуюсь, что бы вставить картинку по размерам ячейки
Код
ActiveSheet.Shapes.AddPicture Cells(1, 1).Value, False, True, Cells(10, 5).Left, Cells(10, 5).Top, Cells(10, 5).Width, Cells(10, 5).Height
Как изменить код, что бы картинка вставлялась ( размер ) в диапазон, к примеру, левый угол 10 строка 5 столбец , правый нижний угол 20 строка 10 столбец.
Спасибо  
 
Перейти    
Отобразить в MsgBox данные после поиска по значению
 
#
26.05.2019 03:01:31
В файле на "листе 1" есть значение ( sahara_3 ) из первого столбца листа ( сборка ).
При нажатии на кнопку , должен отобразиться список в MsgBox всех значений, которые есть в "Сводка" столбце "В".

Что-то типа этой темы Ссылка, но немного доработать. Спасибо.  
Изменено: Max.il - 26.05.2019 03:03:48
 
Перейти    
Вернуть все найденные в строке значения через VBA
 
#
24.05.2019 13:18:31
Еще раз привет.
Найти Москву на листе 2 и вернуть все значения в ячейку F6   через, которые правее по этой строчке ( пустые пропускать )
Нужно именно через VBA , что бы можно привязать к кнопке.
Спасибо доброму человеку.  
 
Перейти    
Подтянуть результат по условию
 
#
24.05.2019 10:05:40
Всем привет !
Нужно решение ( пробовал со смещением , не получилось , не хватило опыта ),

В файле , ячейка I5 вставляем номер, который нужно найти в "Базе" на втором листе и вернуть значение , где в строчки "1" , строку 4.
Результат должен быть в К14, в одной ячейки все результаты.
Спасибо кто поможет  
 
Перейти    
Заливка части фигуры по условию из ячейки
 
#
19.04.2019 15:55:23
Всем привет ! Подскажите, пожалуйста, существует ли в Excel какой-то способ заполнять фигуру согласно условию из ячейки  
 
Перейти    
Найти в другой книге и вставить в нужной столбец данные
 
#
06.03.2019 10:26:52
Всем привет !
Есть задачка, которая решается ВПР, но формула очень утяжелит файл...
Пример высылаю из нескольких строк.

Задача - в файле Planeta] - заполнить данные из книги БД поставщиков. ( путь к файлу укажите любой, я скорректирую в коде )
в Planeta] - есть ключ , это КОД ОРГ, по которому надо найти в БД строчку и перенести данные в верные столбцы по названию.
Файл динамичный и КОД ОРГ дополняются ( т.е. перед этим нужно найти последнюю заполненную строчку )

Я тут , если что, отвечу на вопросы.
Спасибо.
Изменено: Max.il - 06.03.2019 10:37:16
 
Перейти    
Передать всем книгам структуру vba
 
#
24.02.2019 14:24:55
Всем привет ! Интересует вопрос реализации.
Есть папка , в которой 300+ файлов excel все в едином формате .xlsm
Нужно в каждую книгу добавить окно приветствия ( https://www.planetaexcel.ru/techniques/3/168/ )
С одной книгой вопросов не возникает, но проделывать одну и ту же операцию 300 раз желания нет.
Файлы уже имеют данные и расплодить 300 одинаковых файлов не вариант.

Конкретизирующий вопрос : Как всем книгам передать полную структуру ( vba )

Всех мужчин с прошедшем.
Заранее - спасибо.  
Изменено: Max.il - 24.02.2019 14:27:01
 
Перейти    
Выпадающие зависимые списки ( больше 2-ух )
 
#
19.02.2019 21:16:02
Всем привет . По уроку сделал выпадающие списки ( Способ 3). С двумя условиями работает отлично, но , когда мне нужно добавить третье условие, получается не тот результат, который ожидаем.

Проблема : при условии "условие2", выпадающий список из "условие3" берет все значения из диапазона.

Для чего нужно : есть иерархичное представление магазин <= департамент <= фамилия. По условию1, найти все значения этого условия2, проставить верную фамилию.


Если есть иные инструменты или способы сделать такие списки, буду признателен.  
Изменено: Max.il - 19.02.2019 21:20:26
 
Перейти    
Заливка ячейки по условию другой
 
#
14.02.2019 12:32:05
Всем привет!
Необходимо в первом столбце заливать ячейки по условию "да" из столбца L
УФ  могу сделать только на одну строку...надо на весь диапазон ( т.к. данные будут добавляться )
Цвет - зеленый

upd - в Online режиме, сразу , после запуска книги.
Изменено: Max.il - 14.02.2019 12:42:28
 
Перейти    
Отправка письма через форму( окно ) из excel , через outlook
 
#
13.02.2019 00:49:00
Возможно, есть на просторах интернета решение, нет времени искать

Задача: иметь в excel кнопку, которая позволит пользователю сообщить об ошибке.

Процесс: Пользователь нажимает кнопку, к которой привязан макрос => открывается форма ввода данных ( с ней можно не заморачиваться особо, пример во вложении) =>Вводит тему обращения, текст письма=> нажимает отправить=> Через его outlook клиент отправляется на единый адрес письмо=> форма закрывается.

Цена 300р.
 
Изменено: Max.il - 13.02.2019 00:57:42
 
Перейти    
Дата первого изменения в ячейки + перенос на другой лист + вставка
 
#
10.02.2019 23:45:51
Необходимо доработать код своей "идеей" , код написан Юрий М.

1) Ошибка при вставки Ctrl + v нескольких значений.

Вознаграждение на сбер = 300 рублей.
Срок до завтра вечера.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    For Each cell In Target
    If Not Intersect(cell, Range("A:A")) Is Nothing Then
        Application.EnableEvents = False 'Отключили отслеживание событий
        If Target <> "" Then 'Добавлена проверка
            With Sheets("Лист2").Cells(cell.Row, 2) 'На "Лист2" в аналогичные строки
                If .Value = "" Then
                   .Value = Now
                   .EntireColumn.AutoFit
                End If
            End With
        End If
    End If
    Next cell
    Application.EnableEvents = True
End Sub
 
Перейти    
Отображение даты первого изменения в столбце рядом
 
#
10.02.2019 03:16:12
Всем привет!
Каким способом можно реализовать ?

Что бы в ячейки B1 появилась дата первого изменения ячейки А1.
После этого, больше не менять дату, даже если ячейку А1 изменят или удалят информацию.  
 
Перейти    
Создать новый лист и вынести значения согласно условиям
 
#
06.02.2019 08:13:16
Всем привет!
Если у кого-то будет решение , буду очень признателен.


Задача: Выявить пропуски в таблице и вынести их в отдельный лист по определенному шаблону
Вводная: Файл имеет именно такую структуру со скрытыми столбцами.
Процесс: Пройтись по каждой строчке ( начиная с 12 ) , проверить на предмет незаполненности видимых ( пропускаем скрытые столбцы ) ячеек. При нахождении такового - создать новый лист и вынести данные в определенном порядке. ( В файле примере везде расписал все ).

Данных по оси х и у - от 1 до 1000.
Если появятся вопросы, оперативно отвечу.
 
Перейти    
Как обозначить дату в VBA от завтрашнего дня в фильтре
 
#
04.02.2019 01:57:41
Привет. Макрорекордером записал макрос на уставноку фильтра в колонке с датами. Мне нужно, что бы в колонке присутствовали только значения с "-" и все значения , начиная от завтрашнего дня. Логично, что завтра, этот макрос уже сработает не верно, т.к. внутри кода даты неизменны останутся.
Как изменить, что бы макрос понимал, что сегодня 04.02.2019, значит фильтр надо поставить от 05.02.2019+
Код
ActiveSheet.Range("$A$1:$N$223158").AutoFilter Field:=10, Criteria1:=Array( _
        "-"), Operator:=xlFilterValues, Criteria2:=Array(2, "2/5/2019", 2, "2/6/2019", _
        2, "2/7/2019", 2, "2/8/2019", 2, "2/9/2019", 2, "2/10/2019", 2, "2/11/2019", 2, _
        "2/12/2019", 2, "2/13/2019", 2, "2/14/2019", 2, "2/15/2019", 2, "2/16/2019", 2, _
        "2/17/2019", 2, "2/19/2019", 2, "2/20/2019", 2, "2/21/2019", 2, "2/22/2019", 2, _
        "2/23/2019", 2, "2/24/2019", 2, "2/25/2019", 2, "2/26/2019", 2, "2/27/2019", 2, _
        "2/28/2019", 1, "3/31/2019", 1, "4/30/2019", 1, "5/31/2019", 1, "6/30/2019", 1, _
        "7/1/2019", 1, "10/20/2019", 1, "11/30/2019", 1, "12/12/2019")
 
Перейти    
Консолидация информации по заливке ячейки
 
#
31.01.2019 14:35:55
Всем привет! Столкнулся с проблемой правильной консолидации данных из БД. Прикладываю пример файл, по которому смогу "допилить" под себя.

Вводные
В файле присутствует множество листов ( большое коли-во , от 100 шт, кол-во всегда будет разное , название листов будет всегда разным)
Необходимо создать новый лист ( любое название , лучше Cons , и консолидироватьнужную информацию в нужном формате )

Файл пример:
В книге присутствует 3-и листа. В 12 строчке, заливкой именно этого цвета есть выделения ячеек.
Цикл:
Найти на первом листе ячеку, которая залита цветом, и взять значение на 1 строку выше ( Машина*), добавить информацию на лист Cons в формате ( Лист, номер машины), повторить цикл по всем ячейкам , по всем листам.


Готов ответить на все вопросы, спасибо заранее.  
 
Перейти    
Удалить ячейки на листе по цвету, со смещением вверх
 
#
08.12.2018 17:20:05
Всем привет . Нужно удалить ячейку , залитую цветом , со смещением вверх.
Поискал на форуме, находил только удаление всей строки.  
Изменено: Max.il - 08.12.2018 19:57:44
 
Перейти    
Добавить столбец, сцепить, найти и вернуть значение со всеми слобцами
 
#
05.12.2018 15:49:15
Всем привет , кто может подсказать решение , vba

В файле есть 3-и листа.
1) Devision - то , что нужно обработать
2) Leg- тут хранится база
3) RESULT - этот лист для примера как должно выглядеть после макроса.

Цепочка действий :
1) Добавить пустой столбец ( в него надо подтянуть значение из листа Leg )
2) Что бы понятнее объяснить , в пустом столбце , должна быть формула типа :/Сцепить devision1 и Leg1523/ найти это на листе Leg и вернуть значение из второго столбца/
3)Повторить эту формулу для всех значений из первого столбца
4) Закончив с первым столбцом , проделать то же самое со следющими.

В файле все есть,только таких столбцов может быть >100
Возможно любое ваше решение.  Спасибо заранее.
 
Перейти    
Страницы: 1
Наверх