Sayıya eşitleme

[Bayramsnmz]

Merhaba,
Üç satırlık tabloda, 1ve 2 inci satıra yazacağım rakamın 3üncü satırdaki sayıya eşit olmasını istiyorum. Mesala, birinci satır katı, ikinci satır atık, üçüncü satır beslenen Cevher satırı olsun. Beslenen Cevher 600 ton, birinci satırdaki katı 300 ton bilgisi verildi, excelde katıya 300 yazdığımda atık da otomatik 300 yazsın istiyorum. Yada tersi atık 300 ton bilgisi verildi, atık kısmına 300 ton yazdığımda katı kısmında otomatik 300 yazsın. Bunu nasıl yapabilirim?

 

[mzsakall]

Bunu sürekli mi yapıyorsunuz alt alta mı bir örnek ile destekler misiniz sıralama hep bu 3 ürün ismiyle mi gidiyor ?

 

[Bayramsnmz]

Bunu sürekli mi yapıyorsunuz alt alta mı bir örnek ile destekler misiniz sıralama hep bu 3 ürün ismiyle mi gidiyor ?

Alt alta. Beslenen Cevher hep sabit. 600 ton ama üst satırlardaki veriler değişiyor.
Cevher hazırlama ekran görüntüsü

 

[Korhan Ayhan]

Merhaba,

Öncelikle profilinizde yazan sürüm (Excel Vers. ve Dili Excel) bilgisini revize etmenizde fayda var. Bu bölüm size verilecek cevaplar için önemlidir.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayınız.

Paylaştığınız görseldeki iki hücreye veri girişi yaptığınızda toplama göre diğer hücre ayarlanacaktır.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B4:B5")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If WorksheetFunction.Sum(Range("B4:B5")) <> Range("B6") Then
        If Target.Address(0, 0) = "B4" Then
            Range("B5") = Range("B6") - Target
        ElseIf Target.Address(0, 0) = "B5" Then
            Range("B4") = Range("B6") - Target
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[Bayramsnmz]

Merhaba,

Öncelikle profilinizde yazan sürüm (Excel Vers. ve Dili Excel) bilgisini revize etmenizde fayda var. Bu bölüm size verilecek cevaplar için önemlidir.

Aşağıdaki kodu sayfanızın kod bölümüne uygulayınız.

Paylaştığınız görseldeki iki hücreye veri girişi yaptığınızda toplama göre diğer hücre ayarlanacaktır.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B4:B5")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If WorksheetFunction.Sum(Range("B4:B5")) <> Range("B6") Then
        If Target.Address(0, 0) = "B4" Then
            Range("B5") = Range("B6") - Target
        ElseIf Target.Address(0, 0) = "B5" Then
            Range("B4") = Range("B6") - Target
        End If
    End If
    Application.EnableEvents = True
End Sub

İlginiz ve cevabınız için çok teşekkür ederim. Bunun gibi 3 satır daha olacak. Bu kodun sadece satır numaralarını değiştirip kopyalayıp yapıştırarak kullanabilir miyim?

 

[Bayramsnmz]

kod yazma bölümüne yazdım ama çalışmadı. özür dileyerek hiç bilmeyen için tarif edebilir misiniz ?