• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Tek / çift sayıya göre satır biçimlendirme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Selamlar,
Hücre değerinin tek veya çift olmasına bağlı olarak satırı biçimlendirebilir miyiz? Veya Makro ile iki satır atlatıp sonraki iki satırı biçimlendirebilir miyiz? Bu üç veya daha fazla da olabilir? Teşekkürler.
 

Ekli dosyalar

  • KOŞULA GÖRE SATIR RENKLENDİRME.xlsx
    20.7 KB · Görüntüleme: 10

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,498
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Yapılmak isteneni daha net anlatır mısınız?
Hangi iki satır veya üç.. dört satır renklenecek?
Tek sayı olunca ne olacak, çift sayı olunca ne olacak?
vs. vs.
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
C sütunundaki sıra numarasına göre tek ve çift numaralı satırları farklı biçimlendirmek istiyorum. Örnek dosyadaki gibi.
 

Ekli dosyalar

  • KOŞULA GÖRE SATIR RENKLENDİRME.xlsx
    30.6 KB · Görüntüleme: 4

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,498
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Bu kodları kullanabilirsiniz..
PHP:
Sub ExcelTurkey()
    Dim i&
    Range("A:AJ").Interior.ColorIndex = xlNone
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        If WorksheetFunction.IsOdd(Cells(i, 1).Value) Then
            Range("A" & i & ":AJ" & i).Interior.ColorIndex = 4
            Cells(i + 1, "C").Interior.ColorIndex = 4
            i = i + 1
                Else
            Range("A" & i & ":AJ" & i).Interior.ColorIndex = 15
            Cells(i + 1, "C").Interior.ColorIndex = 15
        End If
    Next i
    i = Empty
End Sub
Dosyanız da ek'tedir. (y)
 

Ekli dosyalar

  • Makro ile Renklendir.rar
    30.3 KB · Görüntüleme: 27

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Hücre bos ise yine renklendirme yapıyor.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,498
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Kodu bu şekilde revize edebilirsiniz.
Eğer A sütununda numara yoksa o satırları renklendirmez.
PHP:
Sub ExcelTurkey()
    Dim i&
    Range("A:AJ").Interior.ColorIndex = xlNone
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        If Cells(i, 1).Value <> "" Then
            If WorksheetFunction.IsOdd(Cells(i, 1).Value) Then
                Range("A" & i & ":AJ" & i).Interior.ColorIndex = 4
                Cells(i + 1, "C").Interior.ColorIndex = 4
                i = i + 1
                    Else
                Range("A" & i & ":AJ" & i).Interior.ColorIndex = 15
                Cells(i + 1, "C").Interior.ColorIndex = 15
            End If
        End If
    Next i
    i = Empty
End Sub
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
79
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Muş
Ad Soyad
Ensar Mansur
Office Vers.
2016
Elinize sağlık.Teşekkürler.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt