sayfa1deki hücre 1 arttığında sayfa2deki hücreden ilgili olanları azaltılsın.

[sercankavri]

Merhaba arkadaşlar,
Excelde daha çok yeniyim ve stajda bir iş verildi şuan onu yapmak için yardımınıza ihtiyacım var.
sayfa1deki hücre (ürün) 1 arttığında sayfa2deki hücreden (hammadde stoklarından) ilgili olanları azaltılsın.
Ör.
Sayfa1 B1 hücresini 1 arttırdığımda
Sayfa2 de B2 B3 b14 b15 b16 hücreleri 1 azalsın
şimdiden teşekkür ediyorm yardımlarınız için.

 

[Korhan Ayhan]

Merhaba,

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

Daha sonra B1 hücresine veri girip deneyin.

Option Explicit
Dim Veri
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1:B1")) Is Nothing Then Exit Sub
    If Target <> "" Then
        If Target > Veri Then
            With Sheets("Sayfa2")
                .Range("B2") = .Range("B2") - 1
                .Range("B3") = .Range("B3") - 1
                .Range("B14") = .Range("B14") - 1
                .Range("B15") = .Range("B15") - 1
                .Range("B16") = .Range("B16") - 1
            End With
        End If
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Veri = Target
End Sub

 

[sercankavri]

cevabın için çok teşekkür ederim gerçekten çok işime yaradı çok saol.Bir sorum daha olabilir mi?
Bu işlemi bir kaç hücre için birden çok kere denemek istiyorum fakat beceremedim o konu hakkındada yardımcı olabilirsen çok sevinirim teşekkürler