aşağıdaki formülü sayfada

[mustafayılmaz]

aşağıdaki formülü 9.sütunun 1.satırında olduğu gibi 100000.satırdada çalıştırmak için bana yardımcı olurmusunuz.
çok teşekkürler.
Sub GÖRECELİ()
'
' GÖRECELİ Makro
' Makro mustafa tarafından 05.01.2007 tarihinde kaydedildi.
'

For r = 3 To 65536
If Cells(r, 9).Value = "" Then End
Range("I" & r + 1).Select
a = Cells(r, 10) - Cells(r, 10) * Cells(r, 11) / 100
b = a - a * Cells(r, 12) / 100
c = b - b * Cells(r, 13) / 100
d = c - c * Cells(r, 14) / 100
e = d - d * Cells(r, 15) / 100
g = e + e * Cells(r, 16) / 100
H = Cells(r, 9) * g
ı = g / Cells(r, 17)
K = ı + ı * Cells(r, 18) / 100
Cells(r, 22).Value = K
Cells(r, 21).Value = ı
Cells(r, 19).Value = g
Cells(r, 20).Value = H
Cells(r, 6).Value = Cells(r, 22)
Application.OnKey ("{RETURN}"), "ENTER"
Next
End Sub

 

[Levent Menteşoğlu]

Bunun için döngünün başlangıç ve bitiş değerlerini değiştirmeniz yeterlidir. Aşağıdaki mavi renkli değerler değiştirilecektir.

.
.
For r = [B][COLOR=blue]1[/COLOR][/B] To [COLOR=blue][B]100000[/B][/COLOR]
.
.