Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: ayaz323 - 10 Aralık 2010, 19:00:59

Başlık: [Çözüldü] Excelde Son sayfanın sonuna yeni sayfa ekleme
Gönderen: ayaz323 - 10 Aralık 2010, 19:00:59
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.
Başlık: Ynt: Excelde Son sayfanın sonuna yeni sayfa ekleme
Gönderen: Hüseyin Çoban - 10 Aralık 2010, 20:04:15
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.
Başlık: Ynt: Excelde Son sayfanın sonuna yeni sayfa ekleme
Gönderen: ayaz323 - 10 Aralık 2010, 21:06:34
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  :begendim :alkis
Başlık: Ynt: Excelde Son sayfanın sonuna yeni sayfa ekleme
Gönderen: Hüseyin Çoban - 10 Aralık 2010, 22:06:19
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
Başlık: Ynt: Excelde Son sayfanın sonuna yeni sayfa ekleme
Gönderen: ayaz323 - 11 Aralık 2010, 10:47:16
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.
Başlık: Ynt: Excelde Son sayfanın sonuna yeni sayfa ekleme
Gönderen: Hüseyin Çoban - 11 Aralık 2010, 10:50:58

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

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