gönderdiğiniz Excel dosyasında posa sütununda hiç bir değer 500kgma yaklaşmıyor bile en fazla 70 var
Kota Ton olarak alayım dedim onda da miktar ile eklenmesi gereken gün arasında ilişki yok
mesela 212103-11 AHMET ALTINBAŞ 05-Nis-21 50 2300 07-Nis-21 kaydı için
posa=50
kota ton=2300
tarih=7 nisan
bu 7 nisan tarihi neye göre bulunmuş anlamadım ama dilerim aşağıdaki kod işinize yarar

Set rs = CurrentDb.OpenRecordset("Posa Kartları", dbOpenDynaset)

With rs

Do Until rs.EOF

TrhHesap = Fix((rs(3) - 1) / Me.Metin36) + CLng(Me.Metin33)

.Edit

rs(5) = TrhHesap

.Update

.MoveNext

Loop

End With

MsgBox "Posa Bölme İşlemi Tamamlanmıştır."

rs.Close