Satir Renklendİrmede Makro Nasil Yapilir

[yellow]

ArkadaŞalar 2 Sorum Olacak Bu Konuda Yardimlarinizi Beklİyorum.Örnek Dosya Ektedİr.Şİmdİden İlgİlenen ArkadaŞlara TeŞekkÜr Edİyorum.

 

[yellow]

aa

arkadaşlar acil yardımlarınızı bekliyorum değerli excel bilen arkadaşlar

 

[ileriexcel]

Private Sub CheckBox2_Click()
If CheckBox2 = True Then Rows("3:3").Interior.ColorIndex = 6
If CheckBox2 = False Then Rows("3:3").Interior.ColorIndex = xlNone
End Sub

 

[yellow]

arkadaşım ilgine teşekkür ederim üçünü birden işaretlememe rağmen sadece 2 cisi
sarı oluyor.

 

[Merhum İdris SERDAR]

arkadaşım ilgine teşekkür ederim üçünü birden işaretlememe rağmen sadece 2 cisi
sarı oluyor.

Her bir Checkbox için aşağıdaki kodları yazmalısınız.

Private Sub CheckBox1_Click()
If CheckBox1 = True Then Rows("2:2").Interior.ColorIndex = 6
If CheckBox1 = False Then Rows("2:2").Interior.ColorIndex = xlNone
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 = True Then Rows("3:3").Interior.ColorIndex = 6
If CheckBox2 = False Then Rows("3:3").Interior.ColorIndex = xlNone
End Sub

Private Sub CheckBox3_Click()
If CheckBox3 = True Then Rows("4:4").Interior.ColorIndex = 6
If CheckBox3 = False Then Rows("4:4").Interior.ColorIndex = xlNone
End Sub

 

[yellow]

arkadaşım saol bu oluyorda 2000 satır için bu tek tek yazmak zor olur daha kolay bir yolu yokmudur acaba ilginize teşekkürler

 

[yellow]

arkadaşlar ilk soruya bakacak bir bilen yok mu

 

[emrexcel123]

dosya ektedir

arkadaşım ilk sorunun cevabı ektedir...
sayfa2'de firma kodunu girersen kalan - depo - üretim otomatik hesaplanacaktır...

 

[yellow]

arkadasim oncelikle ilgine tesekkurler bu formul depoyuda topluyor ayni firma kodu olanlari siparisi toplayacak ama depoda sadace bir tanesini alacak sekilde yapabilirmiyiz
Birde formulu cogaltamiyorum

 

[Levent Menteşoğlu]

Bence her satıra bir checkbox koymaya gerek yok. Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. A sütunundaki hücreye örneğin x yazarsanız satır renklenir, silerseniz renk kaldırılır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Rows(Target.Row).Interior.ColorIndex = 6
If Target = 0 Then Rows(Target.Row).Interior.ColorIndex = xlNone
End Sub

 

[yellow]

Leventİm TeŞekkÜrler GerÇekten GÜzel Fİkİr Saol
İlk Soruya Da Bakman MÜmkÜnmÜ Oda Benİm İÇİn Önemlİ Şİmdİden Saol

 

[ocamsul]

SN: leventm üsdat vermiş olduğunuz örneği, eğer, örneğin a3 hücresindeki değer 0 ise o değerin yazı rengini (sadece o hücre için) bu kod ile nasıl uygularız?