Satır renklendirme ve hareket etmesi ana sayfadaki gibi

[şrars]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = ActiveCell.Row
Range(ActiveCell.Address & ", A" & sat & ":ZZ" & sat).Select
End Sub

Bunu buldum araya araya ama kaydedemiyorum
uyarı veriyo aşagıdaki özellikler mokro içermeyen calışma gitabına kaydedilemez
vb projesi
dosyayı bu özelliklerde kaydetmek için evete bastıgımda bu cıkıyor
gizlilik uyarısı bu belge makrolar , Actifex denetimleri XML genişletme paketi bilgileri veya wep bileşenleri içeriyor bunlar belge denetçisi tarafından kaldırılmayan kişisel bilgiler olabilir yazıyor

bu kodla rengi deyiştiremiyorum kafam karıştı saygılar

Bunu formülle yada normal excel sayfasında nasıl yapabilirim.Kaç çeşit yolu var bunu yapmanın.
En kolay şeklinde.Teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Kullandığınız yöntem makrolu çözüm yöntemidir. Bu şekilde olan dosyayı da makro içeren dosya türünde kayıt etmeniz gerekiyor. Satır ve sütun renklendirme işlemlerinde makro kullanılmaktadır. Başka yöntem yoktur.

 

[şrars]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Const kolonsayisi As Long = 256
Const prenkliler As Long = 36
Static eskirenk As Range
Static renkliyer(1 To kolonsayisi) As Long
Dim i As Long
If Not eskirenk Is Nothing Then
With eskirenk.Cells
If .Row = ActiveCell.Row Then Exit Sub
For i = 1 To kolonsayisi
.Item(i).Interior.ColorIndex = renkliyer(i)
Next i
End With
End If
Set eskirenk = Cells(ActiveCell.Row, 1).Resize(1, kolonsayisi)
With eskirenk
For i = 1 To kolonsayisi
renkliyer(i) = .Item(i).Interior.ColorIndex
Next i
.Interior.ColorIndex = prenkliler
End With
End Sub


Dosyayı kaydedip cıktıgımda hangi renkte kaydettigsem o renk orada sabit kalıyo bunu nasıl yapacagım. Yani exceli ilk actıgım gibi kalması için renksiz halinde kaydetmesi için. Saygılar.

 

[Korhan Ayhan]

Merhaba,

Bu tarz renklendirme olayları sıkıntılıdır. Tablonuzda kullandığınız diğer kalıcı renkleride etkiler. Sizin kullandığınız kod eski renkleri hafızada tutup ona göre tepki veriyor. Ben bu kodu çok sağlıklı bulmuyorum. Dosyanızda yavaşlamayada sebep olur.

Aşağıdaki linkleri inceleyin.

Excelde çalışırken İmleç hangi hücredeyse, Hücrenin bulunduğu satır Renklensin

Satır ve sütün renklendirme

 

[şrars]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = ActiveCell.Row
Range(ActiveCell.Address & ", A" & sat & ":ZZ" & sat).Select
End Sub

Burdaki rengi biraz daha koyu veya başka renge yapabilmem için ne gerekli yazarsanız sevinirim. Saygılar.

 

[Korhan Ayhan]

Merhaba,

Son verdiğiniz kodda renklendirme yoktur. Sadece hücre seçimi yapılarak görsel olarak algılama işlemi kolaylaştırılmıştır. Farklı renkler için verdiğim linklerdeki çalışmaları uygulamanız gerekiyor.