Makro ile Hedef Ara

[echoes35]

merhaba. yaptığım küçük excel programında sormak istediğim birşey var. daha önceki konuları araştırdım ama çözemedim bir türlü.
en basite indirgeyerek örnek bi excel ekledim. yardımcı olursanız sevinirim

 

[hımmmmmmmm]

öyle bir soru sormuşsunki herkes dalga geçiyosun sanmış...
a1 hücresine d1-c1 yaz

böylece a1+c1 d1 olur...

 

[echoes35]

biraz garip sormuşum gereçkten. ekte ekledim. asıl sormak istediğim goalseek fonksiyounun otomatik yada hücre değiştiğinde kullanabilmek. düğme ile basıldığında oluyor fakat hücre değiştiğinde yapamadım.

 

[hımmmmmmmm]

slm

benim bildiğim goolseek macrosunda ;

bu kısım formül ister

Range("formül olan hücre").GoalSeek

bu kısım ise, formül sonucu ilaveten, farklı bir sonuç bulmak için sayısal değer ister.

Goal:=[değer hücresi],

bu kısım ise hesaplama sonucu elde edilen diğer değerlerin yazılacağı hücredir...

ChangingCell:=Range("değişmiş hücre")

mesela:
c1 hücresinde 30
d1 hücresinde 5
a1 hücresinde =d1*c1 formülü olsun.. hücrede 150 görünür

150 değilde sonucun 300 olmasını istedimde 300 rakamını farklı bir yerden girmem gerek...300 değerini k1 den girelim...
önce hücrelerden c1 in değişmesini istiyorsam...

Range("a1").GoalSeek Goal:=[k1], ChangingCell:=Range("c1")

sonuç 10 yazar
hücrelerden d1 in değişmesini istiyorsam...

Range("a1").GoalSeek Goal:=[k1], ChangingCell:=Range("d1")

sonuç 60 yazar

senin sayfada formül bulamadım...

 

[jeoferkan]

merhabalar hayırlı sabahlar. Hedef ara komutunu birden fazla hücre için yapabilir miyiz?. örnek dosya ekledim, daha net anlaşılacaktır. ilgi ve alakanıza teşekkür ederim.