hücrede yazan sayı kadar makronun tekrar etmesi

[bugat]

ARKADAÞLAR,
sizden bir konuda yardım rica edeceğim eğer elinizden gelirse.
yazdığım bir makronun,excel sheetde yazılacak bir rakam kadar tekrar etmesi gerekiyor. yani hücrede 3 yazıyorsa makronun durmadan 3 kez tekrar çalışması gerekiyor. 10 yazıyor ise 10kez tekrar etmeli.
bu konuda yardımınız olabilirse sevinirim.
teşekkürler,iyi seneler.
not: ekteki dosyadan bakabilirsiniz.

 

[zafer]

Merhaba

Makronun başına

sub .......()
x=[a5]
for i=1 to x
.....
.....
.....

next
end sub

sizin kodlarınız benim kodlarımın ortasına gelecek.

 

[bugat]

TEÞEKKÜRLER,
KODU DENEDİM ÇALIÞTI,FAKAT TEKRAR SAYISI ÇOK OLDUÐU İÇİN ÇOK UZUN SÜRE ÇALIÞMASI GEREKİYOR. KISALTMA YAPMAK ADINA EKTEKİ DOSYAYI İNCELEYİP ÇÃ?ZÜM Ã?NERİSİ SUNABİLİRSENİZ SEVİNİRİM.
SAYGILARIMLA.

 

[zafer]

Merhaba

Vba sayfasına kod'ları yapıştırın

Sub Makro4()
Sheets("CALCULATION").Select
x = [b7]
For i = 1 To x
[b53] = [h7] * [b56]
[b54] = [b54] + [b53]
Next
End Sub

 

[bugat]

çok teşekkür ederim.
saygılar.