Makro ile yeni sayfa oluşturmak

[guslua]

Merhaba,

hazırlamış olduğum bir form içindeki bir sayfayı makro ile taşı ve kopyala yaparak yeni bir sayfaya atmak istiyorum. yardımcı olabilecek bir arkadaş var mıdır.
Teşekkürler

 

[hoguz2]

Sorunuz karmasik. konuya makro ile yeni sayfa olusturmak yazmissiniz bunun cevabı

Sub yeni()
Worksheets.Add
End Sub

bu koddur.

diger soruda form icinde sayfa kafa karistiriyor. ama soyle sordugunuzu dusunerek cevaplayayım.

veri adindaki sayfamda bulunan a1 hucresinden baslayan tabloyu baska sayfa olusturup yeni olusturdugum sayfaya nasil kopyalarsiniz.

sub kopyala_yapistir ()
Application.ScreenUpdating = False
Worksheets.Add
ActiveSheet.Name = "Rapor"
Sheets("veri").Select
Range("A1").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("Rapor").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:I").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

 

[yNsr43]

Sorunuz karmasik. konuya makro ile yeni sayfa olusturmak yazmissiniz bunun cevabı

Sub yeni()
Worksheets.Add
End Sub

bu koddur.

diger soruda form icinde sayfa kafa karistiriyor. ama soyle sordugunuzu dusunerek cevaplayayım.

veri adindaki sayfamda bulunan a1 hucresinden baslayan tabloyu baska sayfa olusturup yeni olusturdugum sayfaya nasil kopyalarsiniz.

sub kopyala_yapistir ()
Application.ScreenUpdating = False
Worksheets.Add
ActiveSheet.Name = "Rapor"
Sheets("veri").Select
Range("A1").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("Rapor").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:I").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

hocam klasördeki bütün excel dosyalarını açıp farkli kaydetmeyi nasıl yapabilirz.

 

[guslua]

Sorunuz karmasik. konuya makro ile yeni sayfa olusturmak yazmissiniz bunun cevabı

Sub yeni()
Worksheets.Add
End Sub

bu koddur.

diger soruda form icinde sayfa kafa karistiriyor. ama soyle sordugunuzu dusunerek cevaplayayım.

veri adindaki sayfamda bulunan a1 hucresinden baslayan tabloyu baska sayfa olusturup yeni olusturdugum sayfaya nasil kopyalarsiniz.

sub kopyala_yapistir ()
Application.ScreenUpdating = False
Worksheets.Add
ActiveSheet.Name = "Rapor"
Sheets("veri").Select
Range("A1").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("Rapor").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:I").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

Merhaba,
Sanırım tam izah edemedim. gönderdiğim dosyayı açabildiyseniz AX_DIS ve AX_IC sekmelerini yeni bir excel sayfası olarak açmak. butona tıkladığımızda AX_DIS yeni bir excel olarak gelsin ( içeriği ile birlikte )