Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: voleclub - 25 Kasım 2010, 12:15:30

Başlık: 3 verinin ardarda aynı olduğunda renk değişmesi
Gönderen: voleclub - 25 Kasım 2010, 12:15:30
Selam,
bu tabloda a sutunundaki  tarihlerin ardarda gelen 3 tarinde aynı olduğunda mavi renk olmasını istiyorum.
örneğim  a11 a12a a13 tarihleri (8.12.2010) 3 tane ardarda  geldiğinden  renk değiştirmiş ,ancak a24 ve a25 2 tane aynı tarih(8.12.2010)  ardarda olduğundan renk değiştirmemiş. şimdiden teşekkürler.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
Başlık: Ynt: 3 verinin ardarda aynı olduğunda renk değişmesi
Gönderen: Bülent Öztürk - 25 Kasım 2010, 12:41:16
Merhaba Mahmut Bey,

Hücrelerde renk değişimi ne zaman veya neye göre olmalı?
Veri girişi esansında mı, yoksa bir düğmeye tıklanıp veri kaynağı taranarak mı?

Bundan farklı bir soru mu bu? http://www.excelce.net/forum/index.php?topic=546.0
Başlık: Ynt: 3 verinin ardarda aynı olduğunda renk değişmesi
Gönderen: voleclub - 26 Kasım 2010, 05:46:15
Selam,
bir düğmeye basıp taratma şeklinde istiyorum. Verdiğiniz linten farklı bu sadece a sutununu taratıp ardarda gelen aynı 3 veriyi bulmak istiyorum.
Başlık: Ynt: 3 verinin ardarda aynı olduğunda renk değişmesi
Gönderen: Rami - 28 Kasım 2010, 23:08:56
Merhaba.
Sadece "a" sütununda ardarda aynı veri bulunan ilk üç satırın yazı tipi: "mavi"  olması için..!
Aşağıdaki kodu deneyebilirsiniz.

Kod: [Seç]
Private Sub CommandButton1_Click()
For a = 2 To Cells(65000, 1).End(xlUp).Row
b = WorksheetFunction.CountIf(Range("a1:a65000"), Cells(a, 1))
If b > 2 Then
c = WorksheetFunction.CountIf(Range("a" & a & ":" & "a" & a + 2), Cells(a, 1))
If a < 4 Then GoTo r
d = WorksheetFunction.CountIf(Range("a" & a - 3 & ":" & "a" & a), Cells(a, 1))
If c = 3 Then
If d < 2 Then
r:
If c = 3 Then
For d = 0 To 2
Cells(a + d, 1).Font.ColorIndex = 5
Next
End If
End If
End If
End If
Next
End Sub