Yüzde iterasyon sayısı

[barış34]

Selam,
Arkadaşlar örnek dosyaya sanırım ihtiyaç duyulmayacaktır , basitçe izah edeyim.

A1= Yüzdelik Değer
A2= Başlangıç sayısı
A3= Hedef sayı

Amaç şu:
Başlangıç sayısına , verilen yüzdelik değer ardışık olarak ekleniyor , ta ki hedef sayıya "en yakın küçük yada eşit" değere ulaşana kadar. Örneğin 14. defada alınan yüzde , verilen hedef sayıyı geçiyorsa iterasyon 13 verilmeli.

Yapılan işlemlerin herhangi bir sütunda görünmesi gerekmiyor. Çünkü çok fazla işlem adedi olduğu zamanlarda bin satırlık bir işlem dizisi oluşabilir ki bu aşamada buna ihtiyacımız bulunuyor.

Yalnızca iterasyon sayısı bir hücreye atanmalı , örneğin B1 hücresine sonucu yazdırmalı.

Bu işlemin adedi yani iterasyon sayısını verecek makro nasıl olabilir?

[erseldemirel]

Bir inceleyin

Kod: Tümünü seç

Sub test()
A1 = Range("A1").Value
A2 = Range("A2").Value
A3 = Range("A3").Value
Iterasyon = 0
Do While A2 < A3
A2 = A2 + (A2 * A1 / 100)
Iterasyon = Iterasyon + 1
Loop
Range("B1").Value = Iterasyon - 1
End Sub

[barış34]

Bir inceleyin

Kod: Tümünü seç

Sub test()
A1 = Range("A1").Value
A2 = Range("A2").Value
A3 = Range("A3").Value
Iterasyon = 0
Do While A2 < A3
A2 = A2 + (A2 * A1 / 100)
Iterasyon = Iterasyon + 1
Loop
Range("B1").Value = Iterasyon - 1
End Sub

Evet bu , teşekkür ederim Ersel bey.

Bir noktada bilgi almak istiyorum işin mantığını bilmediğimden yanlış bir deneme olmaması adına.

Bazı durumlarda iterasyon sayısının örneğin 5 fazlasını yada 8 fazlasını almak gerekiyor. İşlemle ilgili bir konu.
Kod üzerindeki yeri sanırım aşağıdaki satır.
Range("B1").Value = Iterasyon - 1
Yani iterasyonun 6 fazlası için - 1 olan yeri + 5 olarak değiştiriyoruz.

[erseldemirel]

Evet iterasyon bir değişken. Range("B1").Value = Iterasyon - 1 burada her türlü sonucu matemaik işlemleri ile değiştirirsiniz

[barış34]

Evet iterasyon bir değişken. Range("B1").Value = Iterasyon - 1 burada her türlü sonucu matemaik işlemleri ile değiştirirsiniz

Tekrar teşekkür ederim Ersel bey ,
İyi çalışmalar dilerim.

[erseldemirel]

Rıca ederım sızede kolay gelsın