SEÇİLİ HÜCRENİN SATIRINI BOYAMA

[cumalif]

Merhaba, aşağıdaki kod ile seçili hücrenin satırını boyuyorum. Buraya kadar sorunum yok ama bu kodu çalıştırdığım anda koşullu biçimlendirme ile verdiğim tüm kenarlık ve dolgu koşullarını, dolgu rengini eile değiştirdiğim tüm hücrelerin dolgusunu kaldırıyor. Bunları kaldırmadan sadece seçili hücrenin satırını boyaması konusunda yardımcı olabilir misiniz ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Application.CutCopyMode <> xlCopy Then
    Cells.Interior.ColorIndex = xlColorIndexNone
        
            ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
                
End If
End Sub

 

[cumalif]

Konu GÜNCEL!

 

[Korhan Ayhan]

Merhaba,

Forumun arşiv konularını incelemenizde fayda var..

Sorgu için arama sonuçları: satır+renk

www.excel.web.tr

 

[cumalif]

Merhaba,

Forumun arşiv konularını incelemenizde fayda var..

Sorgu için arama sonuçları: satır+renk

www.excel.web.tr

Merhaba Korhan Bey, daha önce bir çok konuyu inceledim ama en son yazdığınızı görmemişim. Aşağıda yazdığınız örnek dosyası var. Yalnız bu kod benim verdiğim tüm koşullu biçimlendirmeleri de siliyor. Bunu engellemenin bir yolu var mıdır ?

 

[ahmed_ummu]

Merhaba, aşağıdaki kod ile seçili hücrenin satırını boyuyorum. Buraya kadar sorunum yok ama bu kodu çalıştırdığım anda koşullu biçimlendirme ile verdiğim tüm kenarlık ve dolgu koşullarını, dolgu rengini eile değiştirdiğim tüm hücrelerin dolgusunu kaldırıyor. Bunları kaldırmadan sadece seçili hücrenin satırını boyaması konusunda yardımcı olabilir misiniz ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Application.CutCopyMode <> xlCopy Then
    Cells.Interior.ColorIndex = xlColorIndexNone
       
            ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
               
End If
End Sub

 

[cumalif]

Hocam çok iyi, ellerinize sağlık ama bunu seçili hücrenin satırını ve sütununu boyayacak şekilde yapabilir misiniz ?

 

[cumalif]

Hocam çok iyi, ellerinize sağlık ama bunu seçili hücrenin satırını ve sütununu boyayacak şekilde yapabilir misiniz ?

 

[ahmed_ummu]

Hocam çok iyi, ellerinize sağlık ama bunu seçili hücrenin satırını ve sütununu boyayacak şekilde yapabilir misiniz ?

 

[ahmed_ummu]

Merhaba, aşağıdaki kod ile seçili hücrenin satırını boyuyorum. Buraya kadar sorunum yok ama bu kodu çalıştırdığım anda koşullu biçimlendirme ile verdiğim tüm kenarlık ve dolgu koşullarını, dolgu rengini eile değiştirdiğim tüm hücrelerin dolgusunu kaldırıyor. Bunları kaldırmadan sadece seçili hücrenin satırını boyaması konusunda yardımcı olabilir misiniz ?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Application.CutCopyMode <> xlCopy Then
    Cells.Interior.ColorIndex = xlColorIndexNone
       
            ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
               
End If
End Sub

 

[cumalif]

Her iki dosya için teşekkürler ama malasef mevcut dolguları sıfırlıyor.

 

[ahmed_ummu]

Her iki dosya için teşekkürler ama malasef mevcut dolguları sıfırlıyor.

Daha önce zemin rengi değişen satır ve sütun renkleri aynısı gibi kalacak mı?

 

[cumalif]

Daha önce zemin rengi değişen satır ve sütun renkleri aynısı gibi kalacak mı?

Evet daha önce zemin rengi değişen satırlar sütunlar, mevcut koşullu biçimlendirmelerin hepsinin kalması lazım

 

[ahmed_ummu]

Evet daha önce zemin rengi değişen satırlar sütunlar, mevcut koşullu biçimlendirmelerin hepsinin kalması lazım

 

[cumalif]

Merhaba, emeğinize sağlık ama makro boyadığı yeri olduğu gibi bırakıyor.

 

[Korhan Ayhan]

Öncelikle bu işlem dosyanızda performans kaybına yol açabilir. Bu duruma göre kullanmayı tercih edebilirsiniz.

Sırasıyla aşağıdaki adımları uygulayınız.

Dosyanızı açınız.
İşlemi yapmak istediğiniz sayfayı açınız.
İşlemi yapmak istediğiniz hücreleri seçiniz. (Örnek A1:K30)

Sonra KOŞULLU BİÇİMLENDİRME menüsünü açınız.
Formül YENİ KOŞUL seçeneğini seçiniz.
Biçimlendirilecek Hücreler İçin Formül Kullan seçeneğine tıklayınız.

Formül kutusuna aşağıdaki formülü uygulayınız.

=HÜCRE("sat")=SATIR()

BİÇİM menüsünden dilediğiniz dolgu rengini seçip koşullu biçimlendirme işlemini tamamlayınız.

Sonrasında sayfa adı üzerinde sağ tıklayınız ve KOD GÖRÜNTÜLE seçeneğini seçiniz.
Karşınıza gelen beyaz alana aşağıdaki kodu yapıştırınız.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Calculate
    Application.ScreenUpdating = True
End Sub

Örnek olması açısından hazırladığım küçük örnek dosyayıda paylaşıyorum.

 

[cumalif]

Öncelikle bu işlem dosyanızda performans kaybına yol açabilir. Bu duruma göre kullanmayı tercih edebilirsiniz.

Sırasıyla aşağıdaki adımları uygulayınız.

Dosyanızı açınız.
İşlemi yapmak istediğiniz sayfayı açınız.
İşlemi yapmak istediğiniz hücreleri seçiniz. (Örnek A1:K30)

Sonra KOŞULLU BİÇİMLENDİRME menüsünü açınız.
Formül YENİ KOŞUL seçeneğini seçiniz.
Biçimlendirilecek Hücreler İçin Formül Kullan seçeneğine tıklayınız.

Formül kutusuna aşağıdaki formülü uygulayınız.

=HÜCRE("sat")=SATIR()

BİÇİM menüsünden dilediğiniz dolgu rengini seçip koşullu biçimlendirme işlemini tamamlayınız.

Sonrasında sayfa adı üzerinde sağ tıklayınız ve KOD GÖRÜNTÜLE seçeneğini seçiniz.
Karşınıza gelen beyaz alana aşağıdaki kodu yapıştırınız.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Calculate
    Application.ScreenUpdating = True
End Sub

Örnek olması açısından hazırladığım küçük örnek dosyayıda paylaşıyorum.

Çok teşekkür ederim ellerinize sağlık.