hücre renklendirme örneği

[ugur.t]

verdiğim örnekte m10 ve son arasındaki hücrelere tıklandığında renk almasını istiyorun.yardımlarınız için teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [m10:m50]) Is Nothing Then Exit Sub
[m10:m50].Interior.ColorIndex = 0
ActiveCell.Interior.ColorIndex = 6
End Sub

 

[ugur.t]

yardımlarınız için teşekkürler.hemen denemek istiyorum saygılar

 

[mustafa7691]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [m10:m50]) Is Nothing Then Exit Sub
[m10:m50].Interior.ColorIndex = 0
ActiveCell.Interior.ColorIndex = 6
End Sub

Sn Hocam güzel çaılşma elinize sağlık ama birşey sormak isterim.m10:m50 arasına tıklandığında renk sarı oluyor.peki daha sonra başka bir hücreye tıklandığında renk tekrar sarıdan normale dönemezmi acaba .saygılarımla

 

[Ferhat Pazarçevirdi]

Koddaki 2.satırı aşağıdaki gibi değiştirirseniz olur.

If Intersect(Target, [m10:m50]) Is Nothing Then: [m10:m50].Interior.ColorIndex = 0: Exit Sub

 

[mustafa7691]

emeğinize sağlık şimdi dahada güzelleşti.teşekkürler

 

[mustafa7691]

Sn fpc son olarak bir sayfa korumalı bölümde bunu kullanmak istediğim için

ActiveSheet.Unprotect Password:="0"
ActiveSheet.Protect Password:="0"

kodlarını bu formüle bir şekilde yerleştirme imkanımız olurmu.ben yazdığınızdan beri başaramadım .Saygılarımla

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect Password:="0"
If Intersect(Target, [a3:a2000]) Is Nothing Then: [a3:a2000].Interior.ColorIndex = 0: Exit Sub
[a3:a2000].Interior.ColorIndex = 0
ActiveCell.Interior.ColorIndex = 6
ActiveSheet.Protect Password:="0"
End Sub

en son uyguladığım şekli bu ve korumayı kaldırıp tekrar kitlemiyor.

 

[Ferhat Pazarçevirdi]

Sn.mustafa7691

Bu kodda iki farklı çıkış kapısı var. Dikkat ederseniz, Biri; normal en sondaki "End Sub" ifadesi, diğeri ise aralardaki "Exit sub" ifadesi... Eğer siz verdiğiniz örnekteki gibi koruma kodlarını yerleştirirseniz bir kapıyı açık bırakırsınız. O da "Exit sub" kapısıdır.

Aşağıdaki kodları deneyiniz.

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect Password:="0"
If Intersect(Target, [a3:a2000]) Is Nothing Then
   [a3:a2000].Interior.ColorIndex = 0
   [COLOR=blue][B]ActiveSheet.Protect Password:="0"[/B][/COLOR]
   Exit Sub
End If
[a3:a2000].Interior.ColorIndex = 0
ActiveCell.Interior.ColorIndex = 6
[COLOR=red][B]ActiveSheet.Protect Password:="0"[/B][/COLOR]
End Sub

 

[mustafa7691]

Sn fpc çok çok teşekkürler.hem çalışma hem aydınlatma için.kolaylıklar dilerim

 

[limanC34]

hücre renklendir

biraz değişik