Eğer formülü

[dyploth]

Merhaba arkadaşlar.
Bir formül yazmada yardıma ihtiyacım var. Detaylar aşağıda.

A1 = formul yazmak istediğim hücre
B1 = birinci sayi ( 81 diyelim ornek olarak)
C1 = ikinci Sayi (buraya da 24 diyelim)

A1 e yazmak istedigim su: B1 deki sayı ne kadar yukari çıkarsa C1'deki sayi o kadar aşağı gitsin. B1 81'den aşağı inerse C1'deki sayi o kadar artsın. C1in yeni degeri de A1 de olsun.
Mesela:
B1 1 artarsa ve 82 olursa A1 (C1-1) 23 olsun
B1 1 eksilirse ve 80 olursa A1 (C1+1) 25 olsun


Şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Anladığım şekliyle şunu deneyiniz: =105-B1

 

[dyploth]

Merhaba,
Anladığım şekliyle şunu deneyiniz: =105-B1

Teşekkürler. B1 ve C1 deki sayilar değişken. Sayilar degisince 105i degistirerek yapıyorum su an ama cok sık degismeye basladi ve formulle yapamadim.

 

[dyploth]

Aa simdi farkettim çözümü. =((b1+c1)-b1)

 

[çıtır]

Alternatif olsun

=c1

 

[Ömer BARAN]

Ben olayı/isteği; B1 ve C1'in toplamı aynı kalmak üzere (örneğe göre 105) ve bu hücrelere elle veri girişi yapılacağını,
"biri azaldığında diğeri artacak, biri arttığında diğeri azalacak" şeklinde düşünmüş ve buna göre makro ile çözüm tasarlamıştım.

İstek buysa, alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLE seçildiğinde açılacak VBA ekranında
sağdaki alana aşağıdaki kod blokunun yapıştırılması yeterli olur.
Bu işlem yapılmadan önce ilk veriler B1 ve C1'de hazır olmalıdır.

Dim b As Integer, c As Integer
Dim brn As Double

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1:C1]) Is Nothing Then Exit Sub
If Target.Address = "$B$1" And brn = 0 Then: brn = 1: [C1] = [C1] + b - Target
If Target.Address = "$C$1" And brn = 0 Then: brn = 1: [B1] = [B1] + c - Target
brn = 0
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B1:C1]) Is Nothing Then Exit Sub
    If Target.Address = "$B$1" Then: b = Target: Exit Sub
    If Target.Address = "$C$1" Then: c = Target: Exit Sub
End Sub