Kapalı dosyaya kayıt

[ASLAN7410]

Merhaba hayırlı geceler.

Aşağıdaki makro kaydet yöntemi ile oluşturulmuş bir kod, bu kod çalışıyor, ancak ARŞİV isimli dosyayı açıp kaydedip kapattığı için ve veri çoğaldığından dolayı işlem çok uzun sürüyor.

Forumda kapalı dosyaya kayıt ile ilgili olarak araştırdım, ADO ile yapılmış bir çok örnek buldum, bunlarda userform ile yapılmış, aşağıdaki kodlara göre uyarlayamadım.

Aşağıdaki kodun yaptığı işi, kapalı dosyaya kaydetme işini daha hızlı yapan kod lazım.

Yardımcı olur musunuz?

Sub Kaydet()
    Sheets("ASLAN").Select
    Range("AB5:AB12").Copy

    ChDir "D:\EVRAKLAR\FORMLAR"
    Workbooks.Open Filename:="D:\EVRAKLAR\FORMLAR\ARŞİV.xlsx"
    Sheets("Sayfa1").Select
    Range("b1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("a1").Select
    Selection.PasteSpecial , Paste:=xlValues, Operation:=xlNone, Transpose:=True
    Sheets("Sayfa1").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close

    Sheets("ASLAN").Select
    Range("F12").Select
    MsgBox "Listeye Eklendi."

End Sub

 

[ASLAN7410]

Herkese hayırlı Cumalar

Arkadaslar konu güncel.

 

[Zeki Gürsoy]

Bu haliyle yardım almanız zor.

Örnek dosya ekleyin.

 

[ASLAN7410]

Arkadaşlar konu güncel.

 

[ASLAN7410]

Sayın Zeki Bey, ellerinize sağlık tam istediğim gibi oldu, Allah razı olsun, sizi yordum kusura bakmayın.

Hayırlı çalışmalar hayırlı geceler diliyorum.