belirli sütunu farklı kaydet

sevensuleyman

Altın Üye
Katılım
9 Kasım 2012
Mesajlar
78
Excel Vers. ve Dili
office 2010
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
10,378
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki makroyu deneyin:

Kod:
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
 
Üst