1 satır aralıkla satır renklendirme

[kelkitli]

Değerli dostlar selamlar,
Ekteki dosyada şöyle birşey yapmak istiyorum.
Sayfaya yeni kayıt ekleyince E ve B sütununa göre yeniden sıralayacağım.
Bunu için sıralamdan sonra dolu satırlara sıra numarası verip, şekilde görülen tarzda 1 er satır aralıkla yeniden renklendirmek istiyorum.

 

[Korhan Ayhan]

Selamlar,

A2:F65536 aralığını seçin koşullu biçimlendirme kısmına aşağıdaki formülü uygulayıp biçim kısmından istediğiniz rengi seçip tamam deyin.

=VE($B2<>"";MOD(SATIR();2)=1)

 

[tahsinanarat]

Dosyanız ekte

Önce renklendirmek istediğiniz satır aralığını seçin sonra renklendir düğmesine basın.

 

[kelkitli]

Selamlar,
Sayın Korhan Hocam, Sayın tahsinararat, çok teşekkür ederim.

 

[qiqirdeq]

benimde sorum bu konuyla ilgili satırları tek tek elle renklendiriyorum. A dan Z ye sıralama yaptığımda bütün düzen bozuluyor. 1 satır aralıklı olanlar bu sefer üst üste gelmiş oluyor.
Sorum satırları bi kerede renklendirip excel her acıldığında o formatta kullanabilirmiyiz? yani sıralama yaptığımız zaman 1 satır aralıklı renkli olmasını istiyorum mümkün mü ?

 

[Necdet]

Merhaba,

Excel Dersanesindeki KOŞULLU BİÇİMLENDİRME'yi inceleyiniz.

 

[qiqirdeq]

teşekkür ederim işime yaradı.

 

[evoss]

çok basit birşey yapmak sadece 1 satır renksiz bir satır renkli olsun istiyorum bu formülü koyunca olmuyor.

 

[Orion1]

çok basit birşey yapmak sadece 1 satır renksiz bir satır renkli olsun istiyorum bu formülü koyunca olmuyor.

Nasıl olmuoyor.
Peki benim bu yaptığım nedir?
Dosya ekte.
=EĞER(MOD(SATIR(A1);2)=0;1;0)
EĞER=IF
SATIR=ROW

 

[evoss]

Ya Allah Razı olsun ateşim çıkmıştı valla ,yapıcam diye
bu formülle oldu işte diğerleri eksik

 

[maess]

Formül kullanmadan da yapmak mümkün. birer satır arayla renklendireceğiniz alanı seçin ekle menüsünden tablo yu tıklayın. yan tarafta çıkan tablolardan istediğinizi seçin. kulpu sürükleyerek istediğiniz alana yayabilirsiniz. bu şekilde yaparsanız veri girişinden önce renkelndirmiş olursunuz. Ancak birer satır aralıklarla değil de 3 yada daha fazla satır aralığıyla renklendirmek isterseniz formülü kullanarak (formüldeki :2 rakamını artırarak) yapabilirsiniz.

 

[yalcin_33]

Herkese selamlar
bi sorum olacak misal C4 - C5 - C6 degerleri aynı C7-farklı C8-C9 aynı gibi düzensiz bi sırayla devam edien bi içerlik var 4-5-6 aynı renk 7 farklı renk 8-9 farklı bir renk gibi devam edecek bi formül veya kısa bi yol var mı yardımcı olur musunuz

 

[facenoise]

Dosyayı indiremiyorum

 

[systran]

hangisini?

 

[yalcin_33]

Merhabalar benim bir sorum olacak şimdi =VE($B2<>"";MOD(SATIR();2)=1) bu formülü kullanarak 1 er satır atlatarak renklendirmeyi yaptım ama benim istediğim " D " stunundaki içeriğe göre satırları renklendirmesi misal
D2 33500234
D3 33500234
D4 33500002
D5 33500056
D6 33500056
D7 33500056
...
Bu şekil düzensiz bi dizilimde D2+D3 sarı D4 yeşil D5+D6+D7 sarı gibi

Yardımlarınızı bekliyorum şimdiden ilgilenen arkadaşlara teşekkür ederim

 

[ÖmerBey]

Module kopyalayıp deneyiniz.

Sub Boya()
a = 3
For i = 2 To [D65500].End(3).Row
If Cells(i, 4) = Cells(i - 1, 4) Then Cells(i, 4).Interior.ColorIndex = a Else a = a + 1
If a > 55 Then a = 3
If Cells(i, 4) = Cells(i + 1, 4) Then Cells(i, 4).Interior.ColorIndex = a
Next
End Sub

 

[yalcin_33]

Modül kullanmıyla alakalı hiç bi bilgim yok denedim böyle bi ekran çıktı bi değişiklik olmadı :/

 

[ÖmerBey]

Makro olduğu için kaydederken farklı kaydetten makro içeren çalışma dosyası olarak kaydetmeniz gerekiyor aksi halde makro çalışmaz diyor, hata onunla alakalı. Uzantısı xlsm olur.
Ya da 97-2003 excel dosyası olarak kaydederseniz onda da makro çalışır.

 

[yalcin_33]

http://dosya.co/z227uuvzptyy/kitap.rar.html


İlginiz için çok teşekkür ederim ama benim istediğim satırı komple renklendirmesi ve bide uygulamayı başardım ama anlatmaya çalıştığım gibi olmadı ekledim bi bakabilir misiniz

 

[ÖmerBey]

Satırı renklendirme için aşağıdaki kodu kullanabilirsiniz.

Sub Boya()
a = 3
For i = 2 To [D65500].End(3).Row
If Cells(i, 4) = Cells(i - 1, 4) Then Rows(i).Interior.ColorIndex = a Else a = a + 1
If a > 55 Then a = 3
If Cells(i, 4) = Cells(i + 1, 4) Then Rows(i).Interior.ColorIndex = a
Next
End Sub