Xls uzantılı bir dosya oluşturcam aşagıdaki gibi.
FAkat benım istedigim şey şu anki çalıştıgım sayfada yeni bir dosya oluştururken;
Program sadece a1:g45 arasındaki hücreleri kopyalayıp yeni çalışma kitabındaki a1:G45'E yapıştırsın.
Ayrıca sayfadaki makro oluştururken kullandıgım şekiller dikdörtgenler silinsin vs.
Aşagıdaki gibi oluşturdugumda sayfanın tamamı kopyalanıyor?
Sub Oval5_Tıklat()
Set S1 = Sheets("Sayfa1")
yol3 = ThisWorkbook.Path
isim3 = S1.Range("A57").Value & "-" & S1.Range("A58")
ActiveSheet.Copy
ActiveSheet.DrawingObjects.Delete
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=yol3 & "\" & isim3 & ".xls", FileFormat:=xlExcel8
Range("A1").Select
ActiveWorkbook.Close
Set S1 = Nothing
End Sub
FAkat benım istedigim şey şu anki çalıştıgım sayfada yeni bir dosya oluştururken;
Program sadece a1:g45 arasındaki hücreleri kopyalayıp yeni çalışma kitabındaki a1:G45'E yapıştırsın.
Ayrıca sayfadaki makro oluştururken kullandıgım şekiller dikdörtgenler silinsin vs.
Aşagıdaki gibi oluşturdugumda sayfanın tamamı kopyalanıyor?
Sub Oval5_Tıklat()
Set S1 = Sheets("Sayfa1")
yol3 = ThisWorkbook.Path
isim3 = S1.Range("A57").Value & "-" & S1.Range("A58")
ActiveSheet.Copy
ActiveSheet.DrawingObjects.Delete
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=yol3 & "\" & isim3 & ".xls", FileFormat:=xlExcel8
Range("A1").Select
ActiveWorkbook.Close
Set S1 = Nothing
End Sub