Kaip tai daroma ?

"Linas Petkevičius" <linas@NONONOglservices.lt> wrote in message 
news:jsrg3p$gjq$1@trimpas.omnitel.net...
> Naudoti OnKey eventa ir tikrinti kokia knopke paspausta?
>
> "Tadas"  wrote in message news:jsre2a$e1b$1@trimpas.omnitel.net...
>
> Sveiki,
> yra kodas:
> --------------------------------------------------------------------
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Column = 5 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
>
> --------------------------------------------------------------------
> Dabar veikia taip. Jei 5-ame stulpelyje irasome bet kurioje celeje 
> reiksme,
> tai atomatiskai sukuriama nauja eilute saraso gale ir nukopijuojama 3,4,5
> stulpeliu informacija tos eilutes, kurios 5-ame stulpelyje buvo padarytas
> irasas i naujai saraso gale sukurtos eilutes 2,3,4 stulpelius.
>
> Kaip padaryti, kad kodas nesuveiktu, paspaudus DELETE klavisa 5-o 
> stulpelio
> bet kurioje celeje, taciau DELETE klaviso funkcija suveiktu (istrintu 
> celeje
> esancia reiksme) ?
>