visual basicte formül sorunu

[can042]

:yardim: Sevgili Hocalarım, sizden çok şey öğrendim.Ve bu öğrendiklerimle bir program yapıyorum ama bir sorunu halledemedim.Dosya çok ağırlaştı formüllerden dolayı 30 mb 'ı geçti.Formlarla kayıt yaparken yada kayıt üzerinde değişiklik yaparken çok uzun süre bekliyor.Excel sayfalarındaki formülleri formlardaki kaydet kodlarının içine koyarak dosyanın hafifleyeceğini düşünüyorum.Ör: Range("R2") = Range("E2") * Range("AB2") + Range("F2") * Range("AB3") + Range("G2") * Range("AB4") + Range("H2") * Range("AB5") + Range("I2") * Range("AB6") + Range("J2") * Range("AB7") + Range("K2") * Range("AB8") + Range("L2") * Range("AB9") + Range("M2") * Range("AB10") + Range("N2") * Range("AB11") + Range("O2") * Range("AB12") + Range("P2") * Range("AB13") + Range("Q2") * Range("AB14") ama 5000 satıra olacak bunu tek tek girmek çok ama çok zor.Bunun farklı bir yöntemi varmı LÜTFEN YARDIM

 

[N.Ziya Hiçdurmaz]

Kodu bir deneyiniz.
Sub test()
For i = 2 To 5000
Range("R" & i) = Range("E2") * Range("AB2") + Range("F2") * Range("AB3") + Range("G2") * Range("AB4") + Range("H2") * Range("AB5") + Range("I2") * Range("AB6") + Range("J2") * Range("AB7") + Range("K2") * Range("AB8") + Range("L2") * Range("AB9") + Range("M2") * Range("AB10") + Range("N2") * Range("AB11") + Range("O2") * Range("AB12") + Range("P2") * Range("AB13") + Range("Q2") * Range("AB14")
Next
End Sub

 

[can042]

Çok TeŞekkÜr Ederİm

HOCAM çalışmalarınızda başarılar.Verdiğiniz bilgi için teşekkürler.Emeğinize sağlık.Kodu bir deneyiniz.
Sub test()
For i = 2 To 5000
Range("R" & i) = Range("E2") * Range("AB2") + Range("F2") * Range("AB3") + Range("G2") * Range("AB4") + Range("H2") * Range("AB5") + Range("I2") * Range("AB6") + Range("J2") * Range("AB7") + Range("K2") * Range("AB8") + Range("L2") * Range("AB9") + Range("M2") * Range("AB10") + Range("N2") * Range("AB11") + Range("O2") * Range("AB12") + Range("P2") * Range("AB13") + Range("Q2") * Range("AB14")
Next
End SubAma tüm satırlara aynı sonucu veriyor.Benim istediğim Range("R2") = Range("E2") * Range("AB2") + Range("F2") * Range("AB3") + Range("G2") * Range("AB4") + Range("H2") * Range("AB5") + Range("I2") * Range("AB6") + Range("J2") * Range("AB7") + Range("K2") * Range("AB8") + Range("L2") * Range("AB9") + Range("M2") * Range("AB10") + Range("N2") * Range("AB11") + Range("O2") * Range("AB12") + Range("P2") * Range("AB13") + Range("Q2") * Range("AB14") ve Range("R3") = Range("E3") * Range("AB2") + Range("F3") * Range("AB3") + Range("G3") * Range("AB4") + Range("H3") * Range("AB5") + Range("I3") * Range("AB6") + Range("J3") * Range("AB7") + Range("K3") * Range("AB8") + Range("L3") * Range("AB9") + Range("M3") * Range("AB10") + Range("N3") * Range("AB11") + Range("O3") * Range("AB12") + Range("P3") * Range("AB13") + Range("Q3") * Range("AB14") .........olarak 5000.satıra kadar gitmesi .Yani AB SÜTUNUNDAKİ AB2 İLE AB13 ARASI SABİT VE SATIRDA E HÜCRESİNDEN Q HÜCRESİNE kadar olan bölüm girilen kayıtlara göre farklı.Lütfen bu konuya yardım.

 

[can042]

sorunu çözdüm

Range("R" & i) = Range("E" & i) * Range("AB2") + Range("F" & i) * Range("AB3") + Range("G" & i) * Range("AB4") + Range("H" & i) * Range("AB5") + Range("I" & i) * Range("AB6") + Range("J" & i) * Range("AB7") + Range("K" & i) * Range("AB8") + Range("L" & i) * Range("AB9") + Range("M" & i) * Range("AB10") + Range("N" & i) * Range("AB11") + Range("O" & i) * Range("AB12") + Range("P" & i) * Range("AB13") + Range("Q" & i) * Range("AB14") bu şekilde satırlara veri girdikçe ayrı ayrı hesaplıyor.V.Basic For Applications çok teşekkür ederim.