Goal Seek-Hedef Ara uygulamasini makro ile yapmak

[Turk]

Forumda yaptigim aramalarda benzer bir iki soru ve cevabini buldum ama ben Hedef Ara ile yaptigim uygulamayi tamamen otomatik olarak calistirmak istiyorum. Bunun icin bir makro veya kullanici tanimli fonksiyon yazilabilir mi? Konuyu detayli anlatan excel dosyasi ilisikte sunulmustur. Yardimlariniz icin simdiden tesekkur ederim.

Saygilarimla,

 

[tahh_74]

Merhaba,

aşağıdaki uygulamayı bir inceleyin isterseniz.

Ahmet

 

[Turk]

Sayin tahh_74,

!lginiz ve yardimlariniz icin tesekkurler... Talep ettigim seyi basariyla hazirlamissiniz... Yalniz yaptiginiz ornekte F14 hucresi sabit kalmis; oysa ki benim istegim F14 hucresinin degiskenlere bagli olarak degismesi... Yani taksit sayisi 11 yerine 5 oldugunda oradaki hucre F14 degil, F8 olacak... Bunun icin de yazdiginiz koda bir duzeltme gerekecek sanirim... Bunu yapabilir misiniz acaba? Tekrar tesekkurler...

Saygilarimla,

NOT:
Yardimci olabilecek baska arkadaslarin desteklerine de acigiz...

 

[Merhum İdris SERDAR]

Forumda yaptigim aramalarda benzer bir iki soru ve cevabini buldum ama ben Hedef Ara ile yaptigim uygulamayi tamamen otomatik olarak calistirmak istiyorum. Bunun icin bir makro veya kullanici tanimli fonksiyon yazilabilir mi? Konuyu detayli anlatan excel dosyasi ilisikte sunulmustur. Yardimlariniz icin simdiden tesekkur ederim.

Saygilarimla,

Goal Seek - Hedef Ara'nın macro ile yapılmış bir dosyayı aşağıdaki linkte bulabilirsiniz.

Bunu kendi dosyanıza uyarlamanız mümkün.

http://www.excel.web.tr/showthread.php?t=18634


...

 

[Turk]

Sayin yurttas,

Goal Seek - Hedef Ara'nın macro ile yapılmış bir dosyayı aşağıdaki linkte bulabilirsiniz.

Bunu kendi dosyanıza uyarlamanız mümkün.

http://www.excel.web.tr/showthread.php?t=18634


...

Yukaridaki mesajinizda belirttiginiz linki daha once incelemistim. Zaten Sayin tahh_74 bana sizin calismanizin benzeri bir uygulamayla yardimci oldu. Benim su anki sorunum aslinda bu islemi sartlara bagli olarak otomatik yaptiramamak. Yani asagidaki koda nasil bir ekleme ve duzeltme yaparsak bu islemi bir Command Button kullanmaksizin ve taksit sayisina bagli olarak degisen "by changing cell-Degisecek Hucre" kismi otomatikman bu taksit secenegine gore degissin.

Private Sub CommandButton1_Click()
Range("F14").GoalSeek goal:=Range("E1"), changingcell:=Range("D1")
End Sub

Bu kodda "Degisecek Hucre" F14 sabit; ben bu sabitin SN satırındaki son sıra numarasına göre değişmesini istiyorum. Yani SN 11'se F14, SN 5 ise F8 gibi. Bu degisken 60 taksitle sinirli kalacak. Umarim soylemek istedigim seyi daha acik bir ifadeyle anlatabilmisimdir. Yardimci olan ve olacak herkese tekrar tesekkurler.

Saygilarimla,

NOT:
Sayin tahh_74'un mesajinin ekindeki dosya uzerinde duzeltme yapabilirsiniz. Ayni dosyayi tekrar upload edip bilgi kirliligi yapmak istemedim.

 

[Korhan Ayhan]

Selamlar,

Dosyanızdaki kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton1_Click()
    SON = [A65536].End(3).Row
    Cells(SON + 1, 5).Formula = "=SUM(E3:E" & SON & ")"
    Cells(SON + 1, 6).Formula = "=SUM(F3:F" & SON & ")"
    Cells(SON + 1, 8).Formula = "=SUM(H3:H" & SON & ")"
    Cells(SON + 1, 9).Formula = "=SUM(I3:I" & SON & ")"
    Cells(SON + 1, 10).Formula = "=SUM(J3:J" & SON & ")"
    Cells(SON + 1, 12).Formula = "=SUM(L3:L" & SON & ")"
    Cells(SON + 1, 13).Formula = "=SUM(M3:M" & SON & ")"
    Cells(SON + 1, 14).Formula = "=SUM(N3:N" & SON & ")"
    Range("F" & SON + 1).GoalSeek Goal:=Range("E1"), ChangingCell:=Range("D1")
End Sub

 

[Turk]

Sayin COST_CONTROL,

Hazirlamis oldugunuz kod cok isime yaradi, tesekkur ederim. Fakat kucuk bir sorunum var. Eger ekte sunulan dosyayi incelerseniz, sorunumu daha detayli olarak gorebilirsiniz. Iyi calismalar dilerim.

Saygilarimla,

 

[Turk]

Soruyu tekrar sorup, mesaj kirliligi yaptigim icin ozur dilerim. Henuz cevap alamadigim icin tekrar sormak zorunda kaldim. Yukarida sunulan dosyada Sayin COST_CONTROL tarafindan hazirlanan kod kullanilmistir ve bu koda gore G sutununda, formullerin bittigi satira toplam alinmaktadir. Bu kod, eger G sutununda hatalar olursa problem cikartiyor. Yardimlarinizi bekliyorum. Simdiden tesekkurler.

Saygilarimla,

 

[eleganceesma]

bu uygulamadaki dosyaları göremiyorum eğer hala elinde olan varsa lütfen ekleyebilir mi? Hedef ara uygulamasını formül ile ya da en azından makro ile yapmak işimi çok kolaylaştıracak.

teşekkürler