makro ile hesaplamalar

[emrebengul]

iç cephe,dış cehpe, sentetik,iç ve konfor adlı sayfalarda hesaplamalar var ama ben yapamadım bir türlü yardımcı olur musunuz?http://m.yollayap.com/ba3s/1475818472893.xlsx

 

[YUSUF44]

Neyi yapamadınız? Tam olarak hangi sayfada/satırda/sütunda/hücrede ne gibi bir değişiklik yapılmasını ya da nasıl bir ilave yapılmasını istiyorsunuz?

 

[emrebengul]

http://s9.dosya.tc/server/bov8aw/LAJLIBIRIMMALIYETLER-YAYINLANANSONHALI-2.xlsx.html buyrun yükledim. aslında hesaplamaları yapamadım nedense hata veriyor anlamıyorum yardımcı olursanız sevinirim.

 

[YUSUF44]

Aynı dosyayı bir daha yüklemişsiniz ama soruma cevap vermemişsiniz maalesef.

 

[emrebengul]

Hesaplamaları yapamadım dosyayı açtıysanız eğer sayfa 1 iç cephe diye geçiyor sayfa 2 dış cephe olarak geçiyor. Orada e3 f3 g3 h3 ı3 j3 sütununa formülle yazdığım şeylerin kodunu istiyorum e35 f35 g35 h35 ı35 j35'e kadar. 5 sayfadada aynı şeyleri istiyorum inşallah anlatabilmişimdir.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. İşinizi görürse koddaki for i = 4 to ifadelerini for i = 3 to olarak değiştiriniz. Bilgisayarınızın durumuna göre işlem uzun sürebilir:

Sub formül()
Set s1 = Sheets("İÇCEPHE")
Set s2 = Sheets("DIŞ CEPHE ")
Set s3 = Sheets("SENTETİK")
Set s4 = Sheets("IC ")
Set s5 = Sheets("KONFOR ")

s1.Activate
    For i = 3 To 69
        s1.Cells(i, "E").FormulaR1C1 = "=RC[-1]*R2C"
        s1.Cells(i, "F").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s1.Cells(i, "G").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s1.Cells(i, "H").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s1.Cells(i, "I").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
    Next
s2.Activate
    For i = 4 To 40
        s2.Cells(i, "E").FormulaR1C1 = "=RC[-1]*R2C"
        s2.Cells(i, "F").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s2.Cells(i, "G").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s2.Cells(i, "H").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s2.Cells(i, "I").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s2.Cells(i, "J").FormulaR1C1 = "=RC[-1]"
    Next
s3.Activate
    For i = 4 To 66
        s3.Cells(i, "E").FormulaR1C1 = "=RC[-1]*R2C"
        s3.Cells(i, "F").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s3.Cells(i, "G").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s3.Cells(i, "H").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s3.Cells(i, "I").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s3.Cells(i, "J").FormulaR1C1 = "=RC[-1]"
    Next
s4.Activate
    For i = 4 To 35
        s4.Cells(i, "E").FormulaR1C1 = "=RC[-1]*R2C"
        s4.Cells(i, "F").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s4.Cells(i, "G").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s4.Cells(i, "H").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s4.Cells(i, "I").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s4.Cells(i, "J").FormulaR1C1 = "=RC[-1]"
    Next
s5.Activate
    For i = 4 To 10
        s5.Cells(i, "E").FormulaR1C1 = "=RC[-1]*R2C"
        s5.Cells(i, "F").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s5.Cells(i, "G").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s5.Cells(i, "H").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s5.Cells(i, "I").FormulaR1C1 = "=RC[-1]+(RC[-1]*R2C)"
        s5.Cells(i, "J").FormulaR1C1 = "=RC[-1]"
    Next


End Sub