Kod hatasını nasıl düzeltebilirim

[AKREP1]

Ekte bulunan tabloda seçilen satır boydan boya renkli oluyor bu olmasını istediğim bir durum.Fakat herhangi bir sütun seçilip istenilen renkte yapılamıyor.Uyguladığım kod hatalı.Düzeltmek için ne yapabilirim.Saygılarımla

 

[Orion1]

Dosyanız hazır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Cells.Interior.ColorIndex = 1  'Turn off previous use Cells.Interior.ColorIndex = 1  'Turn off previous use
   If Cells(1, 1) = "." Then Exit Sub
   Target.EntireRow.Interior.ColorIndex = 4
   [COLOR="Red"][B]Target.EntireColumn.Interior.ColorIndex = 4[/B][/COLOR]
End Sub

 

[AKREP1]

Teşekkür ederim.Ellerinize sağlık.fakat istediğim Sütun renginin sabit kalması.Tabloda mavi,sarı gibi renkli sütunlar olacak.

 

[Orion1]

Teşekkür ederim.Ellerinize sağlık

Rica ederim.
İyi çalışmalar.

 

[AKREP1]

Teşekkür ederim.Ellerinize sağlık.fakat istediğim Sütun renginin sabit kalması.Tabloda mavi,sarı gibi renkli sütunlar olacak.

 

[Orion1]

Teşekkür ederim.Ellerinize sağlık.fakat istediğim Sütun renginin sabit kalması.Tabloda mavi,sarı gibi renkli sütunlar olacak.

O sütunları koşullu biçimlendirme ile biçimlendirirseniz olur.

 

[AKREP1]

Teşekkürler.

 

[serzir81]

güzel teşekkürler.