Здравствуйте , знатоки очень нужна помощь. Сейчас у меня есть лист Свод и диапазон 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 |
