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

Katılım
14 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
Excel 2007 Türkçe
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?
 
Katılım
11 Temmuz 2019
Mesajlar
7
Excel Vers. ve Dili
Excel 2010 Türkçe
eğer bir verinin altı çiziliyse bu verideki harflerin tamamının mı altı çizili?
 
Katılım
14 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
Excel 2007 Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Sayılar ve harfler aynı hücrede mi yoksa sayılar bir sütunda, isimler diğer sütunda mı?
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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.
 
Katılım
11 Temmuz 2019
Mesajlar
7
Excel Vers. ve Dili
Excel 2010 Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Dikkat ederseniz sadece çift sayıların altı çizili. Konu sahibi meşgul sanıyorum, müsait olduğunda merakımızı giderecektir :).
 
Katılım
14 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
Excel 2007 Türkçe
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.
 
Katılım
14 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
Excel 2007 Türkçe
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,
 
Katılım
14 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
Excel 2007 Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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:

PHP:
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
 
Katılım
14 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
Excel 2007 Türkçe
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:

PHP:
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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:

PHP:
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
 
Son düzenleme:
Katılım
14 Mayıs 2011
Mesajlar
33
Excel Vers. ve Dili
Excel 2007 Türkçe
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:

PHP:
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,
 
Üst