hücreye tıkladığımda rengini değiştirmek istiyorum

[emrahd]

selamlar hücreye tıkladıgımda hücrenin renginin otomatik değişmesini istiyorum yardımcı olursanız sevinirim:
örnek olarak 1 ve 9 arasındaki ardışık sayıları farklı farklı hücrelere yazmak istiyorum tıkladıgım hücrenın rengını değiştirmek istiyorum yardımcı olursanız sevınırım teşekkr ederım

 

[emrahd]

yapmak istediğim şey her sutündaki sayıların farklı renklerde hücreye tıkladığımda boyanması.
1. sutun sarı
2. sutun mavi
3. sutun kırmızı gibi mesela
yardımcı olabilecek var ise şimdiden teşekkür ederim

 

[YUSUF44]

Aşağısaki kdoları ilgili sayfanın kod bölümüne yapıştırdığınızda o sayfada A1:I3 arasındaki hücrelere tıkladığınızda her sütunda farklı renk olur:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:I3]) Is Nothing Then Exit Sub
[A1:I3].Interior.Color = xlNone
a = Target.Column
If Target.Column = 2 Then a = Target.Column + 11
Target.Interior.ColorIndex = a

End Sub

 

[emrahd]

Aşağısaki kdoları ilgili sayfanın kod bölümüne yapıştırdığınızda o sayfada A1:I3 arasındaki hücrelere tıkladığınızda her sütunda farklı renk olur:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:I3]) Is Nothing Then Exit Sub
[A1:I3].Interior.Color = xlNone
a = Target.Column
If Target.Column = 2 Then a = Target.Column + 11
Target.Interior.ColorIndex = a

End Sub

öncelikle yardımınız için teşekkür ederim hocam bu kadar hızlı yanıt alacagımı tahmin etmemiştim.
tıkladıktan sonra renkli kalmasını ıstıyorum onu nasıl yapabilir acaba

 

[YUSUF44]

Aşağıdaki satırı silin:

[A1:I3].Interior.Color = xlNone

 

[emrahd]

hala aynı hocam farklı hücreye tıkladıgımda boyanmış olan gidiyor ben kalmasını istiyorum ve
ilk satırın sarı ikinci satırın mavi üçüncü satırın kırmızı olmasını istiyorum yardımcı olursanız minnettar olurum teşekkür ederim

 

[YUSUF44]

O satırı sildiğimde hücre değiştirdiğimde hücrenin rengi aynı kaldı. siz bir şeyi yanlış yaptınız muhtemelen. Zaten renklerin silinmesini sağlayan satır o satır.

Ayrıca sorunuzda daha önce sütunların farklı renkte olması gerektiğini belirtmiştiniz, şimdi satırdan bahsediyorsunuz.

Sorunuzu daha net olarak ifade eder misiniz?

 

[emrahd]

O satırı sildiğimde hücre değiştirdiğimde hücrenin rengi aynı kaldı. siz bir şeyi yanlış yaptınız muhtemelen. Zaten renklerin silinmesini sağlayan satır o satır.

Ayrıca sorunuzda daha önce sütunların farklı renkte olması gerektiğini belirtmiştiniz, şimdi satırdan bahsediyorsunuz.

Sorunuzu daha net olarak ifade eder misiniz?

öncelikle konuya olan ilginiz alakanızdan ötürü teşekkür ederim hocam
soruma gelince

fotografta görmüş olduğunuz 3 satır daki sayıların
1. satılır sarı
2. satır mavi
3. satır kırmızı
olacak şekilde her hücreye tıklamam da o satırın belirtilen rengine boyanmasını istiyorum ve farklı hücreye tıkladığımda önceki boyanan rengin kaybolmamasını istiyorum yardımlarınız için teşekkr ederim

 

[YUSUF44]

Eski kodları silip yerine aşağıdaki kodları kullanın. Eklediğiniz resimden uygulamanın hangi hücrelere yapılacağı anlaşılmadığından yine A1:I3 arasına uyguladım:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:I3]) Is Nothing Then Exit Sub
a = Target.Row

If a = 1 Then Target.Interior.Color = vbYellow
If a = 2 Then Target.Interior.Color = vbBlue
If a = 3 Then Target.Interior.Color = vbRed
End Sub

 

[YUSUF44]

Kendinize uyarlamak için köşeli parantez içindeki hücre adresini verilerinize göre ve 1, 2, 3 sayılarını verilerinizin olduğu satır numaralarıyla değiştirin.

 

[emrahd]

ilginiz alakanız ve yardımlarınız için teşekkür ederim iyi akşamlar