Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.04.2018, 14:04   #1
stasdi
 
Регистрация: 11.04.2018
Сообщений: 4
По умолчанию Поиск и копирование строк, как найти все строки по 3-м одинаковым значениям и скопировать их на отдельный лист?

Добрый день, не могли бы вы помочь мне в решении этой задачи... пример того что хочу в файле.
Необходимо найти номера всех строк в указанном диапазоне (ОТ-ДО), и скопировать эти строки на отдельный лист.
Вложения
Тип файла: zip test.zip (20.3 Кб, 18 просмотров)
stasdi вне форума Ответить с цитированием
Старый 11.04.2018, 14:50   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Dim r As Integer
Dim 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
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 11.04.2018, 15:08   #3
stasdi
 
Регистрация: 11.04.2018
Сообщений: 4
По умолчанию

Пишет ошибку:
Run-time '9'

ругается на строку:
.Cells(r, "A").Resize(1, 3).Copy Sheets("Лист2").Cells(r1, "A")
stasdi вне форума Ответить с цитированием
Старый 11.04.2018, 15:10   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

"Лист2" конечно же создали, а форму запускаете при активном Лист1?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 11.04.2018, 15:15   #5
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

кросс https://www.planetaexcel.ru/forum/in...at-ikh-na-otde
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 11.04.2018, 15:17   #6
stasdi
 
Регистрация: 11.04.2018
Сообщений: 4
По умолчанию

Надо было Лист2 создать....)))
Всё работает спасибо.
stasdi вне форума Ответить с цитированием
Старый 13.04.2018, 13:24   #7
stasdi
 
Регистрация: 11.04.2018
Сообщений: 4
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
"Лист2" конечно же создали, а форму запускаете при активном Лист1?
Подскажите, пожалуйста.
При копировании этих строк, можно указать формат числовой? а то в таблице есть числа, а при копировании на отдельный лист они преобразуются в число.
stasdi вне форума Ответить с цитированием
Старый 13.04.2018, 14:03   #8
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от stasdi Посмотреть сообщение
а то в таблице есть числа, а при копировании на отдельный лист они преобразуются в число.
ась?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
копирование и сохранение определенных ячеек на отдельный лист Ника2016 Microsoft Office Excel 7 15.11.2016 16:26
Копирование строк таблицы по условию одной ячейки из Лист 1 в Лист 2 Людвиг Microsoft Office Excel 5 25.10.2014 11:46
копирование строк, соответствующих условию фильтра и копирование на новый лист xorek Microsoft Office Excel 0 09.07.2012 18:13
Поиск по выделенным красным цветом строк и копирование их на новый лист. PetroD Microsoft Office Excel 11 10.08.2010 15:01