Sütün Genişliklerini Kopyalama

[mehmett]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ad = [sayfa1!b6]
Columns("C:M").Select
Selection.Copy
Workbooks.Add
ActiveWorkbook.Sheets(1).[c1].Select
Selection.PasteSpecial
ActiveWorkbook.SaveAs Filename:="C:\deneme\" & ad & ".xls"
ActiveWorkbook.Close
End Sub

 

[ttrance]

hocam gec cevap verdim kusura bakma ellerin ve aklın dert gormesin istedigim buydu sagolasın..