For döngüsü hk.da

[ufukufuk01]

Merhabalar;

Aşağıda E2 hücresinden başlamak üzere j2 hücresine formül yazıyor. For döngüsü ile A hücresinde ki son satırna kadar E2: j2 formülleri kopyalayıp formül olarak yapıştıracak. Örnek a hücresi 10. satıra kadar ise E2: j2 hücresini koplayayıp E3: j10 arasına formul olarak yapıştıracak. a hücresi 500. satıra kadar ise E2: j2 hücresini koplayayıp E3: j500 arasına formul olarak yapıştıracak. Formda döngülere baktım fakat buna benzer bir örnek bulamadım. Yardımlarınız için şimdiden tşk.ler


Sub Makro1()
YesNo = MsgBox("Tüm Alan Kontrol Edildi mi?", vbYesNo + vbCritical, "Formüller eklensin mi ?")
Select Case YesNo
Case vbYes
Range("E2").Select
ActiveCell.FormulaR1C1 = _
"=ROUND(IF(RC[-1]="""",RC[-2]*0.8,IF(RC[-1]>0,(RC[-2]-(RC[-2]/100*RC[-1]))*0.8)),2)"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=ROUND(RC[-1]/0.8,2)"
Range("G2").Select
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]/RC[3],2)"
Range("H2").Select
ActiveCell.FormulaR1C1 = _
"=ROUND(IF(RC[-6]=0,RC[-1]+RC[-6],IF(RC[-6]=8,RC[-1]*1.08,IF(RC[-6]=18,RC[-1]*1.18))),2)"
Range("I2").Select
ActiveCell.FormulaR1C1 = "=(RC[-2]-RC[-4])/RC[-2]"
Range("J2").Select
ActiveCell.FormulaR1C1 = "0.65"


Range("A65536").End(xlUp).Offset(1).Select
For = 1.......



next




YesNo = MsgBox("İşleminiz Başarı İle Bitmiştir", vbCritical, "Formüller eklendi")
Case vbNo
YesNo = MsgBox("Kontrol edip yeniden deneyiniz.", vbCritical, "İptal Edildi")
End Select
End Sub

 

[YUSUF44]

Makronuza aşağıdaki satırları ilave edip deneyiniz. Döngü yerine Excelin doldurma özelliği kullanılmıştır:

    son = Cells(Rows.Count, "A").End(3).Row
    Range("E2:J" & son).FillDown

 

[ufukufuk01]

son = Cells(Rows.Count, "A").End(3).Row Range("E2:J" & son).FillDown

Çok teşekkür ederim