DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub BankNot()
Dim i, k, Var As Integer
Range("B3:G3").ClearContents
Range("B5:G" & Range("A5").End(xlDown).Row).ClearContents
Application.ScreenUpdating = False
For k = 2 To 7
For i = 5 To Range("A5").End(xlDown).Row
If Cells(2, k) = Cells(3, k) Then Exit For
For x = 1 To Cells(2, k) - Cells(3, k)
If Cells(i, 8) + Cells(1, k) > Cells(i, 1) Then Exit For
Cells(i, k) = Cells(i, k) + 1
Cells(3, k) = Cells(3, k) + 1
Next x
Next i
Next k
Application.ScreenUpdating = True
End Sub