YENİ SAYFA

[arslan]

YENÝ SAYFA

mevcut sayfanın A15 aralığını kopyalasın textboks'tan verdiğim
bir isimle yeni sayfa açsın ve A15 e yapıştırsın


Yardımlarınız için sağolun.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:3b14fb6080]Private Sub CommandButton1_Click()
[a1:d5].Copy
Worksheets.Add.Name = TextBox1.Value
[a1].PasteSpecial
Application.CutCopyMode = False
End Sub
[/vb:1:3b14fb6080]

 

[arslan]

Eline sağlı olmuş ama
sayfa ve stun genişliklerini aynı şekilde atmıyor
stanndart düzeye alıyor

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:b69e5a3dec]Private Sub CommandButton1_Click()
[a1:d5].Copy
Worksheets.Add.Name = TextBox1.Value
[a1].PasteSpecial Paste:=xlPasteAll
[a1].PasteSpecial Paste:=xlPasteColumnWidths
Application.CutCopyMode = False
End Sub
[/vb:1:b69e5a3dec]

 

[arslan]

Stun genişlikleri tamam. ama satır genişliklerini yine standarta alıyor satırlarıda olduğu gibi kopyalayıp yapıştırmıyor

 

[danersin]

Madem yeni sayfa ekliyorsunuz , tıpa tıp aynı olması için
aktif sayfayı kopyalasanız ... daha sonrada gerekmeyen kısımları silersiniz.
sorunuz bu değildi ama netice aynı. belki işinizi görür.

[vb:1:508fb4c61b]Sub Comm()
ActiveSheet.Copy Before:=Worksheets(1)
ActiveSheet.Name = Textbox1.Value
Range("e1:IV256").Clear
Range("a6:IV256").Clear
End Sub[/vb:1:508fb4c61b]