SATIRI TARİHE GÖRE KOMPLE RENKLENDİRME

[tnt5234xml]

SEÇİLİ TARİHE GÖRE TÜM SATIRI KOŞULLU BİÇİMLENDİRME FORMULÜNÜ UYGULAYAMADIM YARDIMCI OLURSANIZ ÇOK SEVİNİRİM

 

[Hepgel]

Merhaba @tnt5234xml

Dosyanızı harici sitelerden birine yükleyip link paylaşabilir misiniz.

 

[tnt5234xml]

maalesef benim şirketteki sistem yasaklıyor giremiyorsun

 

[genesis_vision]

Dosyanız ektedir. F sütununda herhangi bir tarihi seçmeniz yeterli olacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng, c As Range
Dim abc As Date
Set rng = Range("f2:f" & Cells(Rows.Count, 6).End(3).Row)

If Not Intersect(Target, rng) Is Nothing And Not Target.Count > 1 Then
    Range("a2:f" & Cells(Rows.Count, 6).End(3).Row).Interior.Color = xlNone
    abc = Target.Value
    For i = 2 To Cells(Rows.Count, 6).End(3).Row
        If abc = Cells(i, 6).Value Then
            Range(Cells(i, 1), Cells(i, 6)).Interior.Color = vbYellow
        End If
    Next i
End If
End Sub

 

[ASLAN7410]

Merhaba.

 

[tnt5234xml]

Merhaba.

formülün mantığınıda açıklarsanız çok sevinirim çok sevinirim

 

[tnt5234xml]

sayın genesis ve aslan7410 çok teşekkür ederim

 

[ASLAN7410]

=EĞER($H$1="";"";$F1=$H$1)

Eğer H1 hücresi boş ise boş, değilse H1 hücresindeki bilgiyi F1 hücresinden aşağıdaki hücreleri kontrol et.

 

[genesis_vision]

sayın genesis ve aslan7410 çok teşekkür ederim

@tnt5234xml rica ederim. Kodu güncelledim. #4 no'lu mesajdaki dosyayı yeniden indiriniz.