Hücre Biçimlendirme Yardım

[Mustafa_SEL]

Arkadaşlar merhabalar

Herhangi bir hücredeki değer değiştirildiği zaman her değişimde hücrenin renginin değişmesini sağlamamız mümkün müdür ?

Örnek : A1 Hücre değer "5"
Bu değeri ilk değiştirdiğimde yeşil sonraki değişiklikte mavi sonrasında kırmızı olacak şekilde ve bir sonraki değişimde aynı sırayı tekrar edecek şekilde biçimlendirmek mümkün müdür ?

Yardımlarınız için şimdiden teşekkür ederim.

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat = 1 And süt = 1 Then
arananrenk = Cells(sat, süt).Interior.ColorIndex
If arananrenk = -4142 Then Cells(sat, süt).Interior.ColorIndex = 4 'renk yoksa yeşil
If arananrenk = 4 Then Cells(sat, süt).Interior.ColorIndex = 37 'renk yeşil ise mavi
If arananrenk = 37 Then Cells(sat, süt).Interior.ColorIndex = 3 'renk mavi ise kırmızı
If arananrenk = 3 Then Cells(sat, süt).Interior.ColorIndex = 4 'renk kırmızı ise yeşil
End If
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

 

[Mustafa_SEL]

Merhaba;

Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If sat = 1 And süt = 1 Then
arananrenk = Cells(sat, süt).Interior.ColorIndex
If arananrenk = -4142 Then Cells(sat, süt).Interior.ColorIndex = 4 'renk yoksa yeşil
If arananrenk = 4 Then Cells(sat, süt).Interior.ColorIndex = 37 'renk yeşil ise mavi
If arananrenk = 37 Then Cells(sat, süt).Interior.ColorIndex = 3 'renk mavi ise kırmızı
If arananrenk = 3 Then Cells(sat, süt).Interior.ColorIndex = 4 'renk kırmızı ise yeşil
End If
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

Üstad teşekkürler tam istediğim gibi peki bunu tüm sayfaya nasıl uygulayabilirim
Birde excelde sayfa tasarımında hücrelerde dolgu rengi olduğu için ilk seçenek boşsadan başlıyor bunu herhangi bir renk olsada değiştir olarak ayarlamak mümkün müdür

Tekrardan Teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Select Case Target.Interior.Color
        Case 16777215, 255
        Target.Interior.Color = 5287936
        Case 5287936
        Target.Interior.Color = 12611584
        Case 12611584
        Target.Interior.Color = 255
    End Select
Son:
End Sub

 

[muygun]

Merhaba;
If sat = 1 And süt = 1 Then
satırını;
If sat >= 1 And süt <= 256 Then

şeklinde değiştirin ve deneyin.
Üstteki isteğinizde birinci girişte şu renk, ikici şu renk, üçüncü şu renk ve tekrar başa dön gibi isteğiniz vardı.
Kodlar hücre rengine bakarak işlem yapıyor.
eğer hücre renksiz ise ilk giriş olarak işlem yapıyor. ve diğer işlemlerine devam ediyor. (Bundan sonraki işlem hangi renkten sonra ne olacak mukayesesi.
Yani bence kodlar doğru çalışıyor.
İyi çalışmalar.

 

[Mustafa_SEL]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Select Case Target.Interior.Color
        Case 16777215, 255
        Target.Interior.Color = 5287936
        Case 5287936
        Target.Interior.Color = 12611584
        Case 12611584
        Target.Interior.Color = 255
    End Select
Son:
End Sub

Üstad çok teşekkür ederim tam istediğim Gibi Tek eksiğim kaldı o da mevcutta dolgu rengi olan bir hücrede uygulanabilir olması denedim olmuyor hücre rengi ne olursa olsun o hücreye uygulanması gerekli

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Select Case Target.Interior.Color
        Case 255
        Target.Interior.Color = 5287936
        Case 5287936
        Target.Interior.Color = 12611584
        Case 12611584
        Target.Interior.Color = 255
        Case Else
        Target.Interior.Color = 5287936
    End Select
Son:
End Sub

 

[Mustafa_SEL]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Select Case Target.Interior.Color
        Case 255
        Target.Interior.Color = 5287936
        Case 5287936
        Target.Interior.Color = 12611584
        Case 12611584
        Target.Interior.Color = 255
        Case Else
        Target.Interior.Color = 5287936
    End Select
Son:
End Sub

Çok teşekkür ederim tam istediğim şekilde oldu