Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копирование на скрытый лист при помощи макроса, Проблема при копировании как только делаешь лист скрытым
 
#1
23.05.2022 17:17:13
С листа "Данные" копирую таблицу и пытаюсь вставить её при помощи макроса на срытый лист "Архив". Пока лист не скрытый - макрос работает, как только скрываю выдает ошибку: Метод Select из класса Worksheet завершен неверно.
Я дилетант в написании макросов, так что не судите строго. Плииз! Помогите исправить код.
При копировании, предварительно на листе "Архив" вставляю пустые строки чтобы новые данные не затирали предыдущие...
Код
Sub Макрос3()


    Sheets("АРХИВ").Select
    Rows("1:10").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Добавить").Select
    
    Range("AI1:AL9").Select
    Selection.Copy
    Sheets("АРХИВ").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    
Sheets("Добавить").Select
    
    End Sub
Изменено: Сергей - 23.05.2022 21:58:00
 
 
 
#2
23.05.2022 17:20:03
Код
Sub Макрос3()
    Sheets("Добавить").Range("AI1:AL9").Copy
    Sheets("АРХИВ").Range("A1").Paste
    End Sub
Изменено: Jack Famous - 23.05.2022 17:20:16
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#3
23.05.2022 17:22:20
Код
Sub Макрос3()
 
    Dim lVisible As Long
    lVisible = Sheets("АРХИВ").Visible
    Sheets("АРХИВ").Visible = -1
 
    Sheets("АРХИВ").Select
    Rows("1:10").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Добавить").Select
     
    Range("AI1:AL9").Select
    Selection.Copy
    Sheets("АРХИВ").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
     
    Sheets("Добавить").Select
     
    Sheets("АРХИВ").Visible = lVisible
End Sub
 
 
 
#4
23.05.2022 17:23:58
Код
'Отключить обновление экрана 
Application.ScreenUpdating=False
'Сделать лист не скрытым
Worksheets("Архив").Hidden=False
'Заняться копированием
Worksheets("Добавить").Range("AI1:AL9").Copy 
Worksheets("Архив").Range("A1").PasteSpecial Paste:=xlPasteValues
'Вернуть "скрытность" листу
Worksheets("Архив").Hidden=True
'Включить обновление экрана
Application.ScreenUpdating=True
Кому решение нужно - тот пример и рисует.
 
 
 
#5
23.05.2022 17:29:59
Пытливый, а без открытия разве не скопирует? Вроде в селектах только ошибка…
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#6
23.05.2022 17:45:58
Цитата
написал:
Sub Макрос3()      Dim lVisible As Long    lVisible = Sheets("АРХИВ").Visible    Sheets("АРХИВ").Visible = -1      Sheets("АРХИВ").Select    Rows("1:10").Select    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove    Sheets("Добавить").Select          Range("AI1:AL9").Select    Selection.Copy    Sheets("АРХИВ").Select    Range("A1").Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _        SkipBlanks:=False, Transpose:=False    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _        SkipBlanks:=False, Transpose:=False          Sheets("Добавить").Select          Sheets("АРХИВ").Visible = lVisibleEnd Sub
К сожалению не работает.(
Скопированное вставляет на тот же лист сдвигаю всё вниз.. (
 
 
 
#7
23.05.2022 17:52:40
Цитата
написал:

К сожалению не работает. Вставляет скопированное в тот же лист смещаю всё вниз... (
 
 
 
#8
23.05.2022 18:15:07
Цитата
написал:
Worksheets("Архив").Hidden=False
Выделяет желтым. Ошибка.
 
 
 
#9
23.05.2022 18:17:15
Цитата
написал:
Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11      'Отключить обновление экрана     Application.ScreenUpdating=  False    'Сделать лист не скрытым    Worksheets(  "Архив"  ).Hidden=  False    'Заняться копированием    Worksheets(  "Добавить"  ).Range(  "AI1:AL9"  ).Copy     Worksheets(  "Архив"  ).Range(  "A1"  ).PasteSpecial Paste:=xlPasteValues    'Вернуть "скрытность" листу    Worksheets(  "Архив"  ).Hidden=  True    'Включить обновление экрана    Application.ScreenUpdating=  True  
 
Worksheets("Архив").Hidden = False
Выделяет желтым. Ошибка.
 
 
 
#10
23.05.2022 18:19:59
Код
Sub test()
    'Отключить обновление экрана
    Application.ScreenUpdating = False
    'Сделать лист не скрытым
    Worksheets("Архив").Visible = True
    'Заняться копированием
    Worksheets("Добавить").Range("AI1:AL9").Copy
    Worksheets("Архив").Range("A1").PasteSpecial Paste:=xlPasteValues
    'Вернуть "скрытность" листу
    Worksheets("Архив").Visible = False
    'Включить обновление экрана
    Application.ScreenUpdating = True
End Sub
Изменено: New - 23.05.2022 18:21:54
 
 
 
#11
23.05.2022 18:22:41
New, теперь выделяет желтым следующую строку
Worksheets("Архив").Range("A1").PasteSpecial Paste:=xlPasteValues
 
 
 
#12
23.05.2022 18:23:23
я обновил выше код. У меня работает (если в файле есть листы "Архив" и "Добавить")
Изменено: New - 23.05.2022 18:24:08
 
 
 
#13
23.05.2022 19:00:14
New, вам файл скинуть?
 
 
 
#14
23.05.2022 19:49:13
мне не надо скидывать, вы можете приложить свой файл к вашему первому сообщению. Нажмите в первом сообщении кнопку "Изменить" и там ниже будет кнопка "Загрузить файлы" и мышкой можете перенести свой файл в это поле и файл загрузится (если он меньше, чем 300кб)
 
 
 
Страницы: 1
Наверх