Çözüldü Sabit sonuca otomatik eşitleme

belirli 3 hücre arasından doldurulan "herhangi" 2 hücre sonrasında; boş kalan sonuncu hücrenin otomatik olarak toplamı 12'ye tamamlayan sayı ile doldurulmasını istiyorum. Bunu nasıl yapabilirim.

=12-(TOPLA(A1+B1))

eğer herhangi biri boş ve bu hücreyi 12 ye tamamlamak istiyorsanız ve A1 , B1, C1 hücresinde işlem yapıldığını varsayarsak
Aşağıdaki kodları;

Sub tamamlama()
Application.ScreenUpdating = False
On Error Resume Next
If Cells(1, 1) = "" Then
Cells(1, 1) = 12 - (Cells(1, 2) + Cells(1, 3))
End If
If Cells(1, 2) = "" Then
Cells(1, 2) = 12 - (Cells(1, 1) + Cells(1, 3))
End If
If Cells(1, 3) = "" Then
Cells(1, 3) = 12 - (Cells(1, 1) + Cells(1, 2))
End If
End Sub

sayfanın kod bölümüne yerleştirin ve bir butona bağlayarak deneyin.
İyi çalışmalar.

muygun' Alıntı:

=12-(TOPLA(A1+B1))

Genişletmek için tıkla ...

bu formülü denedim ama istediğim bu değil. "herhangi" iki hücreye değer girmek istiyorum. bahsettiginiz formülü 3. hücreye yazınca, yani 1. ve bu formülün bulunduğu 3. hücreye değer girince formül silinir.
yani herhangi 2 hücreye değer girince son kalan hücrenin otomatik olarak toplamı 12ye eşitlemesini istiyorum.

Yada eki deneyin.

muygun' Alıntı:

Yada eki deneyin.

Genişletmek için tıkla ...

denedim olmuyor.

4 nolu mesajdaki eki indirin
A1 e 4 yazın
B1 e 3 yazın
C1 hücresini delete ile silin.
tamamla butonuna basın.
Bu denemeleri bu 3 hücrede yapın.
Makronun mantığı;
3 hücrede boş ise ilk hücre=12 ikinci=0 üçüncü=0
bir hücrede veri varsa 2. hücreyi 12 ye tamamlar üçüncü hücre=0
makronun çalışması için en az 1 hücrenin boş olması gerekir.
İyi çalışmalar.