buton ile multipage sekme acma ve acilan multipageye isim verme

[zulfuernek]

userform icerisinde iki multipage var. userform uzerinde butona tiklayinca multipage 1 icersinde yeni bir sekme olisturmasi ve yeni acilan sekmeye isim vermeyi nasi yapabilirim.

 

[excel41]

Tam anlayamadım multipage seklemerini tıkladığınızda ayrı excel sayfasımı ? yoksa userformda 2 tane multipage var gerisini pek anlamadım ?

 

[zulfuernek]

userformda multipage var. ben butona tiklayinca multipage icerisinde new page yap.asini istiyorum

 

[PLİNT]

Merhaba
Aşağıdaki kodlarla geçici (Userform kapanışına kadar) kullanılabilir

Private Sub CommandButton1_Click()
Me.MultiPage1.Pages.Add "AD", "CAPTİON"
End Sub

 

[zulfuernek]

@PLİNT hocam emeginize saglik. bir eksigim var ancak. burda belirledigimiz ismi yaziyor. onun yerine bana msgbox gibi bir kutu acsa ve sayfa ismini ordan her yeni sayfa actikmda kendim belirleyeyim. cunku actiim her sekmeye farkli isim verilecek.

birde userformu kaydetme gibi secenegimiz olurmu. yani kapatip acinca userforma eklediim sekmeler silinmesin

 

[PLİNT]

Merahaba

Private Sub CommandButton1_Click()
capti = InputBox("ALTYAZI YAZINIZ")
If capti = "" Then capti = "Page" & Me.MultiPage1.Pages.Count + 1
Me.MultiPage1.Pages.Add , capti
End Sub

'Private Sub CommandButton1_Click()
ad = InputBox("isim YAZINIZ")
capti = InputBox("ALTYAZI YAZINIZ")
If capti = "" Then capti = "Page" & Me.MultiPage1.Pages.Count + 1
Me.MultiPage1.Pages.Add ad , capti
End Sub

Eklenen "page" sekmesinin kalıcı olması için aşağıdaki gibi kod yazılması gerek ama aktif "userform" a eklemiyor ikinci bir userform üzerinden yapılabilir
(vbaproject erişimine güven işaretli olmalı)

Set a = ThisWorkbook.VBProject.VBComponents("userform1")
Set b = a.Designer.Controls("MultiPage1")
b.Add ("Page " & b.Pages.Count + 1)