Gönderen Konu: 3 verinin ardarda aynı olduğunda renk değişmesi  (Okunma sayısı 2099 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
3 verinin ardarda aynı olduğunda renk değişmesi
« : 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.]

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1318
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: 3 verinin ardarda aynı olduğunda renk değişmesi
« Yanıtla #1 : 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
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: 3 verinin ardarda aynı olduğunda renk değişmesi
« Yanıtla #2 : 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.

Çevrimdışı Rami

  • Excelce Onbaşı
  • **
  • İleti: 64
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Kamil
  • İl / İlçe: Sivas
  • Mesleğiniz: İnşaat
Ynt: 3 verinin ardarda aynı olduğunda renk değişmesi
« Yanıtla #3 : 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