Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Найти все строки по 3-м одинаковым значениям и скопировать их на отдельный лист
 
Добрый день, не могли бы вы помочь мне в решении этой задачи... пример того что  хочу в файле.
Необходимо найти номера всех строк в указанном диапазоне (ОТ-ДО), и скопировать эти строки на отдельный лист.
Изменено: stasdi - 11 Апр 2018 08:38:31
 
Как вариант - расширенный фильтр. Вызывать его с листа, на который необходимо отобрать данные.
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Спасибо за ответ, но надо код на VBA.
 
Цитата
stasdi написал: надо код на VBA
Сами начнете писать - помогут, а готовый получить - через "стол заказов" в разделе "Работа"... ;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
копирование строк
Цитата
stasdi написал:
в указанном диапазоне (ОТ-ДО)
хотя, думаю, нужно не совсем это
 
Спасибо за ваши ответы,
Я пытаюсь применить вот этот макрос...
Код
Dim r As IntegerDim r1 As Integer
r1 = 1
r = 2
With Sheets("Лист1")
Do While .Cells(r, "A") <> ""
If LCase(.Cells(r, "A")) = LCase(ComboBox1) And LCase(.Cells(r, "B")) = LCase(ComboBox2) Then
If Format(.Cells(r, "C"), "YYYYMMDD") >= Format(ComboBox3, "YYYYMMDD") And _
Format(.Cells(r, "C"), "YYYYMMDD") <= Format(ComboBox4, "YYYYMMDD") Then
.Cells(r, "A").Resize(1, 3).Copy Sheets("Лист2").Cells(r1, "A")
r1 = r1 + 1
End If
End If
r = r + 1
Loop
End With

Но не понимаю почему он ругается на строку:
.Cells(r, "A").Resize(1, 3).Copy Sheets("Лист2").Cells(r1, "A")
Изменено: stasdi - 13 Апр 2018 11:57:52
 
stasdi, сейчас еще модераторы будут ругаться, что не оформили код тэгом <...>

Замените:
Код
Cells(r1, "A") на Range("A" & r1)
Изменено: Anchoret - 11 Апр 2018 19:48:01
Страницы: 1
Читают тему (гостей: 1)