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

Страницы: 1
Макрос для заполнения форм на основе данных из основной таблицы, HELP
 
#
03.05.2024 20:17:18

Парни, помогите решить проблему пожалуйста. Что бы хотелось получить:
1. Нужно написать макрос и прикрепить его к кнопке "Записать" на листе "База".
2. В зависимости от того какая ячейка была выделена до нажатия кнопки макроса, из той строки брать данные и записывать в соответствующие строки на других листа "Направления", "Справка", "Карточка".
ПС: обратите внимание, что в "Базе" Фамилия Имя Отчество разделено на ячейки, а в других листах они сцеплены в одну объединённую ячейку.
3. Чтоб кнопка "Записать" была многоразовой, то есть, не нужно перезаходить в ексель каждый раз, чтоб она была активна, а можно было перезаписывать данные много раз, только меняя строки методом выбирания другой ячейки соответствующей строки.
4. После нажатия на кнопку "Записать", появлялась форма с названием "Печать" в которой были бы 4 флажка с подписями: 1. Направления, 2. Справка, 3. Карточка, 4. Выбрать все. И чтоб по умолчанию все были выбраны. Так же кнопки "Да" и "Нет".
5. Установив флажки которые соответствуют листам с одинаковыми названиями, после нажатия "да" - открылась форма печати или сразу пошло на печать. Кнопка "нет" закрывает форму.

Заранее спасибо неравнодушным!  :)  
Изменено: Любитель Excel - 03.05.2024 20:18:13
 
Перейти    
Разделить текст в ячейке, Нужна формула, которая разделит текст из ячейки на две части
 
#
01.04.2024 19:38:37

Здравствуйте, помогите пожалуйста.

Есть ячейка «А» в которой записано «ФИО и Приказ», нужна формула в ячейку «D» которая отделит «ФИО» и формула в ячейку «Е» которая отделит только «Приказ». Вроде как не сложная задача, но не для меня.
 
Перейти    
Автоматическая нумерация
 
#
31.10.2023 23:41:24

Уважаемые знатоки, помогите с задачей.
Нужно поставить нумерацию 1, 2, 3… в столбце А, при условии что нумеровать нужно объеденные ячейки начиная с объеденной ячейки А7-А8(это одна объединённая ячейка состоящая из А7 и А8) и так далее А9-А10, А11-А12… до ячейки А3000, к тому же А7-А8 это начальная ячейка в которой номер «1», а вот ниже ячейки могут быть как объеденными «в длину» с «шириной в одну ячейку» (к примеру А9-G9) так объеденными «в высоту» (пример А9-А10) или же просто одна ячейка (пример А9 или А10). Надеюсь, понятно описал задачу. Заранее благодарю всех неравнодушных. В примере файла Тест.xlsx (77.86 КБ)выделил желтым, где нужна нумерация.
 
Перейти    
Очистка содержимого незакрашенных ячеек определённого столбца., Создание макроса.
 
#
24.01.2022 14:17:52
Дорогие форумчане, выручаейте!
Думаю задача простая, но не для меня.
Задача: Есть столбец "С", в котором есть закрашенные и незакрашенные ячейки, удалить содержимое незакрашенных ячеее.
 
Перейти    
Удалить все строки, в которых отсутствует определённый текст, результат отразить по вертикали., Создать макрос.
 
#
20.01.2022 16:54:37
Здравствуйте цифровые люди, помогите с проблемой пожалуйста:Хотелось бы заиметь макрос который "посмотрит" на первый столбец "А" листа под названием "Sheet1" и удалит все строки, кроме тех в которых будет (два условия) текст "Всего:" или "Всего по:", а потом отразит по вертикали (сверху вниз, т. е. последняя строка станет первой, предпоследняя - второй и тк..д..). А еще было бы круто, после действий описанных вверху этот же макрос закрасил строки "Всего по:" в зелёный, а строки в колонке "В" которых стоит значение "260" закрасил в жёлтый.


Отблагодарю чеканной монетой)  
 
Перейти    
Модернизация макроса копирования данных
 
