Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставить скопированные ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить скопированные ячейки (Макросы/Sub)
Вставить скопированные ячейки
122334boss Дата: Среда, 04.02.2015, 03:12 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 20% ±

Доброй ночи.

Подскажите. Я не силен в макросах. Простая таблица, с помощью помощника записал макрос, который должен скопировать выделенные значения и вставить на другой лист. Запускаю макрос, а он не работает, или ошибку выдает или просто пустые строки. Он же должен автоматически работать без проблем, что не так делаю?

Вот пример:

[vba]
Код
Sub Макрос11()
'
' Макрос11 Макрос
'

'
ActiveCell.Offset(-2, 21).Range("A1:B52").Select
Selection.Copy
Sheets("Упр. предлож.").Select
ActiveCell.Offset(-10, 4).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveCell.Offset(2, -9).Range("A1").Select
End Sub
[/vba]
[moder]135 сообщений на форуме, а Правила до сих пор не прочитаны? Ни файла, ни тегов[/moder]
 
Ответить
СообщениеДоброй ночи.

Подскажите. Я не силен в макросах. Простая таблица, с помощью помощника записал макрос, который должен скопировать выделенные значения и вставить на другой лист. Запускаю макрос, а он не работает, или ошибку выдает или просто пустые строки. Он же должен автоматически работать без проблем, что не так делаю?

Вот пример:

[vba]
Код
Sub Макрос11()
'
' Макрос11 Макрос
'

'
ActiveCell.Offset(-2, 21).Range("A1:B52").Select
Selection.Copy
Sheets("Упр. предлож.").Select
ActiveCell.Offset(-10, 4).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveCell.Offset(2, -9).Range("A1").Select
End Sub
[/vba]
[moder]135 сообщений на форуме, а Правила до сих пор не прочитаны? Ни файла, ни тегов[/moder]
Автор - 122334boss
Дата добавления - 04.02.2015 в 03:12
122334boss Дата: Среда, 04.02.2015, 08:50 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 20% ±

Уважаемые модераторы.

1. Правила я читаю, но не могу прикрепить файл так как он более 400 кб, на сайте можно прикрепить только 100 кб.
Вот я и вставил пример в текст письма.
2. В новом Excel файле все работает, но в моем не работает и я не могу понять почему.
Как быть?
 
Ответить
СообщениеУважаемые модераторы.

1. Правила я читаю, но не могу прикрепить файл так как он более 400 кб, на сайте можно прикрепить только 100 кб.
Вот я и вставил пример в текст письма.
2. В новом Excel файле все работает, но в моем не работает и я не могу понять почему.
Как быть?
Автор - 122334boss
Дата добавления - 04.02.2015 в 08:50
Pelena Дата: Среда, 04.02.2015, 08:57 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19188
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Сократите таблицу, используя удаление строк/столбцов, заархивируйте

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеСократите таблицу, используя удаление строк/столбцов, заархивируйте
Автор - Pelena
Дата добавления - 04.02.2015 в 08:57
122334boss Дата: Среда, 04.02.2015, 09:03 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 20% ±

Pelena,
спасибо за совет, сейчас сделаю...
тему нужно будет заново открывать или в этой добавлять файл?
 
Ответить
СообщениеPelena,
спасибо за совет, сейчас сделаю...
тему нужно будет заново открывать или в этой добавлять файл?
Автор - 122334boss
Дата добавления - 04.02.2015 в 09:03
Pelena Дата: Среда, 04.02.2015, 09:13 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19188
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
В этой, конечно

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВ этой, конечно
Автор - Pelena
Дата добавления - 04.02.2015 в 09:13
122334boss Дата: Среда, 04.02.2015, 09:42 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 20% ±

Pelena,
в файле я записал "макрос 13"
заранее благодарен.
К сообщению приложен файл: 5723720.rar (36.3 Kb)
 
Ответить
СообщениеPelena,
в файле я записал "макрос 13"
заранее благодарен.
Автор - 122334boss
Дата добавления - 04.02.2015 в 09:42
_Boroda_ Дата: Среда, 04.02.2015, 09:48 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вам так нужно?
[vba]
Код
Sub Макрос11()
Range("AB1:AC77").Copy
Sheets("Лист2").Range("L1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВам так нужно?
[vba]
Код
Sub Макрос11()
Range("AB1:AC77").Copy
Sheets("Лист2").Range("L1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 04.02.2015 в 09:48
122334boss Дата: Среда, 04.02.2015, 09:58 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 20% ±

_Boroda_,
я делаю для ребенка программу тренажер, хочу поставить например 15 кнопок и привязать к ним макросы, каждая из которых будет включать новое задание.
допустим на 1 листе сформированные задания и при нажатии кнопки 1 первое задание копируется и вставляется на 2 лист, чтобы ребенок мог его выполнить, затем 2 кнопка копируется 2 задание, вставляет на лист 2 и т.д. С помощью помощника я записал макрос, но он почему то не работает именно в этом файле в других файлах похожий макрос работает без проблем. Вопрос, что может быть не так?
 
Ответить
Сообщение_Boroda_,
я делаю для ребенка программу тренажер, хочу поставить например 15 кнопок и привязать к ним макросы, каждая из которых будет включать новое задание.
допустим на 1 листе сформированные задания и при нажатии кнопки 1 первое задание копируется и вставляется на 2 лист, чтобы ребенок мог его выполнить, затем 2 кнопка копируется 2 задание, вставляет на лист 2 и т.д. С помощью помощника я записал макрос, но он почему то не работает именно в этом файле в других файлах похожий макрос работает без проблем. Вопрос, что может быть не так?
Автор - 122334boss
Дата добавления - 04.02.2015 в 09:58
122334boss Дата: Среда, 04.02.2015, 14:28 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 20% ±

_Boroda_,
спасибо, заработало.
а почему с помощью помощника макрос записывается и не работает?
 
Ответить
Сообщение_Boroda_,
спасибо, заработало.
а почему с помощью помощника макрос записывается и не работает?
Автор - 122334boss
Дата добавления - 04.02.2015 в 14:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить скопированные ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!