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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос копирования рассчитываемых значений на новый лист - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос копирования рассчитываемых значений на новый лист (Макросы/Sub)
Макрос копирования рассчитываемых значений на новый лист
vanka515 Дата: Понедельник, 11.04.2016, 11:02 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Помогите болбесу) Нужно копировать вводимые значения и рассчитываемые и вставлять их в новую таблицу на соседнем листе.
К сообщению приложен файл: examp.xlsm(96Kb)


Сообщение отредактировал vanka515 - Понедельник, 11.04.2016, 11:04
 
Ответить
СообщениеПомогите болбесу) Нужно копировать вводимые значения и рассчитываемые и вставлять их в новую таблицу на соседнем листе.

Автор - vanka515
Дата добавления - 11.04.2016 в 11:02
Roman777 Дата: Понедельник, 11.04.2016, 11:32 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 780
Репутация: 88 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
vanka515, покажите примером в файле, как они должны быть скопированы(заполните 2й лист как Вам необходимо).


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Понедельник, 11.04.2016, 11:33
 
Ответить
Сообщениеvanka515, покажите примером в файле, как они должны быть скопированы(заполните 2й лист как Вам необходимо).

Автор - Roman777
Дата добавления - 11.04.2016 в 11:32
vanka515 Дата: Понедельник, 11.04.2016, 11:51 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Roman777, копировать желательно без форматирования ячеек
К сообщению приложен файл: 5788263.xlsm(99Kb)
 
Ответить
СообщениеRoman777, копировать желательно без форматирования ячеек

Автор - vanka515
Дата добавления - 11.04.2016 в 11:51
Roman777 Дата: Понедельник, 11.04.2016, 12:02 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 780
Репутация: 88 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
vanka515, пока ещё не оч понимаю, Вы копируете при текущем расчёте из получившихся значений (с таблицы "скопировать") всегда самую первую строку?


Много чего не знаю!!!!
 
Ответить
Сообщениеvanka515, пока ещё не оч понимаю, Вы копируете при текущем расчёте из получившихся значений (с таблицы "скопировать") всегда самую первую строку?

Автор - Roman777
Дата добавления - 11.04.2016 в 12:02
vanka515 Дата: Понедельник, 11.04.2016, 12:05 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Roman777, да, я специально выделил её красным
 
Ответить
СообщениеRoman777, да, я специально выделил её красным

Автор - vanka515
Дата добавления - 11.04.2016 в 12:05
Roman777 Дата: Понедельник, 11.04.2016, 12:11 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 780
Репутация: 88 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
vanka515, не ясно, не вижу где красным показано, откуда Вы берёте значения: bp1 bp2 bp3 bp4 trx ce rrc.
но я кажись понял, у Вас там написано "Скопировать"...)


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Понедельник, 11.04.2016, 12:12
 
Ответить
Сообщениеvanka515, не ясно, не вижу где красным показано, откуда Вы берёте значения: bp1 bp2 bp3 bp4 trx ce rrc.
но я кажись понял, у Вас там написано "Скопировать"...)

Автор - Roman777
Дата добавления - 11.04.2016 в 12:11
vanka515 Дата: Понедельник, 11.04.2016, 12:15 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Roman777, Возможно не досмотрел последний залитый пример, но да все правильно поняли)
 
Ответить
СообщениеRoman777, Возможно не досмотрел последний залитый пример, но да все правильно поняли)

Автор - vanka515
Дата добавления - 11.04.2016 в 12:15
Roman777 Дата: Понедельник, 11.04.2016, 12:26 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 780
Репутация: 88 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Так?
[vba]
Код
Sub Cop()
Dim rng As Range, c As Range
Dim i&, i_n&
With Worksheets("User")
Set rng = Union(.Cells(4, 4), .Cells(4, 6), .Cells(4, 13), .Cells(4, 14), _
.Cells(26, 16), .Cells(26, 17), .Cells(26, 18), .Cells(26, 19), _
.Cells(26, 20), .Cells(26, 21), .Cells(26, 22), .Cells(26, 23))
End With
i_n = Worksheets("Automatic").Cells(Rows.Count, 2).End(xlUp).Row
For Each c In rng
i = i + 1
c.Copy Worksheets("Automatic").Cells(i_n + 1, i + 1)
Next c
End Sub
[/vba]


Много чего не знаю!!!!
 
Ответить
СообщениеТак?
[vba]
Код
Sub Cop()
Dim rng As Range, c As Range
Dim i&, i_n&
With Worksheets("User")
Set rng = Union(.Cells(4, 4), .Cells(4, 6), .Cells(4, 13), .Cells(4, 14), _
.Cells(26, 16), .Cells(26, 17), .Cells(26, 18), .Cells(26, 19), _
.Cells(26, 20), .Cells(26, 21), .Cells(26, 22), .Cells(26, 23))
End With
i_n = Worksheets("Automatic").Cells(Rows.Count, 2).End(xlUp).Row
For Each c In rng
i = i + 1
c.Copy Worksheets("Automatic").Cells(i_n + 1, i + 1)
Next c
End Sub
[/vba]

Автор - Roman777
Дата добавления - 11.04.2016 в 12:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос копирования рассчитываемых значений на новый лист (Макросы/Sub)
Страница 1 из 11
Поиск:

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