#
21.03.2019 10:14:45
Ребята, в общем есть макрос, есть книга с множеством листов, лист с именем "Svod" - собирает на себя информацию с остальных листов начиная с строки №100, можно ли сделать так, чтоб он начинал собирать эти диапазоны со строки №6, но при этом на листе "Svod" все так же выстраивал из строки №100?
Код
Sub BuildPlan()

Range("A100:S5000").Select
   Selection.ClearContents
   
    Const startCell = "A100"
    
    Dim ws As Worksheet, sv As Worksheet
    Dim cell As Range, tbl As Range, shift&
    
    Set sv = ThisWorkbook.Worksheets("Svod")
    Set cell = sv.Range(startCell)
    cell.CurrentRegion.Offset(cell.Row - cell.CurrentRegion.Row).Clear
    
    For Each ws In ThisWorkbook.Worksheets
        If Not ws Is sv Then
            Set tbl = ws.Range(startCell).CurrentRegion
            shift = ws.Range(startCell).Row - tbl.Row
            If tbl.Rows.Count - shift > 0 Then
                tbl.Offset(shift).Resize(tbl.Rows.Count - shift).Copy cell
                Set cell = cell.Offset(tbl.Rows.Count - shift)
            End If
        End If
    Next
End Sub
 
Перейти    
Макрос скрыть/раскрыть столбцы по нажатию кнопки
 
#
20.03.2019 17:13:24
Может ли макрос который скрывает столбцы по нажатию кнопки, работать обратно т. е. раскрывать те самые столбцы? Если да, то как?  
 
Перейти    
Как .xlam конвертировать/преобразовать в .xla/.xll, нужно надстройку excel 2007 запустить на excel 2003
 
#
15.03.2019 11:25:58
Добрый день! Реально ли надстройку .xlam конвертировать/преобразовать в .xla/.xll, нужно надстройку excel 2007 запустить на excel 2003, если да то как?
 
Перейти    
При наличии определенных значений в текстовой строке, скопировать данную строку и две строки выше на определенные листы
 
#
11.03.2019 12:17:45
Добрый день! Уважаемые знатоки помогите делом или советом, пожалуйста! Задача просто сложнейшая (для меня), но решить ее очень хотелось бы, т. к. руками перебирать тысячи строк сил нет никаких.

В общем, что касается проблемы... Есть у меня файлик эксель который формируется в какой-то финансовой программке, с названием "Выписка", внутри файлика есть лист Sheet1, а в нем можете наблюдать следующее: целая куча транзакций расположенные длинным списком и вроде как упорядочены, но не совсем.

Каждый блок состоит из 3-4 строк, начинается всегда из двух ячеек с цифровыми данными (В17 и В18 в книге-примере), а дальше идет комментарий, он бывает как на одну строку так и на две при чем объединенные, думаю что может быть и на три, но пока не встречались такие.

Что собственно нужно? А нужно разделить этот список на два листа по следующим критериям:
В лист "А" нужно такие блоки скопировать у которых в комментарии (в тексте) содержится значение "878" - это типа код такой, а еще код "881".
В лист "В" скопировать то, что не вошло в лист "А".

Примечание: цветом блоки я самостоятельно закрашивал, для наглядности.  
 
Перейти    
Собрать все листы в один
 
#
06.03.2019 15:11:59
Ребята, у меня имеется огромнейшая проблема.
В общем есть Книга в которой есть куча Листов, в этих Листах находятся таблицы с одинаковой шапкой, но разные по длине(кол-ву строк).
Нужно сделать как-то так, чтоб все эти Листы собрались в один общий Лист (только данные, без шапки) подряд без всяких разрывов.
Самая большая проблема в том, что эти Листы часто подвергаются корректировке, а именно могут добавиться строки, а могут удалиться.
То решение проблемы которое я применил в примере не устраивает так как оригинальные таблицы намного больше и делать это "руками" слишком долго.
Уважаемые знатоки, подскажите, это вообще реально сделать и если реально, то как?
 
Перейти    
Страницы: 1
Наверх