Do Until [s5].Value <> [s7].Value
For sayac = 5 To 25
If [s5].Value > [s7].Value And Sheets("bordro").Cells(sayac, 15).Value <> 0 Then
Sheets("bordro").Cells(sayac, 15).Value = Sheets("bordro").Cells(sayac, 15).Value + 0.01
ElseIf [s5].Value < [s7].Value And Sheets("bordro").Cells(sayac, 15).Value <> 0 Then
Sheets("bordro").Cells(sayac, 15).Value = Sheets("bordro").Cells(sayac, 15).Value - 0.01
End If
Next sayac
Loop
burada 0 a eşit olmayan hücrelerin değeri eşitlik sağlanıncaya kadar 0.01 artırılıyor. çoğunlukta sorunla karşılaşıyorum doğal olarak, bütün hücrelerin değeri 0.01 arttırıldıktan sonra eşit olup olmadığı kontrol edildiğinden makrom bir ileri bir geri sarıyor ve işlemcim %100 çalışırhalde program sonlanmıyor. aradığım çözüm her bir hücrenin değeri artırıldıktan sonra eşitlik sağlanıp sağlanmadığına bakmalı makrom eğer sağlanmadıysa sonraki hücrenin değerini 0.01 arttırıp tekrar bakmalı. yardımlarınız için şimdiden teşekkürler. İyi çalışmalar.
For sayac = 5 To 25
If [s5].Value > [s7].Value And Sheets("bordro").Cells(sayac, 15).Value <> 0 Then
Sheets("bordro").Cells(sayac, 15).Value = Sheets("bordro").Cells(sayac, 15).Value + 0.01
ElseIf [s5].Value < [s7].Value And Sheets("bordro").Cells(sayac, 15).Value <> 0 Then
Sheets("bordro").Cells(sayac, 15).Value = Sheets("bordro").Cells(sayac, 15).Value - 0.01
End If
Next sayac
Loop
burada 0 a eşit olmayan hücrelerin değeri eşitlik sağlanıncaya kadar 0.01 artırılıyor. çoğunlukta sorunla karşılaşıyorum doğal olarak, bütün hücrelerin değeri 0.01 arttırıldıktan sonra eşit olup olmadığı kontrol edildiğinden makrom bir ileri bir geri sarıyor ve işlemcim %100 çalışırhalde program sonlanmıyor. aradığım çözüm her bir hücrenin değeri artırıldıktan sonra eşitlik sağlanıp sağlanmadığına bakmalı makrom eğer sağlanmadıysa sonraki hücrenin değerini 0.01 arttırıp tekrar bakmalı. yardımlarınız için şimdiden teşekkürler. İyi çalışmalar.