3 Koşullu Biçimlendirme

[by_ufuk]

Arkadaşlar forumdaki diğer 3 koşullu biçimlendirmeleri inceledim ancak bende ki dosya ya uygun bir konu bulamadım. Bu sebeple sizlere sormak istedim.

Resimde göründüğü gibi bir problemim var,yardımcı olursanız sevinirim. Dosyayı da ekledim.

 

[asi_kral]

Arkadaşlar forumdaki diğer 3 koşullu biçimlendirmeleri inceledim ancak bende ki dosya ya uygun bir konu bulamadım. Bu sebeple sizlere sormak istedim.

Resimde göründüğü gibi bir problemim var,yardımcı olursanız sevinirim. Dosyayı da ekledim.

Merhaba
C2 hücresinden itibaren ne kadar yerde çalışmasını istiyorsanız mause ile seçiniz.
Biçim - Koşullu Biçimlendirme - Formül bölümüne

=VE($C2<>"";$B2<>$C2;$D2<>"")

Bu formülü yazın ve Biçimlendir - Dolgudan ( Kırmızı ) rengi seçin ve tamam diyerek koşullu biçimlendirmeyi kapatın ve sonuçları gözlemleyin
Dosyanız Ekte

 

[Murat OSMA]

Deneyiniz....

[SIZE="2"]Sub Emre()
    Dim i As Integer
    On Error Resume Next
    For i = 2 To Range("B65536").End(3).Row
    If Cells(i, 4) = "" And IsNull(Cells(i, 2)) Then
    Cells(i, 3).Interior.ColorIndex = 0: End If
    If Cells(i, 2) = Cells(i, 3) Then
    Cells(i, 1).Resize(1, 4).Rows.Interior.ColorIndex = 0
    Else: Cells(i, 3).Interior.ColorIndex = 3
    End If: Next i: i = Empty
End Sub[/SIZE]