Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/18: Рейтинг темы: голосов - 18, средняя оценка - 4.67
5 / 5 / 0
Регистрация: 02.01.2017
Сообщений: 164
1

Подскажите код макроса для переноса значений ячеек из одного листа в другой

12.03.2017, 21:20. Показов 3527. Ответов 3
Метки нет (Все метки)

Ребята подскажите макрос который может к примеру переносить значения из ячеек A1,F3,H7 Листа4 ,в ячейки Листа1 по принципу что значение ячейки из A1 в J3. из F3 в A5.из H7 в X6... Запуск должен с Листа1.и код можно было редактировать для возможности добавлять новые ячейки.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2017, 21:20
Ответы с готовыми решениями:

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

Копирование ячеек столбца одного листа и переноса на другой лист
Доброго времени суток всем вам, уважаемые форумчане. В виду рабочей необходимости, я начал...

Макрос для выборочного переноса из одного листа в другой
Здраствуйте! Так уж сложилось, что я не владею языками (программирования), но хорошо разбираюсь в...

Использование макросов для переноса данных с одного листа на другой
Доброго дня! Нужна помощь в написании макросов! На основании информации на листе "Табель" нужно ...

3
61 / 60 / 16
Регистрация: 13.02.2017
Сообщений: 172
12.03.2017, 22:09 2
Visual Basic
1
2
3
4
5
6
7
Sub Макрос1()
 
Sheets("Лист1").Range("J3") = Sheets("Лист4").Range("A1")
Sheets("Лист1").Range("A5") = Sheets("Лист4").Range("F3")
Sheets("Лист1").Range("X6") = Sheets("Лист4").Range("H7")
 
End Sub
1
6839 / 2779 / 523
Регистрация: 19.10.2012
Сообщений: 8,466
12.03.2017, 22:36 3
= - это не перенос, это приравнивание.
Т.е. после приравнивания/копирования нужно удалить исходное значение - вот тогда будет перенос.
1
61 / 60 / 16
Регистрация: 13.02.2017
Сообщений: 172
12.03.2017, 22:39 4
Лучший ответ Сообщение было отмечено Aleks 1978 как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Макрос1()
 
Sheets("Лист1").Range("J3") = Sheets("Лист4").Range("A1")
Sheets("Лист1").Range("A5") = Sheets("Лист4").Range("F3")
Sheets("Лист1").Range("X6") = Sheets("Лист4").Range("H7")
Sheets("Лист4").Range("A1").ClearContents
Sheets("Лист4").Range("F3").ClearContents
Sheets("Лист4").Range("H7").ClearContents
End Sub
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2017, 22:39

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Подскажите программу для переноса места с одного диска на другой
Здравствуйте. У меня на данный момент два локальных диска, но в последнее время замечаю, что на...

Перенос значений определенных ячеек активной строки одного листа в определенные ячейки другого листа
Добрый день! Создаю простенькую программу для регистрации посетителей. Состоит из трех листов -...

Макрос для переноса (с удалением) данных с одного листа на другой при появлении дополнительных данных в ячейке
Уважаемые форумчане, доброго дня. Прошу помочь по следующему вопросу: Во вложении файл Excel,...

Нужен макрос переноса ячеек с текстом из одного столбца в другой
Здравствуйте!Помогите с макросом.Нужен макрос который будет делать перенос всех ячеек содержащих в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.