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
-
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.]
-
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
-
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.
-
Merhaba.
Sadece "a" sütununda ardarda aynı veri bulunan ilk üç satırın yazı tipi: "mavi" olması için..!
Aşağıdaki kodu deneyebilirsiniz.
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