Çözüldü Formül yazısına eşittir eklemek

[k0081]

Merhaba arkadaşlar;
---------------------------------------------------------------

formul = Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0)


Range("M" & iSatir).Formula = " =" & Trim(formul)


-----------------------------------------------------------------


formülüme " =" ekliyorum . Ancak hücrede hesaplama yapmıyor. "=" bu şekilde düzeltiğimde ise runtime error 1004 ü veriyor.

bunu nasıl düzeltebilirim ?

yardımcı arkadaşa şimdiden teşekkürler.

 

[recepkull]

Range("M" & iSatir).Formula = Trim(formul)
şeklinde denediniz mi ?

 

[k0081]

denedim.

hücreye ; bu şekilde yazıp kalıyor. '((1 + 3,34) / 2) * 2,34 * 34,4

 

[Korhan Ayhan]

Aşağıdaki ifade tam olarak ne sonuç veriyor.

formul = Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0)

 

[k0081]

Worksheet_change kısmında 1 dediğimde;

FormuzYaz isimli alt programı çağırıyorum. Bu kod satırı da orada -> : formul = Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0)

formul.mp4 dosyasını indir - download

formul.mp4 dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Haluk]

formul = Replace(Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0), ",", ".")
Range("M" & iSatir).Formula = Evaluate(formul)

.

 

[k0081]

@Haluk

Hocam teşekkürler. Ancak bu şekilde değil. Hücre içinde işlemler; yani rakamlar ve işaretler olmalıdır.

**************************************

formul = Replace(Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0), ",", ".")
Range("M" & iSatir).Formula = "=" & (formul)


Kodu değiştirince, oldu. Çok teşekkür ediyorum Ağabey.