excelde hücre verilerine göre işlem yaptırma

[nachuge]

arkadaşlar şekildeki gibi tablom var formül kısmına eğerler karmaşık geldiği için kod kısmında if / else ile halletmek istiyorum işlemi fakat her satırı tek tek adlandırmaktansa bunun kolay bir yolu varmıdır. for döngüsümü kurmam gerekli en kısa yoldan 31 gün için ne yapmalıyım.

 

[nachuge]

böyle birşey ama bu tek satır için geçerli bunu nasıl 31 gün içinde hesaplatabilirim..

Function harcirah_hesapla(tarih, cikis_saat, donus_saat)
cikis_saat = WorksheetFunction.Round(cikis_saat, 2)
donus_saat = WorksheetFunction.Round(donus_saat, 2)
If tarih = "" Then Exit Function
If cikis_saat = "" And donus_saat = "" Then
harcirah_hesapla = "1"
ElseIf donus_saat > cikis_saat Then
If donus_saat >= 12 And donus_saat < 19 Then
harcirah_hesapla = "1/3"
ElseIf cikis_saat = 0 And donus_saat > 0 Then
harcirah_hesapla = "1"
ElseIf cikis_saat > 12 And donus_saat < 24 Then
harcirah_hesapla = "1/3"
ElseIf cikis_saat < 12 And donus_saat > 19 Then
harcirah_hesapla = "2/3"
End If
ElseIf cikis_saat > 0 And donus_saat = 0 Then
harcirah_hesapla = "1"
End If
 
End Function

 

[nachuge]

arkadaşlar olayı çözdüm teşekkürler..