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

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
654
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
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.
 

Ekli dosyalar

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde diğer kod satırlarını tamamlayınız.
Kod:
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

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
654
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
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

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
654
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
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

Özel Üye
Katılım
22 Şubat 2012
Mesajlar
2,824
Excel Vers. ve Dili
Excel 2007 Türkçe
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ı?
 
Üst