[Çözüldü] Excelde Son sayfanın sonuna yeni sayfa ekleme

[ayaz323]

Merhaba;

Ricam şudur ben excel de şu kod ile yeni sayfayı en başta ki sayfanın yanına istediğim isimle oluşturabiliyorum fakat ben bunu en son sayfada oluşmasını istiyorum yani yazdığım isimde en son sayfanın yanına yeni sayfa oluştursun

Sheets.Item(1).Select
Sheets.add
Sheets.Item(1)name=textbox1.text

yardımcı olursanız sevinirim. iyi günler.

[Hüseyin Çoban]

Merhaba,

Tablonuzu görmeden kesin olarak bişey söyleyemem. Ancak anladığım kadarıyla kodlardaki

Kod: [Seç]

Sheets.add satırını

Kod: [Seç]

Sheets.Add After:=Sheets(Worksheets.Count) bu şekilde düzenleyerek deneyin.

[ayaz323]

Merhaba,

Tablonuzu görmeden kesin olarak bişey söyleyemem. Ancak anladığım kadarıyla kodlardaki

Kod: [Seç]

Sheets.add satırını

Kod: [Seç]

Sheets.Add After:=Sheets(Worksheets.Count) bu şekilde düzenleyerek deneyin.

Denetim fakat olmadı olayı şu şekilde tanımlayayım;

yazdığım kod ile  textbox a girdiğim isim ile combandbutton'a tıkladığımda en baş tarafa o isimde sayfamı oluşturuyor. fakat ben bunun tam tersini en son oluşturmasını istiyorum, girdiğim isimle ilginize de teşekkür ederim 

[Hüseyin Çoban]

Kullandığınız kodları silip, CommandButtona bu kodları uygulatarak deneyiniz.

Kod: [Seç]

Application.ScreenUpdating = False
Ad = Sheets(Worksheets.Count).Name
Sheets.Add After:=Sheets(Worksheets.Count)
ActiveSheet.Name = TextBox1.Text


[ayaz323]

Kullandığınız kodları silip, CommandButtona bu kodları uygulatarak deneyiniz.

Kod: [Seç]

Application.ScreenUpdating = False
Ad = Sheets(Worksheets.Count).Name
Sheets.Add After:=Sheets(Worksheets.Count)
ActiveSheet.Name = TextBox1.Text


Allah razı olsun çok teşekkürler.

[Hüseyin Çoban]

Allah razı olsun çok teşekkürler.

Rica ederim, iyi çalışmalar.
Allah hepimizden razı olsun.