satırda sadece veri olan hücreler renklensin...

[mahmutbeyli]

excel çalışma sayfasında sıralanan 500 satıra yakın veri var,bunlara inputbox ile kodu yazdığımda hücre seçiliyor ve satır renkleniyor..
yapmak istediğim ise sadece veri olanlar renklensin veri aaralığı a:f sütun aralığı ayrıca - (f sütununda eksi) verenler farklılansın

şimdiden teşekkürler

 

[fedeal]

Makrolu ve koşullu biçimlendirmeli örneği ekte, iyi çalışmalar.

 

[mahmutbeyli]

excel çalışma sayfasında sıralanan 500 satıra yakın veri var,bunlara inputbox ile kodu yazdığımda hücre seçiliyor ve satır renkleniyor..
yapmak istediğim ise sadece veri olanlar renklensin veri aaralığı a:f sütun aralığı ayrıca - (f sütununda eksi) verenler farklılansın

şimdiden teşekkürler

Sayın Fedeal İlginiz için teşekkür ederim sanırım kendimi ifade edemedim...

Yardıma ihtiyaç duyduğum konu satırı renklendirmek istediğmde tüm satır renkleniyor halbuki ben sadece "F" sütununa kadar renklenmesini anlatmak istedim...
örneğin 500 kadar satır 6 sütun (a1:f500)
burada inputbox ile kodunu yada numarasını yazdığım veriyi tüm satır boyunca renklendiriyorum istediğim verilerin bittiği son f sütyunundan öteye renklendirme olmasın...
ilgi ve bilginiz için teşekkürler

 

[dEdE]

Merhaba,

....inputbox ile kodunu yada numarasını yazdığım veriyi tüm satır boyunca renklendiriyorum ....

Bu renklendirme işlemini nasıl yapıyorsunuz. Koşullu biçimlendirme mi? Kod ile mi? Kod ile ise nasıl bir kod kullanıyorsunuz? Bunları bilmek lazım.

Örnek dosya eklerseniz daha çabuk yanıt alırsınız.

 

[mahmutbeyli]

Merhaba,

Bu renklendirme işlemini nasıl yapıyorsunuz. Koşullu biçimlendirme mi? Kod ile mi? Kod ile ise nasıl bir kod kullanıyorsunuz? Bunları bilmek lazım.

Örnek dosya eklerseniz daha çabuk yanıt alırsınız.

Sayın dEdE;örnek dosya ekte

 

[dEdE]

Merhaba,

Modül1 deki kodun aşağıdaki satırını

ActiveCell.EntireRow.Interior.ColorIndex = 15 ' Satır Rengi

bununla değiştirin.

Range("A" & ActiveCell.Row & ":F" & ActiveCell.Row).Interior.ColorIndex = 15
If Range("F" & ActiveCell.Row).Value < 0 Then Range("F" & ActiveCell.Row).Interior.ColorIndex = 6

 

[mahmutbeyli]

Merhaba,

Modül1 deki kodun aşağıdaki satırını

ActiveCell.EntireRow.Interior.ColorIndex = 15 ' Satır Rengi

bununla değiştirin.

Range("A" & ActiveCell.Row & ":F" & ActiveCell.Row).Interior.ColorIndex = 15
If Range("F" & ActiveCell.Row).Value < 0 Then Range("F" & ActiveCell.Row).Interior.ColorIndex = 6

Sayın dEdE, Harika tam istediğim buydu,teşekkürler,Dua ile...
yalnız değerleri aynı olan hücreleri (a2a=5200 - ba1a= 5200)aynı renge boyasın)