Aynı sayfada 2 adet Private Sub Worksheet_Change(ByVal Target As Range)

[cocoa35]

Arkadaşlar merhaba, Ek'te örnek dosyada olduğu gibi aynı sayfada 2 farklı "Private Sub Worksheet_Change(ByVal Target As Range)" kod'larının birleştirilmesi gerekiyor, bazı denemeler yaptım ama hata veriyor bu konuda yardım lütfen.

 

[Seyit Tiken]

Bu şekilde diğer kod satırlarını tamamlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K4:K10]) Is Nothing Then Exit Sub
If Not Range("K4").HasFormula Then Range("K4") = "=Sayfa2!F4"
If Not Range("K5").HasFormula Then Range("K5") = "=Sayfa2!F5"

End Sub

 

[cocoa35]

Seyit bey merhaba, ilginiz için çok teşekkür ediyorum ancak bir konuda açıklama yapmam gerekiyor. Yukarıda sizin gönderdiğiniz kod'larda hücre değerini değiştiremiyoruz! Halbuki benim isteğim şu şekilde, kullanıcı kişi istediği hücreye istediği rakkamı girebilsin , girdiği anda hücre rengi değişsin ancak girdiği rakkamdan vaz geçip hücrenin eski haline gelmesini istediğinde girdiği rakkamı sildiğinde hücreye eski formülasyon geriye dönsün ve rengide eski rengine dönsün. Bunu yapmamın sebebi şu bir program düşünün birim fiyatların olduğu kolonda kullanıcı formül ile çıkan fiyatı veya fiyatları beğenmiyor ve kendi fiyatını giriyor, tabiki kolon'da çok birim fiyat olduğu için hangisini değiştirdiğini fark etmesi için hücrenin rengi değişiyor. sonra eğer isterse rengi değişen hücrelerdeki girdiği rakkamları sildiğinde hücreye formülasyon geri geliyor ve programın belirlediği fiyat çıkıyor vede hücre rengi eski rengine dönüyor. Benim yaptırmak istediğim bu şekilde..

 

[cocoa35]

Tamam yaptım aşağıdaki şekilde oldu üst kısımda sizin gönderdiğiniz renk değişim kod'ları var çok çok teşekkür ederim bu geç saatlerde ilgilendiğiniz için ayrıca teşekkürler, iyiki varsınız...

If Intersect(Target, [K4:K10]) Is Nothing Then Exit Sub
Call fiyat1
Call fiyat2

End Sub

 

[asi_kral]

Merhaba
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("K:K")) Is Nothing Then Exit Sub If Target.Row >= 4 And Target.Row <= 10 Then If Target.HasFormula = 0 Then Target.Interior.Color = 11854022 Else Target.Interior.Color = 14083324 End If End If Application.EnableEvents = False Call fiyat1 Application.EnableEvents = True End Sub

Bu şekilde deneme şansınız var mı?