Aralık Boyunca Goal Seek Hedef Arama

Goal seek kullanımı ile birden fazla aralığın değişmesi gereken bir çalışmamız oldu, bazi dongusel basvurulara maruz kalmamak adina vba ile goal seek kullanmak gerekti.

Bunu cozmek icin bir dongu kullandim aslinda ilk defa goal seek islevini vba ile kullaniyorum ve bayaa etkili oldugunu dusunuyorum. Ben bir dongu ile calistirdim, asagidaki kodlarda da 1 ile 10 arasi satirlarda islem yapan bir kod ornegimiz var, inceleyiniz.

Sub goalSeek()
Dim i As Integer
For i = 1 To 10
Range("n" & i).goalSeek Goal:=Range("o" & i).Value, ChangingCell:=Range("j" & i)
Next
End Sub

Koddaki “n” araligi formul kullandiginiz sutunu temsil etmektedir, “o” ise formulunuz olan “n” satirlarinin olmasini istediginiz degerleri ifade etmektedir. “j” ise bu islemlerin gerceklesebilmesi icin gerekli olan degisim degerlerinin sutununu temsil etmektedir.

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


4 + 8 =