Hedef Ara Komutunu makroya çevirme

[bulentkars]

Arkadaşlar Merhaba

Ekteki çalışmada Hedef Ara Komutu ile makro yaptım fakat makroyu çalıştırdığımda sadece G2 Satırında çalıştırabiliyorum.Döngüleri bilemediğimden makroyu nasıl G2:G Arasında çalıştırabilirim.Bu konuda yardımcı olursanız Sevinirim.

 

[Kemal Demir]

Merhaba,

Donguye bağlanmıs sekli(sorunuzda kodu calistirmadım)

For c = 2 To [a65536].End(3).Row
    Range("G" & c).Select
    Range("H" & c).GoalSeek Goal:=Range("J" & c).Value, ChangingCell:=Range("G" & c)
Next

 

[bulentkars]

Kemal Bey Merhaba

İlgiliniz için teşekkür ederim fakat çalışmıyor.

 

[Kemal Demir]

Merhaba,

Tam olarak ne yapmak istediğinizi açıklaya bilirmisiniz?

Sorunuz üzerinden gidelim.

 

[bulentkars]

Ekteki tabloda veriler Var Hedef ara ile G2 satırında sonuç aldım onuda makroya uyarladım fakat bu makronun her satırda ayrı çalışmasını istiyorum.Yani örnekte benim yaptım G2 Satırında çalışıyor.benim istediğim bu makro g2:g arasında çalışssın istiyorum.

 

[Kemal Demir]

Merhaba,

Sorunuzu eksik (yanlıs cevaplamısım) .Aşagıdaki kod işinizi görecektir.

For x = 2 To 4
    Range("G" & x).Select
    Range("H" & x).GoalSeek Goal:=Range("J1").Value, ChangingCell:=Range("G" & x)
Next

 

[bulentkars]

Açıklmalar ekli dosyada

 

[bulentkars]

Çok Teşekkür ederim.Emeğinize Sağlık