Seçilen Satır ve Sütunun Reklenmesi

[mustafa1205]

Örnek dosyamda da açıklama yapmaya çalıştım. Seçtiğim hücreye bağlı başlık satırına kadar olan hücre ve ilk sütundaki isimlere kadar olan hücreleri renklendirmek istiyorum. Tüm satır ve sütun değil. Birde sayfa korumalı olacak sadece B2:I12 arası hücreler açıktır. Yani ben işlem yaparken sayfa sürekli korumalı oluyor. Teşekkür ederim.

 

[Orion1]

dosyanız ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect "evren"
Range("B2:I12").Interior.ColorIndex = xlNone
ActiveSheet.Protect "evren"
If Intersect(Target, [B2:I12]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect "evren"
Range("B" & ActiveCell.Row & ":I" & ActiveCell.Row).Interior.ColorIndex = 3
ActiveCell.Interior.ColorIndex = 8
Range(Cells(2, ActiveCell.Column), Cells(12, ActiveCell.Column)).Interior.ColorIndex = 3
ActiveCell.Interior.ColorIndex = 8
ActiveSheet.Protect "evren"
End Sub

 

[mustafa1205]

Sevgili Evren Hocam çok teşekkür ediyorum. Tam istediğim gibi olmuş. Elleriniz dert görmesin. İyi çalışmalar...

 

[Orion1]

Sevgili Evren Hocam çok teşekkür ediyorum. Tam istediğim gibi olmuş. Elleriniz dert görmesin. İyi çalışmalar...

Rica ederim.
İyi çalışmalar.

 

[mustafa1205]

Hocam kusura bakmayın ufak bir sorum olacak. Kodlar sayfa korumalı iken hata veriyor. Sayfa korumalı iken bu kodlar çalışabilir mi ?

 

[Orion1]

Hocam kusura bakmayın ufak bir sorum olacak. Kodlar sayfa korumalı iken hata veriyor. Sayfa korumalı iken bu kodlar çalışabilir mi ?

Dosyanızı 2 nolu mesajda güncelledim.
Oradan indirebilirisiniz.
sayfa koruma parolası evren

 

[mustafa1205]

Dosyanızı 2 nolu mesajda güncelledim.
Oradan indirebilirisiniz.
sayfa koruma parolası evren

Teşekkürler Hocam. Ellerinize sağlık. İyi çalışmalar....