Kendisini tekrar eden hücredeki veri aynı ise......

[Bora K]

Merhabalar.

Verilerin font rengini değiştirmek istiyorum.
Şart ise kendisinden sonraki hücredeki (sütun) veri
aynı ise renk kırmızıya dönüşecek.

Örnek dosyada daha net gözükecektir umarım.
Değerli uzmanlarımızn yardımlarını bekliyorum.

 

[muygun]

Merhaba;
Hücre biçimlendirme ile yapabilirsiniz.
Eki (hücre biçimlendirmeleri) inceleyin.
İyi çalışmalar.

 

[Bora K]

Sayın Muygun teşekkür ederim alakınız için.
Lakin ben kod ile olsun istiyorum. Bilincli olarak
kod bölümüne açtım. Eğer mümkünatı var ise
Kod ile yazabilirmisinz lütfen?

 

[apocalyt]

...

Sub indirimyüzdeleri()
Application.ScreenUpdating = False
For y = 4 To 7
For x = 3 To Cells(300, y).End(3).Row
If WorksheetFunction.CountIf(Range(Cells(300, y), Cells(3, y)), Cells(x, y)) > 1 Then
Cells(x, y).Interior.Color = vbBlue
Else
Cells(x, y).Interior.Color = xlNone
End If
Next x
Next y
For y = 4 To 7
For x = 3 To Cells(300, y).End(3).Row
If Cells(x, y) = Cells(x + 1, y) Then
Cells(x, y).Interior.Color = vbRed
Cells(x + 1, y).Interior.Color = vbRed
End If
Next x
Next y
Application.ScreenUpdating = True
MsgBox "İşleminiz bitmiştir.", vbInformation
End Sub

 

[Bora K]

merhaba üstad apocalyt
teşekkür ederim alakanız için.
kodu modülden çalıştırayım istiyorum. Aşağıdaki gibi
ayarladım lakin kalın yazılı satırda hata verdi.
bakabilirmisiniz lütfen.

Sub indirimyüzdeleri()
[B]If Intersect(Target, Range("d3:g260")) Is Nothing Then Exit Sub[/B]
For x = 3 To Cells(300, Target.Column).End(3).Row
If WorksheetFunction.CountIf(Range(Cells(300, Target.Column), Cells(3, Target.Column)), Cells(x, Target.Column)) > 1 Then
Cells(x, Target.Column).Interior.Color = vbBlue
Else
Cells(x, Target.Column).Interior.Color = xlNone
End If
Next x
For x = 3 To Cells(300, Target.Column).End(3).Row
If Cells(x, Target.Column) = Cells(x + 1, Target.Column) Then
Cells(x, Target.Column).Interior.Color = vbRed
Cells(x + 1, Target.Column).Interior.Color = vbRed
End If
Next x
End Sub

 

[apocalyt]

yukarıdaki mesajımdai kodu yeniledim..bir bakın..

 

[Bora K]

ilgili sayfanın kod bölümüne kopyalayın..her sütun kendi için değerlendirilicektir..ve ayrıca şöle bir şey yaptım..örneği c sutununda herhangi bir hücrede bir değer var..o değerden başka hiç yoksa o değerin font rengi beyaz kalıcak..yanlış anlamışssam söleyin..düzeltelim..

Güzel düşünmüşsünüz üstad yanlız beyaz değilde
Yeşil olarak değişterelim orayı lütfen.
siz ilgili satırı renklendirin ben yaparım herhalde.

 

[Bora K]

Sayın apocalyt
çok çok teşekkür ederim
yardım için sağolunuz.

Yeşil rengi ben hallettim sorun yok şuan.

 

[apocalyt]

rica ederim..