Excel tablosunda sıra sayılı satırlarda aynı dolgu nasıl yapılır?

[kepetto]

Merhabalar,

3000ahmet
3001mehmet
3001mehmet
3002ali
3003can
3003can
3004mustafa
3005naci
3006kemal

Altı çizili satırları sarı dolgu şeklinde yoğun datalarda özellikle otomatik nasıl yaparız?

 

[brksvm]

eğer bir verinin altı çiziliyse bu verideki harflerin tamamının mı altı çizili?

 

[kepetto]

eğer bir verinin altı çiziliyse bu verideki harflerin tamamının mı altı çizili?

Hayır ben dolgu yapmak istediğim satırları belirtmek için altı çizili yaptım. Amacım sırayla sarı ve beyaz şeklinde satırları olan bir tablo yapmak.
Sadece çiftleri aynı renge boyalı olmalı.

 

[YUSUF44]

Sayılar ve harfler aynı hücrede mi yoksa sayılar bir sütunda, isimler diğer sütunda mı?

 

[brksvm]

Koşullu Biçimlendirmeyi Denediniz mi?

 

[Necdet]

Merhaba,

Açıklamayı her okuduğumda başka şeyler anlamaya başladım. Tam olarak yapmak istediğiniz nedir?

İkinci açıklamada "beyaz ve sarı" renkli tablo yapmak istiyorum diyorsunuz, ilk açıklamada ise hangi şartta renklenecek belli değil.

 

[YUSUF44]

Benim anladığım sayılar çift ise o satır sarı olacak. Ancak bunun için sayının aynı hücrede mi farklı hücrede mi olduğunun bilinmesi gerekiyor. Bilinirse koşullu biçimlendirme ile yapılabilir.

 

[brksvm]

Verileri incelediğimde ben de şöyle anladım. Tekrar eden veriler var bir de müstesna veriler var buradaki müstesna verileri boyamak istiyor beyefendi. Bunu anladığım için koşullu biçimlendirmeyi önerdim

 

[YUSUF44]

Dikkat ederseniz sadece çift sayıların altı çizili. Konu sahibi meşgul sanıyorum, müsait olduğunda merakımızı giderecektir .

 

[kepetto]

Sayılar ve harfler aynı hücrede mi yoksa sayılar bir sütunda, isimler diğer sütunda mı?

Hayır. sayılar alt alta kelimelerde yanlarında, aynı sayıların satırları aynı renkte olacak şekilde yapmak istiyordum, sarı beyaz sarı beyaz şeklinde renkli tablo.

 

[kepetto]

S

Benim anladığım sayılar çift ise o satır sarı olacak. Ancak bunun için sayının aynı hücrede mi farklı hücrede mi olduğunun bilinmesi gerekiyor. Bilinirse koşullu biçimlendirme ile yapılabilir.

Sayılar farklı hücrelerde, kelimeler yanlarındaki hücrelerde,

 

[kepetto]

Dikkat ederseniz sadece çift sayıların altı çizili. Konu sahibi meşgul sanıyorum, müsait olduğunda merakımızı giderecektir .

Kusura Bakmayın lütfen yoğunluktan biraz gri dönüşte geciktim, teşekkür ederim geri dönüşler için, sayının çiftmi tekmi olduğunun önemi olmadan satırlar otomatik bir şekilde sarı beyaz şeklinde boyamak istiyorum,
kısıtları ifade edersem; sayı üstündeki sayı ile aynı renk olmayacak, sadece eşit ise aynı renk olacak vs.

 

[YUSUF44]

Anladığım kadarıyla yardımcı sütun kullanılarak aşağıdaki şekilde çözülebilir:

Verilerin A2 hücresinden başladığını varsayarak, C2 hücresine aşağıdaki formülü yazın ve aşağı doğru kopyalayın:

=EĞER(A2=A1;C1;EĞER(C1=1;2;1))


A2'den itibaren C sütununda son dolu ya da biçimlendirme uygulanmasını istediğiniz son satıra kadar seçin

Koşullu biçimlendirme menüsünde yeni kural ekleyip formül kullanmayı seçin

