VBA ile hücreye formül atama

[jimihendrix]

Merhabalar,

VBA ile herhangi bir hücreye formül atamak için yardım istiyorum.

Range("G" & son).Formula = ""=PLATO|DDE!"" & stockstockbuy.Text & "".SONFIYAT""

şeklinde yazıyorum ama hata veriyor.

Şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Öncelikle foruma hoşgeldiniz.
Acaba formülü Vba ile değil de elle yazsanız formülünüz nasıl olurdu?

 

[jimihendrix]

Merhaba,
Öncelikle foruma hoşgeldiniz.
Acaba formülü Vba ile değil de elle yazsanız formülünüz nasıl olurdu?

Teşekkür ederim.
Bunu Userform ile yazdırmak istiyorum. Bu yüzden sordum.

 

[ÖmerBey]

Yazmaya çalıştığınız formülü (""=PLATO|DDE!"" & stockstockbuy.Text & "".SONFIYAT"" ) anlamlandırmadığım için sormuştum.
Baştaki sayfa ismi ama yardımcı olabilmek için sonuna ne yazmaya çalıştığınızı anlamaya çalışıyorum...

 

[jimihendrix]

Yazmaya çalıştığınız formülü (""=PLATO|DDE!"" & stockstockbuy.Text & "".SONFIYAT"" ) anlamlandırmadığım için sormuştum.
Baştaki sayfa ismi ama yardımcı olabilmek için sonuna ne yazmaya çalıştığınızı anlamaya çalışıyorum...

Aslında bu dışarıdan veri alınmasına yarayan bir formül. İdeal borsa programından hissenin son fiyatını alıyor. Ortadaki de hissenin kodu.

 

[ÖmerBey]

Maalesef nasıl bir çözüm istediğinizi anlayamıyorum.
Ben yardımcı olamayacağım, konu hakkında bilgi sahibi olan bir arkadaş yardımcı olabilir.
İyi çalışmalar...

 

[jimihendrix]

Maalesef nasıl bir çözüm istediğinizi anlayamıyorum.
Ben yardımcı olamayacağım, konu hakkında bilgi sahibi olan bir arkadaş yardımcı olabilir.
İyi çalışmalar...

Aslında sorum basit Hücre içinde (=PLATO|DDE!THYAO.SONFIYAT) şeklinde olduğunda THYAO hissesinin son fiyatını sürekli güncelleyen bir formül bu. Aynısını userformdan comboboxta seçilen hisse ismine göre ilgili hücreye formül olarak nasıl yazacağımı bulamadım. Yine de teşekkür ederim.

 

[ÖmerBey]

Eğer =PLATO|DDE!THYAO.SONFIYAT formülü çalışıyorsa Range("G" & son).Formula = "=PLATO|DDE!" & stockstockbuy.Text & ".SONFIYAT" şeklinde ya da Range("G" & son).FormulaLocal = "=PLATO|DDE!" & stockstockbuy.Text & ".SONFIYAT" şeklinde deneyiniz.
Umarım çalışır.
İyi çalaışmalar...

 

[jimihendrix]

Eğer =PLATO|DDE!THYAO.SONFIYAT formülü çalışıyorsa Range("G" & son).Formula = "=PLATO|DDE!" & stockstockbuy.Text & ".SONFIYAT" şeklinde ya da Range("G" & son).FormulaLocal = "=PLATO|DDE!" & stockstockbuy.Text & ".SONFIYAT" şeklinde deneyiniz.
Umarım çalışır.
İyi çalaışmalar...

Local olan çalıştı çok teşekkür ederim.