- Katılım
- 14 Haziran 2007
- Mesajlar
- 142
- Excel Vers. ve Dili
- 2007
Herkese merhabalar, 2 günlük yoğun çalışmadan sonra Makro yardımıyla istediğim formülü yaptım. Ancak küçük bir sorunum var. Bu yapmış olduğum kodlar sadece 3. satırda çalışıyor. Birçok şey denememe rağmen 3. satır ile 100. satır arasında çalıştıramadım. Okuduğum kadarıyka For... Next döngüsüyle yapılıyormuş. Aşağıdaki formül için bunu nasıl etkin hale getirebilirim...
--------------------------
Application.ScreenUpdating = False
Range("AR3").Select 'vade ayı
ActiveCell.Offset(0, Range("AF3")).Select
For i = 1 To Range("ae3") 'Taksit Sayısı
ActiveCell.Value = Range("E3") * Range("AD3") / Range("AE3") 'toplam fiyat / taksit sayısı
ActiveCell.Offset(0, 1).Select
Next i
End Sub
-------------------------
--------------------------
Application.ScreenUpdating = False
Range("AR3").Select 'vade ayı
ActiveCell.Offset(0, Range("AF3")).Select
For i = 1 To Range("ae3") 'Taksit Sayısı
ActiveCell.Value = Range("E3") * Range("AD3") / Range("AE3") 'toplam fiyat / taksit sayısı
ActiveCell.Offset(0, 1).Select
Next i
End Sub
-------------------------