sayı kontrolü

[master_20]

arkadaşlar merhaba excellde ufak bir sıkıntım var. ben sutunlara girdiğim verilerin (sayılar) yukarıda daha önce aynı sayıyı girmiş ise kırmızı renk olsun istiyorum bunu nasıl yapabilirim.

 

[uzmanamele]

merhaba
ek dosyada a1:a20 arasına veri girerek deneyiniz.
koşullu biçimlendirme örneklerini inceleyiniz.

 

[N.Ziya Hiçdurmaz]

Yanıt

Buda makrolu çözüm olsun

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SUT As Integer
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
[A:A].Font.ColorIndex = 0
For SUT = 1 To ActiveSheet.UsedRange.Rows.Count
If WorksheetFunction.CountIf(Range("A1:A" & SUT), Cells(SUT, "A")) > 1 Then
Cells(SUT, "A").Font.ColorIndex = 3
End If
Next
End Sub

 

[master_20]

çok teşekkür ederim yardımların için sağol

 

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar 3 nolu mesajdaki kodu B9:B den aşağı doğru veri varsa yani sayı ve rakam varsa kod çalıştırınca kırmızı olsun istiyorum. Nasıl düzenlenir. Teşekkürr ederim.