Formül sonucunu metin kutusuna yazdırma

[hknylcn]

Merhaba ekteki örnekte görüleceği üzere a1 hücresindeki formül sonucunu düğme yardımıyla metin kutusuna yazdırmak istiyorum.Yardımcı olabilir misiniz? Makro kaydet ile denedim ancak ikinci kez çalıştıramadım. Hatta çok zor değilse yine metin kutusuna yazdığı içeriği ikinci bir düğme ile de ismini a2 hücresinden alarak word dosyası olarak istediğim bir yere kaydedebilir mi ?

 

[suleyman242]

Merhaba ekteki örnekte görüleceği üzere a1 hücresindeki formül sonucunu düğme yardımıyla metin kutusuna yazdırmak istiyorum.Yardımcı olabilir misiniz? Makro kaydet ile denedim ancak ikinci kez çalıştıramadım. Hatta çok zor değilse yine metin kutusuna yazdığı içeriği ikinci bir düğme ile de ismini a2 hücresinden alarak word dosyası olarak istediğim bir yere kaydedebilir mi ?

    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = [COLOR="Blue"][B]"12acb6854 "[/B][/COLOR]

Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = [COLOR="Red"][B][A1].Text[/B][/COLOR]

makro kaydet yardımı ile yapınca oanki değeri alıyor; kodda mavi ile belirttiğim kısmı kırmızı yazdığım şekilde düzelt. kolay gelsin

 

[SadiSerdari]

aşağıdaki yöntemi de deneyebilirsiniz

Worksheets("Sayfa1").Shapes.Range(Array("TextBox 1")).TextFrame.Characters.Text = [A1].Text

ya da

ActiveSheet.Shapes.Range(Array("TextBox 1")).TextFrame.Characters.Text = [A1].Text

 

[hknylcn]

Teşekkürler metin kutusu işini hallettim worde nasıl atarız peki ?

 

[hknylcn]

Teşekkürler metin kutusu işini

ActiveSheet.Shapes("Metin Kutusu 2").Select
Selection.Characters.Text = [c3]

ile hallettim worde nasıl atarız peki ?