Здраствуйте! Есть макрос который заполняет ячейки на основании другого листа. Но делать надо все по-одному. Что надо изменить что-бы протягивая или копируя значения заполнялись ячейки? (А не только первая).
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E2:E10000")) Is Nothing Then
If Range("E" & Target.Row) <> "" Then
i = Cells(Split(Target.Address, "$")(2), 2)
With Sheets("Лист1")
For s = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(s, 2) = i Then
.Cells(s, 5) = "Гараж"
.Cells(s, 3) = ""
.Cells(s, 4) = ""
End If
Next
End With
End If
End If
end sub |