Bir Tarihe Ait İlk Veriyi Bulma

[badmad34]

Merhabalar,

Eklemiş olduğum Excel çalışma kitabında şunu yapmak istiyorum: Excel'in bir tarihe ait ilk satırı bulup, o satırdaki KONTROL hanesine "OK" yazmasını nasıl sağlayabilirim?

Ekteki çalışma kitabına göre anlatacak olursam;

Excel 01.01.2012 verisinin geçtiği ilk satırı bulsun (2. satır) ve C2 hücresine "OK" yazsın.
02.02.2012 verisinin geçtiği ilk satırı bulsun (4. satır) ve C4 hücresine "OK" yazsın.
03.03.2012 verisinin geçtiği ilk satırı bulsun (8. satır) ve C8 hücresine "OK" yazsın.
06.03.2012 verisinin geçtiği ilk satırı bulsun (11. satır) ve C11 hücresine "OK" yazsın.
01.04.2012 verisinin geçtiği ilk satırı bulsun (12. satır) ve C13 hücresine "OK" yazsın.

Bunu nasıl yapabilirim?

 

[Orion1]

Dosyanız ektedir.

Sub ilk_59()
Dim i As Long, sat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To sat
    If WorksheetFunction.CountIf(Range("B2:B" & i), Cells(i, "B").Value) = _
    1 Then Cells(i, "C").Value = "OK"
Next i
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmaili.com", _
vbOKOnly + vbInformation, Application.UserName
End Sub

 

[badmad34]

Dosyanız ektedir.

Sub ilk_59()
Dim i As Long, sat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To sat
    If WorksheetFunction.CountIf(Range("B2:B" & i), Cells(i, "B").Value) = _
    1 Then Cells(i, "C").Value = "OK"
Next i
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmaili.com", _
vbOKOnly + vbInformation, Application.UserName
End Sub

Çok teşekkür ederim.