üç farklı veri ile işlem yapmak.

[noyfa]

merhaba arkadaşlar,
aşağıda örnek olarak yazdıgım formülü excel e nasıl hesaplatırız.


''A2''+''A3''=''A4''

KURALLAR;

1- HERHANGİ İKİ HÜCREYE DEĞER GİRİLDİGİNDE EKSİK KALAN HÜCREYİ KENDİSİ HESAPLAYACAK

2-HERHANGİ İKİ DEGERİ GİRDİGİMDE 3'ÜNCÜ KUTUCUGA TIKLADIGIMDA SONUÇ KENDİSİ ÇIKACAK VE KULLANICIN VERİ GİRİŞİNİ ENGELLEYECEK.



teşekkürler.

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın. Tüm hücreler dolu olduğunda veri giriş şifresi "123" dür.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("A2:A4")) Is Nothing Then Exit Sub
 
    On Error GoTo Son
    If WorksheetFunction.Count(Range("A2:A4")) = 2 Then
        Application.EnableEvents = False
 
        If Target.Address = "$A$4" Then
            [A3] = [A4] - [A2]
            [A2] = [A4] - [A3]
        ElseIf Target.Address = "$A$3" Then
            [A4] = [A2] + [A3]
            [A2] = [A4] - [A3]
        ElseIf Target.Address = "$A$2" Then
            [A4] = [A2] + [A3]
            [A3] = [A4] - [A2]
        End If
    End If
 
    Application.EnableEvents = True
Son:
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim sor As String
 
    If Intersect(Target, Range("A2:A4")) Is Nothing Then Exit Sub
 
    If WorksheetFunction.Count(Range("A2:A4")) = 3 Then
        sor = Application.InputBox("Şifre Girin", "Admin Yetkisi")
        If sor <> "123" Then
            MsgBox "Şifre Yanlış"
            Range("A1").Select
            Exit Sub
        End If
    End If
 
End Sub