Değer Girilen İlk Tarihi Biçimlendir

[lsagirdak]

Değerli Arkadaşlar ekli tablo hasta takip listesidir.Buna göre hastanın geldiği gün için ilgili tarih sütununa "1" yazılır.
Buna göre Hastanın seansa gelmeye başladığı ilk gün biçimlensin istiyorum

Bilginize ve İlginize

 

[turist]

Dosyanız eklidir.
Koşullu biçimlendirmedeki Formüllere dikkat ediniz.

 

[lsagirdak]

=VE(EĞERSAY($AO3:AO3;1)=1;AO3<>0;AO3<>"")

Teşekkür ederim hocam elinize sağlık

Alternatif:
Tarkan Vural'ın Yazdığı Kodlar ile Çözüm

Private Sub Worksheet_Change(ByVal Target As Range)
Const renk_index As Long = 5287936
Const bosrenk As Long = 16777215
If Target.Value = "" Then Exit Sub
If Target.Column >= 41 Then
    son = Target.Column
    For i = 41 To son
        If Cells(Target.Row, i).Value <> "" Then
            Cells(Target.Row, i).Interior.Color = renk_index
            For a = i + 1 To Range("a2").End(xlToRight).Column
                If Cells(Target.Row, a).Interior.Color = renk_index Then
                    Cells(Target.Row, a).Interior.Color = bosrenk
                End If
            Next a
                Exit For
        End If
    Next i
End If
End Sub

 

[lsagirdak]

@turist hocam

Müsaadenizle bu konuyla ilgili son bir sorum olacak;

"1" yazdığımızda o günün tarihini A sütununa yazdırabilirmiyiz?

 

[turist]

A3 hücresine:

=IF(F3="";"";INDEX($AO$2:$IN$2;MATCH(1;AO3:IN3;0)))

IF=EĞER
INDEX=İNDİS
MATCH=KAÇINCI

Formülünü yazıp, istediğiniz kadar aşağıya doğru kopyalayıp yapıştırın.

 

[lsagirdak]

Çok Teşekkür Ederim sayenizde formülün gücünü keşfettim.Nedense (cahilliğimden olsa gerek ) kod daha iyi çözümmüş gibi geliyordu yanılmışım

 

[lsagirdak]

@turist hocam

Ekli dosyada sizin yardımızla hastanın ilk geldiği günü "Başlama Tarihi" sütununa yazdırıyoruz.Son geldiği günü (satırdaki son "1" yazılan günü) "Bitiş Tarihi" sütununa yazmak isityorum.Yardımınızı rica ediyorum

Edit: http://www.excel.web.tr/f47/ba-lama-tarihi-biti-tarihi-t139688.html#post757741

dosyanın son hali :http://s3.dosya.tc/server20/1UZUBT/sontarih.xls.html

 

[turist]

Dosyanız eklidir.

 

[lsagirdak]

Teşekkür

Teşekkür Ederim