Копирование Строки на Другой лист. - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

- - Копирование Строки на Другой лист. (http://forum.oszone.net/showthread.php?t=264348)

Копирование Строки на Другой лист.

Добрый день. Необходим макрос который копировал бы строку на другой лист и желательно с отменой навешанный на эту строку функций.
Дело в том что мне приходится работать с разными каталогами выбирая из них то что надо и очень не удобно постоянно выделять.копировать
и опять и если в начальном каталоге стоит какая то формула то после копирования там все цифры сбиваются.Можно ли сделать такой макрос с помощью котрого
при нажатии клавиши или сочитания эта строка копировалась бы на допустим последний лист и последующие копировались бы под нее ,
А еще лучше если бы они копировались в другой автоматически создающийся документ.

ЗЫ. Очень прошу помоч! Зашиваюсь в заказах. Начальство обещает автоматизацию процесса но каогда это будет не извесно
а я в макросах не разбираюсь и ни какими языками програмирования не владею , Буду очень признателенесли поможите.

ЗЫ.ЗЫ а может есть готовая пограммка в которую можно импортировать каталоги в Exel и сбивать в ней что-то типо счетов.
Подскажите пожалуйста что-то бесплатное или не слишком дорогое.

Цитата:

Цитата 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».

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

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

Цитата:

Цитата HomaOne

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

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

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

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

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

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

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

Цитата:

Цитата HomaOne

А тема живет ! »

Априори предполагается, что Вы подписываетесь на созданную Вами же тему и в курсе происходящих в ней обновлений.