2007

Iska · Отправлено: **17:33, 15-07-2013** | #2

Цитата HomaOne:

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

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

Цитата HomaOne:

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

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

HomaOne · Отправлено: **20:04, 15-07-2013** | #3

Ух ты

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

HomaOne · Отправлено: **11:37, 16-07-2013** | #4

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

Iska · Отправлено: **18:54, 16-07-2013** | #5

Цитата HomaOne:

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

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

HomaOne · Отправлено: **11:58, 17-07-2013** | #6

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

Iska · Отправлено: **12:13, 17-07-2013** | #7

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

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

okshef · Конфигурация компьютера

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

Iska · Отправлено: **21:50, 17-07-2013** | #9

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

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

HomaOne · Отправлено: **16:12, 19-07-2013** | #10

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