[Iska]

Можно ли сделать такой макрос »

HomaOne, примерно так:

Код:

Option Explicit

Sub CopyPasteSpecialToOne()
    Dim objPreviousWorkbook As Workbook
    Static objWorkbook As Workbook

    Selection.Copy
    
    If objWorkbook Is Nothing Then
        Set objPreviousWorkbook = ActiveWorkbook
        Set objWorkbook = Workbooks.Add()
        
        With objWorkbook.Worksheets.Item(1)
            .Name = "Сбор"
            .Cells(1, 1).Value = "Сбор"
        End With
        
        objPreviousWorkbook.Activate
        
        Set objPreviousWorkbook = Nothing
    End If
    
    With objWorkbook.Worksheets.Item("Сбор")
        .Cells(.UsedRange.Rows.Count + 1, 1).PasteSpecial Paste:=xlPasteValues
    End With
    
    Application.CutCopyMode = False
End Sub

при нажатии клавиши или сочитания »

Назначайте данный макрос сочетанию клавиш: Запуск макроса нажатием клавиши CTRL в сочетании с клавишей быстрого вызова. Например, на «Ctrl-Q».

[HomaOne]

Ух ты Адекваты детектед ! Iska спасибо огромное ! приду завтро на работу попробую !

[HomaOne]

Спасибо ОГРОМНОЕ все работает! вот только я что-то не пойму как сделать так чтоб поле перезагрузки компа он сохранялся...

[Iska]

вот только я что-то не пойму как сделать так чтоб поле перезагрузки компа он сохранялся... »

«Поле» — это явно «после». А вот «Он» — это кто или что?

[HomaOne]

Ах да . Макрос чтоб сохранялся ! Ну после перезагрузки все заново делать приходится ну там копировать его кнопу присваивать .

[Iska]

Самое простое — использовать для этого «Личную книгу макросов»:

Создание и удаление макросов - Excel - Office.com
Создание и сохранение всех макросов в одной книге - Excel - Office.com
Как в Excel использовать личную книгу макросов ~ Трюки и приемы в Microsoft Excel

[okshef]

HomaOne, Word, в отличие от Excel, предлагает созданный макрос применять для всех книг или конкретно для этой. Откройте документ Word, нажмите Alt+F11 и посмотрите, где находится модуль: в Normal.dotx или в конкретном документе?

[Iska]

okshef, что-то в личку было? Теперь то же самое, но для Word'а?!

HomaOne, для Word'а есть «Копилка»: Использование копилки для перемещения текста и рисунков - Word - Office.com. Главное, оригиналы потом случайно не сохранить.

[HomaOne]

А тема живет ! спасибо всем я уже разобрался что к чему !