Renklendirmede nerde hata

[excellkurdu]

Merhaba arkadaşlar, Seçili hücreyi renklendirmeye çalışıyorum. Aşağıdaki kodu Otomatik değilde makro ile nasıl çalıştırabilirz.

Sub renklendirme ()
Dim Target As Range
'Private Sub Worksheet_SelectionChange(ByVal Target As Range) Bu kısmı çıkacak
Cells.Interior.ColorIndex = xlNone
With Target
Range(Cells(Target.Row, 1), Cells(Target.Row, 3)).Interior.ColorIndex = 5
End With

 

[Muhammet Okumuş]

Sub renklendirme()
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 5
End Sub

Kodu deneyiniz.

 

[excellkurdu]

Kodu deneyiniz.

hocam teşekkür ederim yanıtınız için;
şu kod benim için önemli, aralık sınırlaması yapmak istiyorum. bu kodu nasıl kullanabiriz.

Range(Cells(Target.Row, 1), Cells(Target.Row, 3)).Interior.ColorIndex = 5

 

[Muhammet Okumuş]

Sub renklendirme()
If ActiveCell.Column > 3 Then Exit Sub
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 5
End Sub

Kodu deneyin. Aktif hücre A:C aralığında değilse çalışmaz.

 

[excellkurdu]

Kodu deneyin. Aktif hücre A:C aralığında değilse çalışmaz.

Muhammet Hocam sizi yordum bu saatte özür dilerim.
Bu kod A-C aralığı güzel, Fakat renklendirme sadece A hücresinde olabilirmi? Çünkü A hücresinde tıklamayla açılan A5 den A250 ye kafar UserForm var. Yani tıkladığım hücreleri işaretlemek için kullanacağım. Hatta Cells.Interior.ColorIndex = xlNone bu kod u da sileceğim.

 

[Muhammet Okumuş]

Tam olarak anlamadım.
Siz sadece A sütununda mı renklendirme istiyorsunuz?
Cells.Interior.ColorIndex = xlNone bu daha önce boyalı hücreyi siler.
Siz tam olarak ne olmasını istiyorsunuz?

 

[excellkurdu]

Tam olarak anlamadım.
Siz sadece A sütununda mı renklendirme istiyorsunuz?
Cells.Interior.ColorIndex = xlNone bu daha önce boyalı hücreyi siler.
Siz tam olarak ne olmasını istiyorsunuz?

Tam istediğim a5 ile a250 arasında tıkladığım hücrede User Form Açılıp doldurduktan sonra, yine a5 ile a250 aralığında karışık başka hücreye tıklıyorum. Her işim biten, yani userform kapattıktan sonra tıkladığım A sutunundaki tüm hücreler renklensin. Yani aynı hücreye tekrar tıklamamak için bir önlem.

 

[Muhammet Okumuş]

Sub renklendirme()
If ActiveCell.Column > 1 Then Exit Sub
r = ActiveCell.Row
If r < 5 Or r > 250 Then Exit Sub
ActiveCell.Interior.ColorIndex = 5
End Sub

 

[Muhammet Okumuş]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Column > 1 Then Exit Sub
r = ActiveCell.Row
If r < 5 Or r > 250 Then Exit Sub
ActiveCell.Interior.ColorIndex = 5


End Sub

Bu da tıklamayla çalışır.

 

[excellkurdu]

Hocam hakkını helal et nerdeyse gecenin 2 ı oldu. bizimle uğraştınız.
Tam istediğim gibi oldu.
Çok sağolasın Allah razı olsun.