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

Страницы: 1 2 3 4 5 6 7 След.
Макрос копирования диапазона, Прошу помощи в корректровке
 
нет, не получается ((
Макрос копирования диапазона, Прошу помощи в корректровке
 
Добрый день.

Очень прощу помощи в корректировке макроса.
Он состоит из 2 макросов

1. Отображает и скрывает данные на листах (2,3,4,5,6,7,8,9,10,11,12,13,14) с последующей их печатью в ПДФ - макрос записал рекордером
2. Копирует данные "ДанныеАОСР" (ВспомДляРеестраАОСР!$F$10:$K$178) на лист "РеестрАОСР" с поиском первой пустой строки в столбце "F" - данный макрос нашел тут на форуме, он не мой. Пытался его переделать под свой файл.

Второй макрос внедрен в первый и неудачно, выдает ошибку в строчке

Range(Cells(FreeRow, 1), Cells(FreeRow + LastRow - 3, 6)).Value = Range(.Cells(3, 1), .Cells(LastRow, 6)).Value

Файл выложить не могу, очень огромный


Код
Sub Скрыть_Печать_АОС()
'
' Скрыть_Печать_АОС Макрос
' Обновления скрыть в АОСР и печать в пдф
'
' Сочетание клавиш: Ctrl+х
'
    Sheets("2").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("3").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("4").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("5").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("6").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("7").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("8").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("9").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("10").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("11").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("12").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("13").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    Sheets("14").Select
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2
    ActiveSheet.Range("$DJ$1:$DL$256").AutoFilter Field:=2, Criteria1:="="
    
    Dim LastRow As Long, i As Long, FreeRow As Long
    FreeRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
    With Sheets("ВспомДляРеестраАОСР")
        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        For i = 2 To LastRow
            If .Cells(i, 2).Value <> "" Then
                LastRow = i
            Else
                Exit For
            End If
        Next
        Range(Cells(FreeRow, 1), Cells(FreeRow + LastRow - 3, 6)).Value = Range(.Cells(3, 1), .Cells(LastRow, 6)).Value
    End With
    
'Application.ScreenUpdating = False
'Sheets("ВспомДляРеестраАОСР").Select
'    Range("ДанныеАОСР").Select
'    Selection.Copy
'    LastRow = Worksheets("РеестрАОСР").Range("F10000").End(xlUp).Row
'    Worksheets("РеестрАОСР").Cells(LastRow + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
'        :=False, Transpose:=False
    'Sheets("РеестрАОСР").Select
    'ActiveCell.Select
     'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Selection.NumberFormat = "0.00"
' Application.ScreenUpdating = True

    Sheets(Array("2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14")).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    
End Sub

Заранее огромное всем откликнувшимся!
Макрос печати листов с циклической подстановкой
 

Добрый день/вечер, прошу помощи ГУРУ Экселя.

Есть задумка/идея, есть лист с данными (ГПР) и есть формы (2,3,4,5,6).

В зависимости от переменной «Х» в столбце F (ГПР) заполняются формы (2.3.4.5.6).

Задумка в том, что бы произошел перебор, подставляется переменная «Х» начиная с первой ячейки (ячейка объединенная) листа ГПР, формы обновляются (листы 2,3,4,5,6), по связям и формулам, и обновлялось то что надо скрыть (незаполненные ячейки) и выводилось на печать одним файлом в ПДФ.

Заканчивается цикл и идет новая подстановка «Х» и так до последней ячейки в диапазоне

Да я нашел макрос вывода на печать, но вопрос,

1.    Реально макросом прописать цикл

2.   Возможно ли сделать автоматически обновление что бы  скрыть а что оставить

3.   Возможно ли сделать переменную циклов (подстановку) или указать как то определенный диапазон.

Объяснил сумбурно, пример прилагаю. Прошу помощи. Таблица очень большая да и форм тоже много. С макросами совсем не дружу как ни печально.

Заранее огромное спасибо всем откликнувшимся, очень выручите и поможите.

Макрос скрытия определенных строк, Работает не корректно
 
Добрый день.
Прошу помощи.
Макрос должен скрывать строки по критерию (скрыть) в столбце DK на определенных листах. А с некоторых пор он начал скрывать в столбце DL
Помогите, что не так?
Код
Sub Отфильтровать_скрыть()
    With Worksheets("1")
        If .FilterMode = True Then .AutoFilterMode = False
        .Range("DK1").CurrentRegion.AutoFilter Field:=3, Criteria1:="<>скрыть"
    End With
    
    With Worksheets("2")
        If .FilterMode = True Then .AutoFilterMode = False
        .Range("DK1").CurrentRegion.AutoFilter Field:=3, Criteria1:="<>скрыть"
    End With
    
   With Worksheets("3")
        If .FilterMode = True Then .AutoFilterMode = False
        .Range("DK1").CurrentRegion.AutoFilter Field:=3, Criteria1:="<>скрыть"
    End With
    
    With Worksheets("4")
        If .FilterMode = True Then .AutoFilterMode = False
        .Range("DK1").CurrentRegion.AutoFilter Field:=3, Criteria1:="<>скрыть"
    End With

    MsgBox "Строки с текстом 'Скрыть' в столбце DK отфильтрованы!", vbInformation, ""
End Sub
Макрос копирования и вставки значения из определенной ячейки
 
Бахтиёр, спасибо именно так, очень выручили
Изменено: vikttur - 07.07.2021 16:57:20
Макрос копирования и вставки значения из определенной ячейки
 
Бахтиёр, сейчас попробую разобраться

Выкладываю пример, как смог показал
Изменено: vikttur - 07.07.2021 16:48:29
Макрос копирования и вставки значения из определенной ячейки
 
Всем добрый день.
Прошу совета и помощи.
Задумка макросом  (по щелчку кнопки) копировать значение из ячейки "D16" и вставка в активную ячейку.
Вопрос, кнопка на нескольких листах, как макрос поймет, что надо делать на активном листе и сильно ли раздуется файл если листов с таким макросом много, примерно 30-40.
И подскажите какой макрос можно взять за основу, я в макросах совсем "0"
Спасибо откликнувшимся.
Вывести по дате (возрастанию) № накладных и наименование материала.
 
Добрый день.
Прошу помощи.
В "Журнале" не корректно работают функции.
Не могу понять в чем косяк  
Вывести по дате (возрастанию) № накладных и наименование материала.
 
jakim,добрый вечер.
Адаптировал предложенный Вами вариант для своего файла.
Работает намного быстрее, спасибо.
Но вот руки у меня корявые, выдает ошибки.
Очень прошу помощи
правда файл большой
Изменено: Иван Фильченков - 05.07.2021 19:04:12 (файл не загрузил)
Общий доступ к файлам на Яндекс.Диске
 
На яндекс диске
Общий доступ к файлам на Яндекс.Диске
 
Добрый всем день.
Прошу совета, помощи.
Если папку с файлами в которых связи выложить на яндекс диск для общего доступа, будут ли они работать?
Точнее уже вижу, что часть ссылок ломаются, и это очень печально.
Вопрос, как лучше реализовать общую работу с папкой, так сказать меньшей кровью.
В каждом файле будет работать лишь один пользователь.
Изменено: vikttur - 05.07.2021 20:11:36
Вывести по дате (возрастанию) № накладных и наименование материала.
 
Всем спасибо за помощь, каждый вариант интересен, буду разбираться
Вывести по дате (возрастанию) № накладных и наименование материала.
 
Спасибо огромное, буду разбираться
Вывести по дате (возрастанию) № накладных и наименование материала.
 
Все доброго времени.
Прошу помощи.
Есть "Таблица накладных по объекту"
В ней № накладных не по порядку
Задача вывести по дате (возрастанию) № накладных и наименование материала.
Можно конечно через фильтр и копирование, но хотелось бы автоматизировать, что бы выводилось автоматически подряд.
№ поз можно вытащить (через ПОИСПОЗ) но что дальше не знаю.
Может и не нужно этого делать, есть другой способ, в общем в тупике и прошу помощи гуру Экселя
Пример прилагаю
Всем откликнувшимся большое спасибо
Изменено: vikttur - 04.07.2021 12:15:00
Скрыть, отобразить строки в фильтрах на всех листах одновременно
 
огромное спасибо за помощь
Скрыть, отобразить строки в фильтрах на всех листах одновременно
 
Добрый всем вечер.
Прошу помощи и совета.
Есть листы 1,2, 3 ...
В одинаковом столбцах стоит фильтр на "скрыть"
Можно ли осуществить автоматическое скрытие(отображение) по критерию "скрыть" во всех листах с общего листа?
Заранее откликнувшимся огромное спасибо
Изменено: vikttur - 07.06.2021 20:11:05
Перестали работать функции
 
Добрый день.
Недавно скачал PLEX, пробное время еще не прошло.
Вдруг перестали работать функции PLEX, хотя панель загружено.
Вместо формул появилось ссылка на папку PLEX
типа
=ЕСЛИ('C:\PLEX\PLEX.xlam'!VLOOKUP2($L$19:$M$63;1;$EF$17;EE27;2)="";0;'C:\PLEX\PLEX.xlam'!VLOOKUP2($L$19:$M$63;1;$EF$17;EE27;2))
что пошло не так?
Очень прошу помощи
А сейчас пропала и панель PLEX
Изменено: Иван Фильченков - 07.06.2021 15:24:57
Как из значения ячейки сделать ссылку на диапазон
 
спасибо огромное
Как из значения ячейки сделать ссылку на диапазон
 
Как то вот так примерно
Как из значения ячейки сделать ссылку на диапазон
 
Добрый день, очень прошу помощи.
Есть именованные диапазоны (_1, _2, _3)
Есть ячейка в которой переменная (1,2,3)
Делаю сцепку (_1)
А как перевести значение ячейки в имя диапазона что бы использовать в формулах?
Очень прошу помощи, заранее откликнувшимся огромное спасибо
Изменено: vikttur - 03.06.2021 20:03:51
Создание списка ПДФ файлов со всеми примечаниями (теги, автор, название ...) при открытии книги
 
Спасибо большое, сейчас буду разбираться и пробовать
Создание списка ПДФ файлов со всеми примечаниями (теги, автор, название ...) при открытии книги
 
Всем добрый день.
Столкнулся с проблемкой, прошу помощи или подсказки, можно ли это реализовать.
Есть папка с файлами ПДФ, в ПДФ файлах прописано через свойства теги, автор, название ... и это все отображается в столбцах проводника.
Файлы дополняются, удаляются и редактируются.
Есть файл Excel, он находится не в этой папке.
Хотелось бы на отдельном листе получить список ПДФ файлов со всеми примечаниями (теги, автор, название ...), но не одноразово, а что бы он обновлялся при открытии файла.
Еще вопрос, а может ли наоборот при изменении в файле  Excel в столбцах данных (теги, автор, название ...) они подгружались в описание ПДФ файлов?
Заранее спасибо за любую помощь или совет.
Вывести в отдельную таблицу все строки, удовлетворяющие условию, тот же самый фильтр только в отдельную таблицу формулой.
 
Спасибо огромное за помощь!
Вывести в отдельную таблицу все строки, удовлетворяющие условию, тот же самый фильтр только в отдельную таблицу формулой.
 
Добрый день.
Прошу помощи спецов
Есть таблица, из нее надо сделать выборку по одному критерию м вывести отдельно.
Т.е. меня в I84 получаю сводник из общей таблицы.
Хотелось бы без макросов.
пример во вложении
Сумма по столбцам через определенное количество столбцов
 
Всем огромное спасибо! Заработало!
Код
=СУММПРОИЗВ($P$24:$AD$24*(ОСТАТ(СТОЛБЕЦ($P$24:$AD$24);5)=ОСТАТ(СТОЛБЕЦ()-8;5)))

От всей души спасибо, очень выручили
Сумма по столбцам через определенное количество столбцов
 
В желтую ячейку значения построчно из желтых столбцов
в красную  ячейку значения построчно из красных столбцов
Сумма по столбцам через определенное количество столбцов
 
Всем Гуру экселя добрый день.
Есть таблица, график. Хотелось бы что бы складывались значения в определенном диапазоне через определенное количество столбцов.
Раньше все работало, а сейчас засада.
Что не так не могу понять.
Прикрепляю саму таблицу, разбираю 2 ячейки выделенные желтым
I24

M24
Очень прошу помощи
При выборе в первом столбце переменной присваивать следующий прядковый номер.
 
Огромное спасибо !!!
При выборе в первом столбце переменной присваивать следующий прядковый номер.
 
Всем добрый день.
Прошу помощи гуру экселя.
Есть таблица 2 столбца. В первом переменная (всего 2 типа значений) вторая нумерация.
Хотелось бы при выборе в первом столбце переменной присваивался следующий прядковый номер.
Пример что хотелось бы получить во вложении.
Заранее откликнувшимся ОГРОМНОЕ СПАСИБО
разбить текст после сочетания определенных символов
 
Большое спасибо, сейчас буду пробовать
Страницы: 1 2 3 4 5 6 7 След.
Наверх