Hedef Aramayı Kullanma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Kod bilgi sahibi olmayan Excel kullanıcıları için nasıl bir sonuç üreteceğine dair fikir vermeyecektir.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub GoalSeekVBA()
Dim Target As Long
On Error GoTo Errorhandler
Target = InputBox("Gerekli bir değer girin", "Değer Girişi")
Worksheets("Goal_Seek").Activate
With ActiveSheet.Range("C7")
.GoalSeek_ Goal:=Target, ChangingCell:=Range("C2")
End With
Exit Sub
Errorhandler: MsgBox ("Üzgünüm, değer geçerli değil!")
End SubAçıklama
Hedef arama özelliği için bu kodu kullanabilirsiniz. Lakin kodu kullanmadan önce, Excel'in Hedef Ara özelliği hakkında fikir sahibi olmanız yararlı olacaktır.Kod bilgi sahibi olmayan Excel kullanıcıları için nasıl bir sonuç üreteceğine dair fikir vermeyecektir.
Faydalanılması temennisiyle
