TextBox Hücreye 10x10 luk değer atma sorunu

[haya-ji]

Arkadaşlar ben şölye bir şey yapmak için uğraşıyorum.

Başka bir excel den aldığım 10x10 yanı A1 den J10 a kadar seçip kopyaladığım hücrelerdeki değerleri Hazırladığım Userformdaki bir TextBoxa yapıştırıp tamama bastığımda bu verileri gene A1 dan J10' a kadar başka bir çalışma sayfasına yapıştırsın istiyorum.
Ben uğraştım ancak yapıştırma işlemini sadece A1 hücresine yapıyor. Ben istiyorum ki A1'den J10'a kadar nasıl kopyalandıysa o şekilde yapıştırılsın istiyorum. Kullandığım komutu altta yazdım yardımlarınızı bekliyorum

Private Sub CommandButton1_Click()
Range("A1").Value = TextBox1.Value

End Sub

 

[Ömer]

Merhaba,

Sorunuzu destekleyen örnek bir dosya eklermisiniz.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

Spreadsheet nesnesi kullanılmıştır.

Sayfadan hücreleri seçip kopyalayın. Formu açın. Nesne üzerinde istediğiniz yere yapıştırın. Daha sonra sayfadan başka bir hücreye tıklayın ve form üzerindeki butona basın.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sayfa2.[a1:j10].Value = Sayfa1.[a1:j10].Value