Aktarım yeri belirleme!

[mtozer]

Yol Belirleme Sorunu.

Merhaba;
Ben aktarmıs olduğum txt dosyasını buton ile aynı kitap içerisinde farklı bir sayfaya aktarmak istiyorum. Orn: Com.butonum sayfa2 de ama ben aktarmak istedigim txt yi sayfa1 e atmak istiyorum.

iyi calismalar.

 

[Ferhat Pazarçevirdi]

Merhabalar

Şöyle bir kod işinizi görebilir. Deneyiniz.

Sub Aktarma()
With Sheets("Sayfa2").UsedRange
     Sheets("Sayfa1").Range("A1").Resize(.Rows.Count, .Columns.Count) = .Value
End With
End Sub

 

[mtozer]

Merhaba;
yapmak istediğim şey aslında şu sayfa1 de buluan Ac1:Ag15 hücresini silmek
butonum sayfa2 de
yukarda verdiğiniz formulle yapmaya calıştım ama yapamadım. Aktarma sorununu başka yol ile cözdüm.

iyi calismalar.

 

[Ferhat Pazarçevirdi]

yapmak istediğim şey aslında şu sayfa1 de buluan Ac1:Ag15 hücresini silmek
butonum sayfa2 de

Sayfa2'deki butonunuzun kodlarına; aşağıdaki satırları ilave ederseniz, belirttiğiniz alanı temizleyebilirsiniz.

Sheets("Sayfa1").Range("AC1:AG15").ClearContents