Здравствуйте , знатоки очень нужна помощь. Сейчас у меня есть лист Свод и диапазон Mes.Cells(i, 6). В случае если он равен Шортам то значения из ячейки 14 копируются на новый лист Шорты. При этом шорты идут на листе Свод не с первой строчки а с 1800 . И соответственно на другой лист они копируются также со 1800. Как сделать чтобы копировалось на 3 строку другого листа??? Помогите пожалуйста с этим вопросом.
Код |
---|
Sub Pro2() Dim LastRow As Long, FirstRow As Long, Rw As Long, Mes As Object, Shorts As Object Set Mes = ActiveWorkbook.Sheets("Свод") Set Shorts = ActiveWorkbook.Sheets("Шорты") LastRow = Cells(Rows.Count, 6).End(xlUp).Row Rw = 6 For i = 1 To LastRow If Mes.Cells(i, 6) = "Шорты" Then Shorts.Cells(i, 4) = Mes.Cells(i, 14) End If Next End Sub |