Range komutu

[tirvana]

-----------
Private Sub CommandButton1_Click()
' Range("M6").GoalSeek Goal:=1, ChangingCell:=Range("L6")
Range("M6:M56").GoalSeek Goal:=1, ChangingCell:=Range("L6:L56")
End Sub
--------------
tek hücre halinde çalışan komutu çok satırlı hale getirmeye çalışıyorum fakat çalışmıyor. Acaba nerede yanlış yapıyorum?

Yardımlarınız için Teşekkürler

 

[usubaykan]

Merhaba;

Örnek dosya ekleseydiniz yardımcı olmak isterdim. Aşağıdaki linki inceleyiniz belki yardımcı olur.
http://www.excel.web.tr/f48/goal-seek-hedef-ara-uygulamasini-makro-ile-yapmak-t29281.html

 

[tirvana]

hedef arayı tabloda kullanmak

basit anlatım için örnek tablo koydum
d sütunu a b c nin toplamıdır.
d sütünu sıfır olması için a ne olmalıdır.


tek satır için hedef ara fonksiyonu yapıyor ama çok satır için nasıl bir döngü kurulmalı
teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Sub Makro1()
Dim i As Long, sat As Long
Sheets("Sayfa1").Select
sat = Cells(65536, "B").End(xlUp).Row
For i = 4 To sat
    Cells(i, "B").Value = Cells(i, "B").Value - Cells(i, "E").Value
Next
MsgBox "işlem tammadır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[tirvana]

teşekkürler...
sizin verdiğiniz örnekteki for next döngüsünü kullanarak HEDEF ARA fonksiyonunu çalıştırdım.

Sub Makro1()
Dim i As Long, sat As Long
Sheets("Sayfa1").Select
sat = Cells(65536, "B").End(xlUp).Row
For i = 4 To sat
Range("e" & i).GoalSeek Goal:=0, ChangingCell:=Range("b" & i)
Next
End Sub