Добрый день, не могли бы вы помочь мне в решении этой задачи... пример того что хочу в файле. Необходимо найти номера всех строк в указанном диапазоне (ОТ-ДО), и скопировать эти строки на отдельный лист.
Спасибо за ваши ответы, Я пытаюсь применить вот этот макрос...
Код
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")