Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Dobrey
0 / 0 / 0
Регистрация: 02.11.2018
Сообщений: 2
1
Excel

Копирование определенных ячеек из строки на другой лист по условию

09.07.2019, 05:51. Просмотров 332. Ответов 3
Метки нет (Все метки)

Здравствуйте! Помогите с написанием макроса (я в этом вообще ноль). Есть таблица с листами. Необходимо со 2 листа скопировать определенные ячейки из строки в определенные ячейки 3 листа на новой строке, когда на 2 листе в ячейки колонки Дата передачи в юр. отдел будет проставлена дата. Плюс на ходу вставить формулу для подсчета суммы в копируемых ячейках. Большое спасибо.
0
Вложения
Тип файла: xlsx Табица пример.xlsx (53.1 Кб, 4 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.07.2019, 05:51
Ответы с готовыми решениями:

Excel копирование определенных ячеек и строк на другой лист
Здравствуйте. Имеется лист с которого нужно при нажатии кнопки скопировать определенные данные на...

Копирование ячеек с листа на лист по условию одной ячейки
Уважаемые специалисты Excel, прошу Вашей помощи в написании макроса. Сам на просторах интернета...

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

Копирование данных из разных ячеек одного листа на другой лист
Ребят, доброго всем вечера. Требуется помощь. VBA в рамках предмета под названием "информатика",...

Копирование данных на другой лист при условии определенных данных
Добрый день! Нужна помощь чайнику при формировании картотеки сотрудников. Есть общая база данных ,...

3
Narimanych
806 / 574 / 285
Регистрация: 23.03.2015
Сообщений: 1,963
09.07.2019, 08:33 2
A какая у вас колонка
Цитата Сообщение от Dobrey Посмотреть сообщение
Дата передачи в юр. отдел
Добавлено через 18 минут
Dobrey,

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Dobrey()
Dim SH2 As Worksheet, SH3 As Worksheet
Set SH2 = ThisWorkbook.Sheets(2)
Set SH3 = ThisWorkbook.Sheets(3)
j = 2
 
For i = 3 To SH2.Cells(Rows.Count, 1).End(xlUp).Row
If SH2.Range("AW" & i).Value <> 0 Then
SH3.Range("A" & j) = SH2.Range("B" & i)
 
А здесь по аналогии сами допишите для остальных ячеек
 
 
j = j + 1
End If
Next
End Sub
1
Dobrey
0 / 0 / 0
Регистрация: 02.11.2018
Сообщений: 2
09.07.2019, 08:38  [ТС] 3
Огромное спасибо!!! Буду пробовать))
0
Narimanych
806 / 574 / 285
Регистрация: 23.03.2015
Сообщений: 1,963
09.07.2019, 08:39 4
Dobrey,

Вы бы хотя бы цветом ячнйки выделили, какие-куда...

А так -гадать неохота.

Добавлено через 42 секунды
И это непонятно
Цитата Сообщение от Dobrey Посмотреть сообщение
Плюс на ходу вставить формулу для подсчета суммы в копируемых ячейках
0
09.07.2019, 08:39
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.07.2019, 08:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Копирование значений строки на другой лист
Подскажите пожалуйста. Как скопировать все имеющиеся значения в первой строке на &quot;Лист 1&quot; и...

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

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


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

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

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