Verileri kopyalamadan getirme

[Galus]

Sayfa1 deki sütun A, B, C, D, E , F, G, H, I, J, K, ve L deki verileri " Copy ve PasteSpecial Paste:=xlPasteValues " ile Sayfa2 ye aktarıp üzerinde işlem yaptırtıyorum. Sayfa1 de veri çok olduğundan Excel çok düşünüyor, bahsi geçen sütunlar copy modunda kalıyor. Verileri getirebileceğim copy/paste yönteminden başka bir yol veya kod var mı?

Saygılar..

 

[Necdet]

Merhaba

Sorunuzu tam olarak anlamadım ama ekteki örnek işinizi görür mü?

Public Sub Aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("A1:B65536").ClearContents
For i = 1 To s1.[A65536].End(3).Row
    s2.Cells(i, "A") = s1.Cells(i, "A")
    s2.Cells(i, "B") = s1.Cells(i, "B")
Next i
End Sub

 

[isfa5878]

Private Sub CommandButton1_Click()
Sheets("Sayfa2").Range("a1:L10000").Value = Sheets("Sayfa1").Range("a1:L10000").Value
End Sub

veya (formül varsa)

Private Sub CommandButton1_Click()

Sheets("Sayfa2").Delete

ActiveWorkbook.Sheets("Sayfa1").Copy before:=Sheets("Sayfa1")
ActiveSheet.Name = "Sayfa2"
End Sub

 

[Galus]

Sayın Necdet_Yesertener ve Sayın isfa5878 ilgilerinize, bilgilendirmelerinize ve emeklerinize teşekkürler.

Saygılarımla...