DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
ad = [sayfa1!b6]
[f6:k24].Copy
Workbooks.Add
ActiveWorkbook.Sheets(1).[f6].Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.SaveAs Filename:="C:\deneme\" & ad & ".xls"
ActiveWorkbook.Close
End Sub