Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Address = "$A$2" Then Exit Sub
If Range("B1") = Empty Then Range("B1") = "="
If IsNumeric(Range("A1")) And Range("A1") = 0 Then Range("B1").Formula = Range("B1").Formula & "+" & Range("A1")
End Sub
Uygulama...