pvz. taip:

Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Address = "$A$1") Then
    If (Target.Value = 0) Then
      Range("A2:B8").Value = 0
    End If
  End If
End Sub

Dešine knopke ant sheeto vardo, ->view code, ir atsidariusiame lange įkopijuoji šitą. Celių adresus pasikoreguok kaip tau reikia

On Thu, 4 Aug 2011 23:16:29 +0300, "siGis" <s@s.s> wrote:

>Reikia padaryti taip kad i pasirinkta cele irasius pvz. 0 formuleje 
>pasirinktose celese isirasytu 0 taip kad kai tose celese bus irasomas 
>skaicius ar tekstas valdancioji cele automatiskai nepaverstu ju vel nuliais.