satır-sütun renklendirme

[esref55]

Merhabalar
Arkadaşlar herhangi bir excell sayfasında çalışırken, bulunduğum hücreye ait satır ve sütunun renklendirilmesini istiyorum. Kayıt girerken kolaylık olsun diye.
Bunun için hazır bir kod varmı. Yardımcı olursanız sevinirim.

 

[kazimf]

Aşağıdaki kod işini görecektir...


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oRow As String
Dim oCol As String
Dim DataRg As Range
Dim A As Range


Dim AllRg As Range

Set DataRg = Range("B2:AA1000")
Set AllRg = Range("A1:AA1000")

If Target.Cells.Count > 1 Then Exit Sub

If Not Application.Intersect(Target, DataRg) Is Nothing Then
AllRg.Interior.ColorIndex = xlNone
oRow = "A" & Target.Row & ":" & Target.Offset(0, -1).Address
oCol = Target.Offset(1 - Target.Row, 0).Address & ":" & Target.Offset(-1, 0).Address
Range(oRow).Interior.ColorIndex = 6
Range(oCol).Interior.ColorIndex = 6
Else
AllRg.Interior.ColorIndex = xlNone
End If

End Sub

 

[Recep İpek]

Aşağıdaki linkide inceleyebilirsiniz.

http://www.excel.web.tr/f133/aktif-h-252-cre-sat-305-r-s-t14377.html

 

[esref55]

sayın kazımf,
kodları vb.yazdım.ancak hiçbirşey olmuyor.başka yapmam gereken varmı.teşekkür ederim

 

[esref55]

arkadaşlar ekteki dosyanın kod bölümünde yazılan satır-sütun renklendirme kodu çalışmıyor. ben bunu çalışan bir dosyadan aldım. yardımcı olabilirmisiniz.

 

[Korhan Ayhan]

Selamlar,

Eğer asıl dosyanızda tablolarınızda farklı renkler kullanıyorsanız ve bunların renklendirme olayından etkilenmesini istemiyorsanız Sn. Recep beyin verdiği linki inceleyiniz.

Eğer veri kaydı yaptığınız tabloda farklı renkler yoksa ekteki örnek dosyayı kendinize uyarlayıp kullanabilirsiniz.

Sizin eklemiş olduğunuz dosyada sadece dosyanın açılışında ve kapanışında aktif sayfadaki tüm renkleri temizleyen kod kullanılmıştır. Bu sebeple sonuca ulaşamamışsınız.

 

[esref55]

Korhan Bey
İstediğim buydu.Çok Teşekkür ederim.