Otomatik Satır boyama

[lion71]

Arkadaşlar belli bir hücredeki değeri baz alarak o satırı kopmle boyamak istiyorum. ekteki dosya üzerinde açıklama yaptım...

bunu yapmanın bir yolu var mıdır... yardımlarınızı bekliyorum...

 

[N.Ziya Hiçdurmaz]

yanıt

Kodlar sayfa kod bölümünde olacak

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat As Integer
If Intersect(Target, [a:j]) Is Nothing Then Exit Sub
[a2:j1000].Interior.ColorIndex = xlNone
    For sat = 2 To Cells(65536, "h").End(xlUp).Row
        If Cells(sat, "h") = 100 Then Range(Cells(sat, "a"), Cells(sat, "j")).Interior.ColorIndex = 6
        If Cells(sat, "h") = 75 Then Range(Cells(sat, "a"), Cells(sat, "j")).Interior.ColorIndex = 5
        If Cells(sat, "h") = 40 Then Range(Cells(sat, "a"), Cells(sat, "j")).Interior.ColorIndex = 24
        If Cells(sat, "h") = 50 Then Range(Cells(sat, "a"), Cells(sat, "j")).Interior.ColorIndex = 7
        If Cells(sat, "h") = 0 Then Range(Cells(sat, "a"), Cells(sat, "j")).Interior.ColorIndex = 3
    Next
End Sub

 

[lion71]

emeğine sağlık yardımın için teşekkürler...
daha önce hiç kod kullanmamıştım excelde... mantığını çözüp diğer sayfalarda kendim ayarlama yapabilirsem süper olacak...

 

[GrSeL]

sayın ziya bey;
ben kodlardan henüz hiç birşey anlıyamıyorum, o yüzdende kullanamıyorum ve excelde çözümlerimi hep başka yollardan aradım.

bir dosya hazırladım, farklı bir şekilde kod kullanmadan, çalışmamla ilgili bu konuda düşüncelerinizi bildirirseniz sevinirim.
saygılarımla;

 

[lion71]

sayın ziya bey;
ben kodlardan henüz hiç birşey anlıyamıyorum, o yüzdende kullanamıyorum ve excelde çözümlerimi hep başka yollardan aradım.

bir dosya hazırladım, farklı bir şekilde kod kullanmadan, çalışmamla ilgili bu konuda düşüncelerinizi bildirirseniz sevinirim.
saygılarımla;

peki sen nasıl bir yol izledin bunu bizimle paylaşabilirmisin... kod kullanmadan nasıl ayarladın...

 

[Korhan Ayhan]

Selamlar,

Örnek dosyada koşullu biçimlendirme kullanılmıştır.

BİÇİM-KOŞULLU BİÇİMLENDİRME menüsünü inceleyiniz.

 

[m.ensar]

yanıt

Kodlar sayfa kod bölümünde olacak

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat As Integer
If Intersect(Target, [a:j]) Is Nothing Then Exit Sub
[a2:j1000].Interior.ColorIndex = xlNone
    For sat = 2 To Cells(65536, "h").End(xlUp).Row
        If Cells(sat, "h") = 100 Then Range(Cells(sat, "a"), Cells(sat, "j")).Interior.ColorIndex = 6
        If Cells(sat, "h") = 75 Then Range(Cells(sat, "a"), Cells(sat, "j")).Interior.ColorIndex = 5
        If Cells(sat, "h") = 40 Then Range(Cells(sat, "a"), Cells(sat, "j")).Interior.ColorIndex = 24
        If Cells(sat, "h") = 50 Then Range(Cells(sat, "a"), Cells(sat, "j")).Interior.ColorIndex = 7
        If Cells(sat, "h") = 0 Then Range(Cells(sat, "a"), Cells(sat, "j")).Interior.ColorIndex = 3
    Next
End Sub

Hayırlı geceler çok eski bir konu ama buradaki kodlara (Dim sat As integer) tam sayılar değilde sayı yada metin girişinin her ikisinide nasıl uygularız. Bana lazım olan metin girişi DENEME yazdığımda satır renklensin mesela
Şimdiden yeni yılınız kutlu olsun

 

[Korhan Ayhan]

Alıntı yaptığınız (Dim sat As integer) bölümü işlem yapılacak hücreleri ifade eden döngünün adıdır. Sizin düşündüğünüz gibi sorgulanan sayıları ifade etmez.

Sorgulama işlemi döngü içindeki aşağıdaki satırla yapılmaktadır. Bu sorgular birden fazladır.

If Cells(sat, "h") = 100 Then

 

[m.ensar]

Korhan hocam (Dim sat As integer) burada tam sayı olarak dediği için bunu yazdım. kusura bakmayın çok bilgim yok peki If Cells(sat, bunun yerine ne yazmak lazım yada metin olabilmesi için bu kodların yapısı tamamen mi değişmeli

 

[Korhan Ayhan]

Forumda isnumeric ya da istext ifadesi arama yapabilirsiniz.