select kullanmadan copy-paste

[taner3106]

macroda copy-paste icin select kullanmak zorunda kaliyorum. copy konusunda select kullanmadan yaptirabiliyorum ama paste edecegim yerin kodunda mutlaka select kullanmak zorunda kaliyorum. acaba select'i kullanmadan paste edebilecegim bir kod varmi.
tesekkür ederim.

 

[Seyit Tiken]

Bu kod A1 değerini, değer olarak C1 hücresine yapıştırıyor.

Sub Düğme1_Tıklat()
[C1].Value = [A1].Value
End Sub

 

[taner3106]

ilginiz icin tskler sayin Seyit Tiken ama benim istedigim bu degil kopyaladigim bölge formüller iceriyor. ve de kopyaladigim ve yapistirdigim bölge sabit degil degisken.

 

[hamitcan]

Aşağıdaki şekilde deneyin

Worksheets(kaynak sayfa adı).Range(neyi).Copy _
Destination:=Worksheets(hedef sayfa adı).Range(nereye)

 

[omerceri]

Worksheets("Sayfa1").Range("A1:A5").Copy
ActiveSheet.Paste Destination:=Worksheets("Sayfa2").Range("A1:A5")
kusura bakmayın Hamitcan cevaplamış

 

[taner3106]

Tesekkür ederim Sayin hamitcan bu tam aradigim seydi.
Sayin omerceri sizin ilginiz icin de tesekkürler.

 

[Seyit Tiken]

Bu kodu bir deneyin.

Sub Düğme1_Tıklat()
Range("A1").Copy
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub