Çözüldü Gün bazlı ardiye hesaplama

[orhantan92]

Merhaba,

Müşterim varış ve çıkış tarihi arasındaki gün sayısını ilk 7 gün (7. dahil) 3€ sonraki günler 6 € hesaplayıp gönderiyor. Bende manuel olarak kontrol ediyorum. Excel'de bun göre makro yazılabilir mi?

 

[YUSUF44]

Aşağıdaki formülü deneyiniz:

=EĞER(D4-C4>6;21+(D4-C4-6)*6;(D4-C4+1)*3)

 

[orhantan92]

Çok teşekkür ederim sağolun

 

[çıtır]

Makro çözümü:

Sub gunfıyat()
Dim s1 As Worksheet: Dim i As Integer: Dim son As Integer
Set s1 = Sheets("Sayfa1")
Application.ScreenUpdating = False
son = s1.Cells(65355, "A").End(3).Row
s1.Range("E4:E" & son).ClearContents
For i = 4 To son
If IsDate(s1.Range("C" & i)) And IsDate(s1.Range("D" & i)) Then
gun = (s1.Range("D" & i) - s1.Range("C" & i)) + 1
If gun <=7 And gun > 0 Then
s1.Range("E" & i) = gun * 3
s1.Range("E" & i).NumberFormat = "[$€-2] #,##0.00"
ElseIf gun > 7 Then
s1.Range("E" & i) = 21 + (gun - 7) * 6
s1.Range("E" & i).NumberFormat = "[$€-2] #,##0.00"
End If
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı.", vbInformation, "BİLGİNİZE"
End Sub

 

[orhantan92]

İlginiz için çok teşekkür ederim.

 

[çıtır]

İlginiz için çok teşekkür ederim.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[zehfeysal]

 

[zehfeysal]

1 gun farkı olan hücrelerde makro ile formul arasında fark var

 

[çıtır]

1 gun farkı olan hücrelerde makro ile formul arasında fark var

#4 nolu cevapdaki Makroda gerekli düzeltme yapılmışdır.