Soru Tek Hücredeki Formülü Referans Alma

[makgoren]

Merhaba,

Bir hücredeki formülü referans alarak diğer hücrelerdeki formülleri buna göre güncellemek mümkün mü?

Örneğin
B2 hücresindeki formül =D2+F2+H2
C5, C8, C15 hücrelerine referans olarak B2 hücresindeki formülü alarak.
Bu formüle daha sonra +K2+L2 ilaveleri olduğunda diğer tüm hücrelerde değişmesini nasıl sağlayabilirim...
=D2+F2+H2+K2+L2

C5=D5+F5+H5+K5+L5
C15=D15+F15+H15+K15+L15
şeklinde...

 

[Korhan Ayhan]

Kullanıcı tanımlı fonksiyon (makro) kullanarak yapılabilir.

Aşağıdaki kodu boş bir modüle uygulayınız.

Option Explicit

Function FORMÜL_YAZ(Veri As Range, Eski_Satır_No As Long, Yeni_Satır_No As Long)
    Dim Formül_Metni As String
    Application.Volatile True
    Formül_Metni = Replace(Veri.Formula, Eski_Satır_No, Yeni_Satır_No)
    FORMÜL_YAZ = Evaluate(Formül_Metni)
End Function

B6 hücresine aşağııdaki gibi uygulayıp deneyiniz.

=FORMÜL_YAZ($B$2;2;ROW())

 

[makgoren]

Teşekkürler Sy Korhan Ayhan,

Sanırım makrosuz yapılamıyor.

 

[Korhan Ayhan]

Şuan için aklıma başka yöntem gelmedi. Belki diğer arkadaşlarımız farklı bir bakış açısı getirebilirler.

 

[Ömer]

Merhaba,

Ad tanımlamadan herhangi bir ad vererek aşağıdaki formülü tanımlayın. (SONUC adını vererek tanımladığınızı varsaydım.)

=DEĞERBİÇ(YERİNEKOY(FORMÜLMETNİ(Sayfa1!$B$2);"2";SATIR()))

Daha sonra istediğiniz hücreye;

=SONUC yazarsanız istediğiniz olacaktır.

Not: Dosyanızı "makro içerebilen excel dosyası" olarak kaydediniz.

 

[makgoren]

Teşekkürler Sy Ömer,

excel vizyonum sizler sayesinde gelişiyor...