Makro ile Döngüsel Başvuru Çözme

[fremce]

Merhaba,

Bir projeksiyon modeli üzerinde çalışıyorum ve bir türlü aşamadığım bir problemim var.

Ekte bulunan ürün ağacından görülebileceği üzere, elektrik üretmek için yine elektriğe ihtiyaç duyuluyor.

Ancak elektriğin fiyatının üretilen elektriğe birebir eşit olması gerekiyor. Bu anlamda bir makro yazdım, bu makroda üretilen elektrik maliyetini, girdi olarak kullanılan elektrik fiyatına birkaç defa değer olarak yapıştırıyordu.

Ancak şöyle bir sorun oluştu; elektrik girdisi olmadan hesaplanan birim maliyet örneğin 60 olsun, makroyu çalıştırıyorum, ilk döngüde 60'ı alıp değer yapıştırıyor, girdi olan elektriğin fiyatı 60 olduğu için, elektriğin üretim birim maliyeti bu sefer 70 oluyor. Geçiyor ikinci döngüde, bu sefer birim üretim maliyeti olan 70 gelip, elektriğin girdi fiyatı oluyor, yeni üretim maliyeti ise 80 oluyo, üçüncü dördüncü döngüler sonunda üretim maliyeti abuk bir rakam çıkıyor, ayrıca girdi elektriğin birim maliyeti ile çıktı elektriğin birim maliyeti birbirine eşit çıkmıyor.

Öyle bir makro olmalı ki iki elektrik fiyatı(Girdi ve Çıktı) eşitlendiğinde kopyalayıp yapıştırma işlemini durdurup döngüyü tamamlamalı.

Ekteki dosyaya bakınca daha iyi bir fikir edinebilirsiniz.


Şimdiden çok teşekkür ederim, beni büyük bir dertten kurtarmış olacaksınız

 

[Levent Menteşoğlu]

Yazdığınız makroyu yazarmısınız.

 

[fremce]

Yazdığınız makroyu yazarmısınız.

Sub Macro3()
'
' Macro3 Macro
'

'
    Range("I26").Select
    Selection.Copy
    Range("H19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L7").Select
End Sub

Ayrıca ek olarak da ekliyorum, çok teşekkür ederim ilginiz için.

 

[fremce]

Nasıl yapılacağı hakkında fikri olan yok mu? :yardim: