Tadas rašė:
> Sveiki,
> yra kodas:
> --------------------------------------------------------------------
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Column = 5 Then

If Target.Column = 5 And Target.Text <> vbNullString Then

> EIL_SKAICIUS = 0
> ESAMA_EILUTE = ActiveCell.Row
> EIL_SKAICIUS = Application.CountA(Range("A:A"))
> Sheets("SARASAS").Cells(EIL_SKAICIUS + 1, 2).Value =
> Sheets("SARASAS").Cells(ESAMA_EILUTE - 1, 5).Value
> Sheets("SARASAS").Cells(EIL_SKAICIUS + 1, 3).Value =
> Sheets("SARASAS").Cells(ESAMA_EILUTE - 1, 3).Value
> Sheets("SARASAS").Cells(EIL_SKAICIUS + 1, 4).Value =
> Sheets("SARASAS").Cells(ESAMA_EILUTE - 1, 4).Value
> End If
> End Sub

Brrr...
Nepakenktų įsisavinti With:
With Sheets("SARASAS").Cells
   .Cells(EIL_SKAICIUS + 1, 2).Value = .Cells(ESAMA_EILUTE - 1, 5).Value
   .Cells(EIL_SKAICIUS + 1, 3).Value = .Cells(ESAMA_EILUTE - 1, 3).Value
   .Cells(EIL_SKAICIUS + 1, 4).Value = .Cells(ESAMA_EILUTE - 1, 4).Value
End With