Üst satırların boyanması

[domino]

Veri olan son satırın seçilip üstündeki satırların beyaza boyanmasını istiyorum.
Ama bir türlü beceremedim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırarak dener misiniz?

Sub beyazlat()
    DSS = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Rows("1:" & DSS - 1).Interior.ColorIndex = 2
End Sub

 

[domino]

Oldu ama ben fontuda beyaz yapmak istiyordum.

 

[dEdE]

Merhaba,
Bu satırın altına

Rows("1:" & DSS - 1).Interior.ColorIndex = 2

bu satırı da ekleyip dener misiniz?

Rows("1:" & DSS - 1).Font.ColorIndex = 2

 

[domino]

Evet Buda oldu teşekkür ederim ama son satırı da boyuyor Ayrıca koşullu biçimlendirilmiş hücrelerim var onları nasıl boyayabilirim. Zira beyaza boyasam da onlar siyah kalıyor.

 

[dEdE]

Merhaba,

... son satırı da boyuyor .

Son satırı boyamaz. Sayfanızda son satırın altında herhangibir hücrede küçük de olsa bir veri vardır. Yanlışlıkla basılmış boşluk tuşu bile buna neden olabilir. Çünkü kod sayfanın en sonunda yer alan herhangibir karakteri arayıp onun bulunduğu satırın bir üstünü dikkate alıyor..

Ayrıca koşullu biçimlendirilmiş hücrelerim var onları nasıl boyayabilirim. Zira beyaza boyasam da onlar siyah kalıyor.

En başta örnek dosya eklememenizin sonucu uzayan mesaj trafiği ve forumda kirlilik.
Ayrıca boyadığınız satırları eski haline getirmeyecek misiniz?
Lütfen örnek dosya ekleyiniz ve sorunuzu/sorununuzu tam olarak yazınız.
Hoşçakalın.

 

[domino]

örnekte olduğu gibi müşteri hesabını güncelledikçe son satırın çıktısını hesap kartına yazdırmak istiyorum.