belirli sütunu farklı kaydet

[sevensuleyman]

merhaba ; I,J,K,L sütunlarını farklı excele buton yardımı ile kaydetmek istiyorum. aşağıdaki kodu nasıl düzenlemem gerekir.

Sheets("YENİ ESKİ").Select.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "YENİ ESKİ TR GÜNCELLEME" & ".xlsx", 51
ActiveWorkbook.Close
Application.DisplayAlerts = True

MsgBox "Aktarım Bitti.", vbInformation

 

[YUSUF44]

Aşağıdaki makroyu deneyin:

Sub kopya()
Sheets("YENİ ESKİ").Range("I:L").Copy
Workbooks.Add
Application.DisplayAlerts = False
ActiveSheet.Paste
ActiveWorkbook.SaveAs ThisWorkbook.Path & Application.PathSeparator & "YENİ ESKİ TR GÜNCELLEME" & ".xlsx", 51
ActiveWorkbook.Close
Application.DisplayAlerts = True

MsgBox "Aktarım Bitti.", vbInformation
End Sub