Otomatik çalışma sayfası ekleme

Katılım
24 Nisan 2008
Mesajlar
2
Excel Vers. ve Dili
Excel 2003 English
Merhaba,
Bir çalışma kitabında yer alan bir tablonun, çalışma kitabı her açıldığında yeni bir çalışma sayfasına aktarılması ve bir önceki tabloda yer alan belirli hücrelerdeki bilgilerin silinip, tablonun yeniden kullanıma hazır hale gelmesi konusunda yardım rica ediyorum.
Aşağıdaki gibi bir macro ile yeni sayfa ekleniyor ve tablodaki istediğim hücreleri silebiliyorum. Fakat asıl sorun çalışma sayfaları arttıkça ortaya çıkıyor. Her yeni eklenen çalışma sayfasının en son sayfa olarak görüntülenmesi için ne yapabilirim.
Yardımlarınız için teşekkürler.

Sub Auto_Open()
'
' Auto_Open Macro
' Macro recorded 02/05/2008 by Ayhan Murat Özcan
'

'
Sheets("02.05.2008").Select
Sheets("02.05.2008").Copy After:=Sheets(50)
ActiveCell.Offset(-2, -8).Range("A1:I12").Select
Selection.ClearContents
ActiveCell.Range("A1:C1").Select
End Sub
 

Ayhan Ercan

Özel Üye
Katılım
10 Ağustos 2005
Mesajlar
1,573
Excel Vers. ve Dili
Microsoft 365- Türkçe
aşağıdaki gibi deneyiniz..

Kod:
Sheets("02.05.2008").Select
Sheets("02.05.2008").Copy [COLOR=red]After:=Sheets(Sheets.Count)[/COLOR]
ActiveCell.Offset(-2, -8).Range("A1:I12").Select
Selection.ClearContents
ActiveCell.Range("A1:C1").Select
End Sub
 
Katılım
24 Nisan 2008
Mesajlar
2
Excel Vers. ve Dili
Excel 2003 English
Çok Teşekkürler...

Ayhan Bey çok teşekkür ederim.
Sorun çözüldü.
 
Üst