• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Çikarma İŞlemİ

Katılım
11 Ocak 2007
Mesajlar
28
Excel Vers. ve Dili
Excel 2003 Türkçe
Arkadaşlar örnekteki tablomun herhangi bir yerinde çıkarma işlemi yapacağım zaman shift=,-,enter formülünü her seferinde kullanmadan daha pratik bir şekilde yapabilirmiyim.Yani alt alta gelen iki sayıyı toplama işleminde seçili alanların toplamı aşağıda yazdığı gibi çıkarma işleminde de böyle bir kolaylık var mı?Yardımlarınız için şimdiden teşekkürler.
 
Kodu uygulayınız. Birbirinden çıkarılacak veri girip enterleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveCell = ActiveCell.Offset(-2) - ActiveCell.Offset(-1)
End Sub
 
Yanlız j14 hücresinde çalışması için.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [j14]) Is Nothing Then Exit Sub
If ActiveCell.Value <> "" Then
deg1 = ActiveCell.Offset(-2, 0)
deg2 = ActiveCell.Offset(-1, 0)
ActiveCell.Value = deg1 - deg2
End If
End Sub
 
Geri
Üst