Süre Hesabı Hakkında

[konas06]

Selam.
İki kritere göre değer belirleme hakkında bir sorum olacak.
Saygılarımla.

 

[Orion1]

Aşağıdaki ktf işinizi görür.Standart bir modüle yapıştırınız.
dosyanız ektedir.
Formülde aşağıdaki gibidir.

=saat_sorgusu(A13;B13)

Function saat_sorgusu(isim As String, sure As Date) As Double
Dim sut As Byte, saat As Date, k As Range, sat As Long
saat = TimeSerial(Hour(sure), Minute(sure), 0)
sat = Cells(65536, "A").End(xlUp).Row
If saat >= TimeSerial(0, 0, 0) And saat <= TimeSerial(0, 30, 0) Then sut = 2
If saat >= TimeSerial(0, 31, 0) And saat <= TimeSerial(1, 0, 0) Then sut = 3
If saat >= TimeSerial(1, 1, 0) And saat <= TimeSerial(1, 30, 0) Then sut = 4
If saat >= TimeSerial(1, 31, 0) And saat <= TimeSerial(2, 0, 0) Then sut = 5
Set k = Range("A3:A" & sat).Find(isim, , xlValues, xlWhole)
If Not k Is Nothing Then saat_sorgusu = Cells(k.Row, sut).Value
End Function

 

[konas06]

Aşağıdaki ktf işinizi görür.Standart bir modüle yapıştırınız.
dosyanız ektedir.
Formülde aşağıdaki gibidir.

=saat_sorgusu(A13;B13)

Function saat_sorgusu(isim As String, sure As Date) As Double
Dim sut As Byte, saat As Date, k As Range, sat As Long
saat = TimeSerial(Hour(sure), Minute(sure), 0)
sat = Cells(65536, "A").End(xlUp).Row
If saat >= TimeSerial(0, 0, 0) And saat <= TimeSerial(0, 30, 0) Then sut = 2
If saat >= TimeSerial(0, 31, 0) And saat <= TimeSerial(1, 0, 0) Then sut = 3
If saat >= TimeSerial(1, 1, 0) And saat <= TimeSerial(1, 30, 0) Then sut = 4
If saat >= TimeSerial(1, 31, 0) And saat <= TimeSerial(2, 0, 0) Then sut = 5
Set k = Range("A3:A" & sat).Find(isim, , xlValues, xlWhole)
If Not k Is Nothing Then saat_sorgusu = Cells(k.Row, sut).Value
End Function

Çok Teşekkür Ederim.
Çok İşime Yarayacak.

 

[Orion1]

Çok Teşekkür Ederim.
Çok İşime Yarayacak.

Rica ederim.
İyi çalışmalar.

 

[konas06]

Evren Bey bu çalışmada sadece kod bölümündeki o kodları mı kullandınız.
Şimdi ben bu işlemi başka sayfada kullanmak istesem bu kodu kopyalamam yeterli mi?
Eğer zamanınız olduğunda bir cevap yazabilirseniz memnun olurum.
Yanlarına kısaca açıklayabilir misiniz?
Çok teşekkür ederim.
Saygılarımla.