Userform textbox içeriğini excel sheetdeki textbox a yazdırmak

[Daglaroglu]

selamlar,

userformdaki metin kutusundan sayfadaki hücreye veri yazdırabiliyorum ama sayfadaki metin kutusuna yazıdıramadım. nasıl bir kod kullanılmalı?

sheet1 deki text1 metin kutusuna userform daki Utext1 metin kutusu içeriğini yazdırmak için..

 

[Orion1]

Kodları kendinize göre uyarlayınız.

Sheets("Sayfa1").TextBox1.Text = TextBox1.Text

 

[Daglaroglu]

nerede hata yapıyorum ?

 

[Orion1]

Metin kutusu imiş.Ben textbox zannetmiştim.
Makro kaydet yöntemini kullanrak aşağıdaki düzenlemeyi yaparak kodu buldum.
Aslında sizde makro kaydet yöntemi ile kodu bulabilirdiniz.
Eğer makro kaydet yöntemini bilmiyorsanız öğrenmenizi tavsiye ederim.

Sheets("Sayfa1").Shapes("alfa").Select
Selection.Characters.Text = beta.Value
Range("C15").Select

 

[Daglaroglu]

çok teşekkürler,

textbox - metin kutusu aynı şey .. excel makrosunda makro kaydeti kullanıyorum ama user form da denemek hiç aklıma gelmemişti açıkçası. tekrar teşekkürler.

 

[Orion1]

çok teşekkürler,

textbox - metin kutusu aynı şey .. excel makrosunda makro kaydeti kullanıyorum ama user form da denemek hiç aklıma gelmemişti açıkçası. tekrar teşekkürler.

Ben denetim araç kutusundan eklenen TextBox'ı kastetmiştim.
Makro kaydet ile aşağıdaki kodları elde ettim.
Ondan sonrada küçük bir değişiklik yaparak commandbutona size yolladığım kodları yazdım.

Sub Makro1()
'
' Makro1 Makro
' Makro XYZ tarafından 12.05.2008 tarihinde kaydedildi.
'

'
    ActiveSheet.Shapes("alfa").Select
    Selection.Characters.Text = "DENEME"
    With Selection.Characters(Start:=1, Length:=6).Font
        .Name = "Arial Tur"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("E16").Select
End Sub