Copy. Paste

[vivident]

"Copy.Paste" dosyasında "AAA" sayfasının "B6 : D15" hücresini kopyalayarak, yeni bir çalışma kitabı açarak "BBB" sayfası oluşturarak, "BBB" sayfasının "B10" hücresine verileri yapıştırarak, dosyayı kapattırmak istiyorum. Daha sonrada "AAA" sayfasındaki "B6 : D15" hücrelerinin silinmesi

Herşeyi yapıyorum, sadece bir türlü kopyalama, yapıştırma işlemi olmuyor. Active dosyalar arasındamı problem var. Çözemedim

Sub aktar()
Sheets("AAA").Range("B6:D15").Copy

Workbooks.Add
ActiveSheet.Name = "BBB"
'ActiveSheet.Range("B10").Paste

ActiveWorkbook.Close True, Filename:="d:\LocalData\" & Environ("username") & "\Desktop/yeni.xlsx"
Sheets("AAA").Range("B6:D15").ClearContents

End Sub

 

[merakli_72]

Selam;
Aşağıdaki düzeltmeyi yapınız

[B10].Select
ActiveSheet.Paste

 

[Korhan Ayhan]

Deneyiniz.

Sub Aktar()
    Sheets("AAA").Range("B6:D15").Copy
    
    Workbooks.Add
    ActiveSheet.Name = "BBB"
    ActiveSheet.Range("B10").PasteSpecial
    
    Application.DisplayAlerts = False
    ActiveWorkbook.Close True, Filename:="d:\LocalData\" & Environ("username") & "\Desktop\yeni.xlsx"
    Application.DisplayAlerts = True
    
    Sheets("AAA").Range("B6:D15").ClearContents
End Sub

 

[vivident]

Teşekkür ediyorum
Sağolun