|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.04.2020, 03:23 | #1 |
Новичок
Джуниор
Регистрация: 03.04.2020
Сообщений: 2
|
копировать ячейки по условию на другой лист
Добрый день
пытаюсь разобраться в vba подскажите пожалуйста, что нет так? как должно работать если на листе "свод по банкам" в строке, значение в столбце B = RUB нужно скопировать значение строки в столбцах A,D,G,J на лист "T042A rub" в столбцы A,B,C,D если значение <>RUB значения этой строки не копировать что не так в коде, отрабатывает без ошибок, но результата нет |
03.04.2020, 09:05 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
А макрос-то где собственно?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
03.04.2020, 10:11 | #3 |
Новичок
Джуниор
Регистрация: 03.04.2020
Сообщений: 2
|
Sub Macros()
Dim sh As Worksheet, sh2 As Worksheet Dim rng As Range, i As Long, r As Long, shr As Long Set sh = Sheets("свод по банкам") Set sh2 = Sheets("T042A rub") ' строк в исходном shr = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row With sh ' перебираем элементы For i = 3 To .Cells(.Rows.Count, 2).End(xlUp).Row ' найдено совпадение If sh.Cells(i, "B") = RUB Then ' последняя строка r = sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row + 1 ' перенос значений .Cells(sh2, "A") = .Cells(sh, "A") .Cells(sh2, "B") = .Cells(sh, "D") .Cells(sh2, "C") = .Cells(sh, "B") .Cells(sh2, "D") = .Cells(sh, "J") ' выход из цикла Exit For End If Next i End With Set sh = Nothing Set sh2 = Nothing End Sub |
03.04.2020, 11:50 | #4 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
03.04.2020, 16:10 | #5 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как копировать ячейки в другой лист кнопкой | 5mrs | Microsoft Office Excel | 3 | 30.01.2015 13:49 |
Копировать нескольку строку в другой лист с условиями | Aqil_f | Microsoft Office Excel | 2 | 29.01.2015 11:41 |
Копирование строк таблицы по условию одной ячейки из Лист 1 в Лист 2 | Людвиг | Microsoft Office Excel | 5 | 25.10.2014 11:46 |
копировать ячейки из другой книги | Magnetic Air | Microsoft Office Excel | 5 | 17.02.2011 01:16 |
Выбор из столбца по критерию и копировать ячейку из этой строки на другой лист | Тетя Мотя | Microsoft Office Excel | 1 | 17.09.2009 16:46 |