DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub dosyaolarakkaydet()
Application.ScreenUpdating = False
Sheets("sayfa1").[a1:f40].Copy Sheets("Sayfa2").[a1]
Sheets("Sayfa2").Copy
ActiveWorkbook.SaveAs Filename:="c:\müşteri\deneme.xls"
ActiveWorkbook.Close True
End Sub