Click kullanmadan textboxdan hücreye veri almak

[bebar]

Merhaba,
Aşağıdaki gibi bir kod deniyorum ama hep hata alıyorum yardımcı olursanız memnun olurum.

Sub ekle()
Range("A11").Value = TextBox1.Value
TextBox1.Value = ""
End Sub

Teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Nasıl bir hata alıyorsunuz? Hata ayrıntısını da yazın.

 

[bebar]

Run time error '424'
Object required

 

[Zeki Gürsoy]

Nesne gerekli uyarısına göre sanırım Textbox nesnesi sayfa üzerinde. Bu durumda aşağıdaki gibi kullanabiliriz...

Sub ekle()
Range("A11") = ActiveSheet.TextBox1
ActiveSheet.TextBox1 = ""
End Sub

 

[bebar]

Çok teşekkür ederim.