sayfa ekleme

[ahmett46]

Slm. Arkadaşlar.
MultiPage ile ilgili 2 sorum olacak.
1-UserFormdan oluşturulacak butonla nasıl sayfa ekleriz.
2-Page1 den Page2 ye butonla nasıl geçeriz.(Page2.Show denedim olmuyor.)Teşekkürler

 

[udentr2002]

sayfalar arası geçiş yapmak istediğiniz butonun içine şu kodu ekleyip denermisiniz

Me.MultiPage1.Value = Me.MultiPage1.Value + 1

 

[udentr2002]

bir örnek göndermek istedim

 

[ahmett46]

Teşekkürler
Excel sayfası nasıl ekleriz?

 

[udentr2002]

multipage yeni bir sayfa eklemek içinde

Me.MultiPage1.Pages.Add

kodunu bir butonun altına ekleyiniz

 

[udentr2002]

excele yeni bir sayfa için ise

Worksheets.Add

kodunu kullanabilrsiniz

 

[ahmett46]

Hocam çok teşekkür ediyorum. Çok oldun diyeceksin ama Worksheets.add komutunda kendimiz isim belirleyebiliyormuyuz.

 

[udentr2002]

isimden kastın eğer yeni eklediğin sayfaya vermek istediğin isim ise aşağıdaki kodu deneyebilirsin

Dim sayfa As Worksheet
ad = InputBox("Sayfa adını giriniz")
Set sayfa = Worksheets.Add
sayfa.Name = [ad]
Sheets("sayfa1").Select

 

[ahmett46]

aynen bu çok teşekkürler

 

[Olcay]

Peki sayın hocam bu sayfa isimlerini belirli bir listeden almak istersek, sözgelimi sayfa1 de a1 - a25 arası bir liste var ve biz bu listede bulunan verilerin adını taşıyan çalışma sayfaları oluşturmak istiyoruz. Bu tek bir butonla yapılabilir mi? Bu konuda yardımcı olabilir misiniz? Şimdiden teşekkür ederim.

 

[Olcay]

Problem çözüldü. İyi bir arama yapmamışım kusura bakmayın.

 

[ahmett46]

isimden kastın eğer yeni eklediğin sayfaya vermek istediğin isim ise aşağıdaki kodu deneyebilirsin

Dim sayfa As Worksheet
ad = InputBox("Sayfa adını giriniz")
Set sayfa = Worksheets.Add
sayfa.Name = [ad]
Sheets("sayfa1").Select

Kodlarıyla excel sayfası ekliyoruz. Bunu bir sayfanın içeriği kopyalanacak ancak yeni ismi koddaki şekilde vermek mümkün mü? Teşekkürler