istediğim sütünları seçilip sayfa2ye copyalanması macr

[subutayı]

başarılarınızın devamı dileğiyle,
excelde sayfa birde oluşturulmuş bir formum var. ben sayfa1 den A1,B1,C1 ve j1 sütunlarının dolu olan satırına kadar seçip sayfa2 de A20 den başlayarak yapıştırmasını istiyorum.
saygılar

 

[TRABLUS]

Kopyalamak istediğiniz hücreleri seçin ctrl + c tuşlarına basın sayfa2 de a20 hücresini tıklayın ve ctrl+V yapın.

 

[keniken]

Aşağıdaki kodu VBA sayfasında bi modül açarak kopyalayıp çalıştırın..

Sub kopya()
    Sheets("Sheet1").Select
    Range("A1").Select
    Selection.CurrentRegion.Copy
    Sheets("Sheet2").Select
    Range("A20").Select
    Selection.PasteSpecial Paste:=xlValues
    Sheets("Sheet1").Select
    Range("J1").Select
    Selection.CurrentRegion.Copy
    Sheets("Sheet2").Select
    Range("J20").Select
    Selection.PasteSpecial Paste:=xlValues
End Sub

Pardon, J1' i görmemişim