Formül kısmına aşağıdaki formülü yazın:

=$C2=1

Biçim ayarına girip sarı dolgu rengini seçin ve işlemi tamamlayın.

 

[YUSUF44]

Eğer bu işlemin sayfada A ve B sütununa veri girdiğinizde makro aracılığıyla yapılmasını isterseniz aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:B" & Rows.Count)) Is Nothing Then Exit Sub
son = WorksheetFunction.Max(3, Cells(Rows.Count, "A").End(3).Row + 1, Target.Row)
[A2:B2].Interior.Color = vbYellow
For i = 3 To son
    If Cells(i, "A") <> Cells(i - 1, "A") Then
        If Cells(i - 1, "A").Interior.Color = vbYellow Then
            Range("A" & i & ":B" & i).Interior.Color = xlNone
        Else
            Range("A" & i & ":B" & i).Interior.Color = vbYellow
        End If
    Else
        Range("A" & i & ":B" & i).Interior.Color = Range("A" & i - 1 & ":B" & i - 1).Interior.Color
    End If
Next
End Sub

 

[kepetto]

Eğer bu işlemin sayfada A ve B sütununa veri girdiğinizde makro aracılığıyla yapılmasını isterseniz aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:B" & Rows.Count)) Is Nothing Then Exit Sub
son = WorksheetFunction.Max(3, Cells(Rows.Count, "A").End(3).Row + 1, Target.Row)
[A2:B2].Interior.Color = vbYellow
For i = 3 To son
    If Cells(i, "A") <> Cells(i - 1, "A") Then
        If Cells(i - 1, "A").Interior.Color = vbYellow Then
            Range("A" & i & ":B" & i).Interior.Color = xlNone
        Else
            Range("A" & i & ":B" & i).Interior.Color = vbYellow
        End If
    Else
        Range("A" & i & ":B" & i).Interior.Color = Range("A" & i - 1 & ":B" & i - 1).Interior.Color
    End If
Next
End Sub

Üstadım çok teşekkür ederim, formüllü olanı işimi gördü, Kodlusunuda deneyip geri dönüş yapacağım.

 

[YUSUF44]

Eğer verileriniz çoksa kodlu olan kasma yapabilir, uzun sürebilir. Çünkü her seferinde tüm hücreleri baştan kontrol edip işlemi uygular.

Eğer tablonuzda sürekli aşağı doğru veri girişi olacaksa, üst kısım sabit kalacaksa, yani önceki veriler kontrol edilmeyecekse aşağıdaki kodu kullanabilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:B" & Rows.Count)) Is Nothing Then Exit Sub
a = Target.Row
    If Cells(a, "A") <> Cells(a - 1, "A") Then
        If Cells(a - 1, "A").Interior.Color = vbYellow Then
            Range("A" & a & ":B" & a).Interior.Color = xlNone
        Else
            Range("A" & a & ":B" & a).Interior.Color = vbYellow
        End If
    Else
        Range("A" & a & ":B" & a).Interior.Color = Range("A" & a - 1 & ":B" & a - 1).Interior.Color
    End If
End Sub

 

[kepetto]

Eğer verileriniz çoksa kodlu olan kasma yapabilir, uzun sürebilir. Çünkü her seferinde tüm hücreleri baştan kontrol edip işlemi uygular.

Eğer tablonuzda sürekli aşağı doğru veri girişi olacaksa, üst kısım sabit kalacaksa, yani önceki veriler kontrol edilmeyecekse aşağıdaki kodu kullanabilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:B" & Rows.Count)) Is Nothing Then Exit Sub
a = Target.Row
    If Cells(a, "A") <> Cells(a - 1, "A") Then
        If Cells(a - 1, "A").Interior.Color = vbYellow Then
            Range("A" & a & ":B" & a).Interior.Color = xlNone
        Else
            Range("A" & a & ":B" & a).Interior.Color = vbYellow
        End If
    Else
        Range("A" & a & ":B" & a).Interior.Color = Range("A" & a - 1 & ":B" & a - 1).Interior.Color
    End If
End Sub

Bu kodda çalışmaktadır. Teşekkür ederim Yusuf Bey,