İsimlendirilmiş formülü başka bir formüle dahil etme

[kazim_ahmet_hasim]

Merhaba arkadaşlar;

FormulaLocal 'da aşağıda karşılaştığım sorunu nasıl çözebilirim acaba?

Sub Makro1

Dim k As Range, epsilom_alt As Range
Dim y As Integer


y=TextBox1.Value

Set k=Cells(2,1)

Set epsilom_alt=Cells(2,2)

epsilom_alt.FormulaLocal="=2" & y

k.FormulaLocal= "=-0.003+" & epsilom_alt.FormulaLocal

End Sub

Tahmin edeceğiniz gibi burada epsilom_alt.FormulaLocal="=2" & y yazdığımda Cells(2,2) hücresinde =2y şeklinde formül yazılmış olacak makro çalıştırıldığında

Ayrıca; Cells(2,1) hücresinde =-0.003+2y yazılmış görmek istiyorum diyelim makro çalışmaya devam ettiğinde

O zaman önce kodda Cells(2,1) hücresini isimlendirelim

Set k=Cells(2,1)

Sonra da

k.FormulaLocal= "=-0.003+" & epsilom_alt.FormulaLocal

yazalım

Bu takdirde;

(2,1) hücresinde bilgisayar şöyle birşey görecekti yanlış haliyle çalışabilseydi makro

=-0.003+ =2y


tabii ki çalışmaz böyle haklı bilgisayar

Peki ben bu = işaretini nasıl yok edebilirim k.FormulaLocalda veya hücrelerin formüllerine isim verdiğimde bu formülleri başka formüllere dahil etmenin daha şık bir çözümü var mı? Diyeceksiniz illa hücrelere neden formüller atamaya çalışıyorsun programın içerisinde hesaplattır ama ilerde kullanmayı düşündüğüm bir nedenle bu yönde bir çalışma içine girdim. Yardımlarınız için teşekkürler ve iyi çalışmalar dilerim. Saygılarımla

 

[hamitcan]

Sorunuzu çok karışık anlatmışsınız. Daha anlaşılır yazın.

 

[kazim_ahmet_hasim]

Arkadaşlar soruyu daha anlaşılır hale getirmeye çalıştım ama anlamadığınız bir yer olursa açıklamaya çalışırım; yardımlarınızı bekliyorum.

Saygılarımla;

 

[Korhan Ayhan]

Selamlar,

End Sub satırından önceki satırı aşağıdaki şekilde değiştirip denermisiniz.

k.Formula = "=-0.003+" & Replace(epsilom_alt.FormulaLocal, "=", "")

 

[kazim_ahmet_hasim]

Korhan Bey çok teşekkür ederim verdiğiniz şekilde sorunu hallettim. İyi ki siz ve sizin gibi yardımsever insanlardan oluşan Excel Forum var. İyi çalışmalar dilerim