İmlecin Bulunduğu Satıra Göre Hedef Ara

[baydeniro]

Merhaba Arkadaşlar
Hedef Ara uygulamasını aşağıdaki örnekteki gibi adresi tam belirli olmasının yerine İmlecin bulunduğu satırdaki verilere göre hesap yapması mümkün mü ?
Aşağıdaki örnekte 5.satırdaki verilere göe hedef bulacak. Aynı kodu 12. satırda çalıştırmak isteyince satıra göre veri seçmesini nasıl sağlayabiliriz.

Range("B5").GoalSeek Goal:=Range("D5"), ChangingCell:=Range("H5")

 

[ÖmerBey]

Merhaba, deneyiniz...

s = ActiveCell.Row
Range("B" & s).GoalSeek Goal:=Range("D" & s), ChangingCell:=Range("H" & s)

 

[baydeniro]

Merhaba, deneyiniz...

s = ActiveCell.Row
Range("B" & s).GoalSeek Goal:=Range("D" & s), ChangingCell:=Range("H" & s)

ÖmerBey üstadım çok çok teşekkür ediyorum. Sağlıcakla kalın

 

[Saban Sertkaya]

Alternatif olsun.
Sub GoalSeek()
Dim a As Long
a = InputBox("Satır Numarasını Giriniz")
Range("B" & a).GoalSeek Goal:=Range("D" & a), ChangingCell:=Range("H" & a)
End Sub

 

[ÖmerBey]

Rica ederim baydeniro,
İyi çalışmalar diliyorum...