Boyalı hücrenin bir üst hücresini alma

[blade_boy87]

Merhaba arkadaşlar.

Her ay yaptığım bir listede, kırmızı ile boyalı hücre ve boyalı hücrenin bir üst hücredeki verilerini değer olarak herhangi bir yere almak istiyorum. veya kırmızı ile boyalı hücre varsa otomatik bir üstteki hücre de boyansa da olur. oradan süzebilirim.
örnek dosyayı yüklüyorum. Yardımcı olursanız sevinirim, şimdiden teşekkür ederim..

 

[bmutlu966]

Dosyada koyu bir kırmızı kullanmışsınız. Kan kırmızısı kullanırsanız aşağıdaki kodlar işinizi görecektir.

Sub boya()

son = [C65000].End(3).Row
For t = 2 To son
    If Cells(t, "C").Interior.Color = RGB(255, 0, 0) Then
       Cells(t - 1, "C").Interior.Color = RGB(255, 0, 0)
    End If
Next

End Sub

 

[Korhan Ayhan]

Merhaba,

Bahsettiğiniz işlemi koşullu biçimlendirme ile yapabilirsiniz.

C sütununu seçiniz.
Koşullu biçimlendirme FORMÜL bölümünü açınız ve aşağıdaki formülü uygulayınız. Dilediğiniz dolgu rengini seçip işlemi tamamlayınız.

=C2>=$E$1

 

[blade_boy87]

Dosyada koyu bir kırmızı kullanmışsınız. Kan kırmızısı kullanırsanız aşağıdaki kodlar işinizi görecektir.

Sub boya()

son = [C65000].End(3).Row
For t = 2 To son
    If Cells(t, "C").Interior.Color = RGB(255, 0, 0) Then
       Cells(t - 1, "C").Interior.Color = RGB(255, 0, 0)
    End If
Next

End Sub

Teşekkür ederim emeğiniz için. Çok işime yaradı