Satır Renklendirme için

[Araştırıcı]

Aktarma işleminde satırlara veri girildiğinde, satır arka fonuna renk vermek için (mavi ve açık mavi olabilir) faşağıdaki kodlara nasıl bir kod eklemek gerekecek ? Eklenen satır mavi renk alacaksa bir sonraki açık mavi olarak oluşması satırları ayırmak için daha iyi olacağından çift renk uygulamasını nasıl yapabiliriz ?

Aktarma Makrosu:

For B = 2500 To 1 Step -1
If Cells(B, 4).Value = ComboBox17.Value Then
Cells(B, 4).Select
GoTo dur
End If
Next B
dur:
TextBox25.Value = Cells(ActiveCell.Row, 1).Value 'inşaat şirketi c

TextBox9.Value = Cells(ActiveCell.Row, 3).Value 'inşaat şirketi c
ComboBox12.Value = Cells(ActiveCell.Row, 2).Value 'mimari ofis d
TextBox4.Value = Cells(ActiveCell.Row, 4).Value 'görüşülen proje d
ComboBox3.Value = Cells(ActiveCell.Row, 5).Value 'ŞEHİR L
TextBox5.Value = Cells(ActiveCell.Row, 6).Value 'ilgili kişi
TextBox8.Value = Cells(ActiveCell.Row, 8).Value 'tel no h
TextBox24.Value = Cells(ActiveCell.Row, 7).Value 'E-MAIL H
ComboBox9.Value = Cells(ActiveCell.Row, 9).Value 'görüşme şekli i
ComboBox11.Value = Cells(ActiveCell.Row, 10).Value 'görüşen kişiJ
ComboBox15.Value = Cells(ActiveCell.Row, 11).Value 'tarih k
ComboBox4.Value = Cells(ActiveCell.Row, 12).Value 'bitiş tarihi L
ComboBox14.Value = Cells(ActiveCell.Row, 13).Value 'VERİLEN DÖKÜMAN M
ComboBox6.Value = Cells(ActiveCell.Row, 14).Value 'proje aşaması
TextBox12.Value = Cells(ActiveCell.Row, 15).Value 'GÖRÜŞME AŞAMASI N
ComboBox10.Value = Cells(ActiveCell.Row, 16).Value 'SON DURUM O
TextBox20.Value = Cells(ActiveCell.Row, 17).Value 'Notlar
TextBox18.Value = Cells(ActiveCell.Row, 18).Value 'TUTARI


Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Cells(ActiveCell.Row, 1).Select

End Sub

 

[Korhan Ayhan]

Selamlar,

Ekte koşullu biçimlendirme ile hazırladığım örnek dosyayı incelermisiniz. Bu şekilde kullanırsanız veri silme yada ekleme işleminde satırlar otomatik olarak renklenecektir.

 

[Araştırıcı]

Merhaba Cost_Control,
İyi çalışmalar.

Bana ayırdığınız zaman için çok teşekkürler. Elinize sağlık.
Konuyu inceledim ve yöntemi anladım. Ancak merak ettiğim birşey var. Renklendirilen satırların renk özelliklerini arttırmak mümkün müdür? Mesela çift renk oluşturmak gibi, yani aynı hücre içersinde beyazdan maviye doğru giden bir renk uygulaması gibi ya da ışık ve gölge katma gibi. Bunu nedewn soruyorum, çünkü bazı programlarda bu renkler çok daha farklı bir dolguda görülüyor. Bununasıl yapıyorlar? Bilgilendirebilirseniz çok sevinirim. Bu tarz bir çalışma için başka araçlar gerekir mi?


Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Maalesef 2003 versiyonunda tek hücreye çift renk uygulaması bildiğim kadarı ile yapılamıyor. Fakat biçimlendirmek istediğiniz sütunları seçip BİÇİM-OTOMATİK BİÇİM menüsünden 3 boyutlu efektleri kullanabilirsiniz. Belki işinize yarayabilir.

 

[hsayar]

hocam çok güzel olmuş, bende merak ettim birgün lazım olur diye soruyorum 3 veya 4 renk uygulamak nasıl olmalı?(1mavi,2sarı,3açık mavi,4turuncu,5 yine mavi) gibi
biçimlerdeki formulü gördüm ama bozmak istemedim?

 

[Korhan Ayhan]

Selamlar,

hocam çok güzel olmuş, bende merak ettim birgün lazım olur diye soruyorum 3 veya 4 renk uygulamak nasıl olmalı?(1mavi,2sarı,3açık mavi,4turuncu,5 yine mavi) gibi
biçimlerdeki formulü gördüm ama bozmak istemedim?

3 renge kadar koşullu biçimlendirme ile yapabilirsiniz. Koşul sayısı artarsa bu durumda devreye makro girecektir.

 

[Araştırıcı]

Sayın Cost_Control Merhaba,

Ben bu koşullu biçimlendirmeden çok ısınamadım açıkçası. Makroyu tercih ederim. Fonksiyonlarla zaten aram hiç olmadı. Biz bu renlendirmeleri makro ile yapalım. Ama nasıl? Hatta 3D renklendirme ve biçimlendirmeleri de.. Örneğimizi baz alıp bir örnek yazabilir misiniz?

Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkte Sn. yurttas beyin güzel bir çalışmasını bulabilirsiniz. Ayrıca koşullu biçimlendirme kullanmak (siz ne kadar kullanmak istemesenizde) çalışmanıza esneklik kazandıracaktır.

56 Koşula Göre Renklendirme

 

[hsayar]

Selamlar,



3 renge kadar koşullu biçimlendirme ile yapabilirsiniz. Koşul sayısı artarsa bu durumda devreye makro girecektir.

Selamlar,

Aşağıdaki linkte Sn. yurttas beyin güzel bir çalışmasını bulabilirsiniz. Ayrıca koşullu biçimlendirme kullanmak (siz ne kadar kullanmak istemesenizde) çalışmanıza esneklik kazandıracaktır.

56 Koşula Göre Renklendirme

hocam ekli dosyayı inceledim ve biliyorum selct case ile yapılmış.

Benim sorduğum sizin yaptığınız çift renkli nasıl olamlı
Yani satır silindiğinde alltaki satır mavi iken açık mavi oluyor, yada
Yani satır eklendiğinde alltaki satır açık mavi iken mavi oluyor, yeni satırda açık mavi oluyo bunun üçlemesi olurmu diye sordum MOD fonksiyonu ile

mesala daima
1. satır beyaz
2. satır gri
3. satır siyah
4. satır beyaz
5. satır gri
6. satır siyah
7. satır beyaz
8. satır gri
9. satır siyah olacaktır
vs.vs.vs..............


gibi evet 4 diyerek abartmışım biraz.

 

[Korhan Ayhan]

Selamlar,

Sn. hsayar,

Sanırım istediğiniz bu işlem için makro ile yapılabilir.

 

[ozsah]

Peki örneğin 701 1
701 2
701 3 Gibi kıyaslarım var. Daha sonra

702 1
702 2
702 3 diye devam ediyor 802 1, 802 3 diyede aşağıya doğru devam edecek satırda renklerin değişmesini ve 701 leri toplu gri örneğin ardından gelen 702 leri mavi ardından gelen 703 leri pembe yapar mı renkler toplasın istiyorum tabloyu karmaşıklığı önlesin.??