multipage

[osmanfenerli1907]

merhaba
bu multipage in sekmelerinin adlarını ve sekme açılmalarını kodlar ile kontrol edebilir miyim?

 

[Ferhat Pazarçevirdi]

Ekteki örnek dosyayı inceleyiniz.



.

 

[yenilik025]

Multi Page de rowsource ve addıtem i sayfada nasıl çalıştırmalıyız ?

Multi Page de rowsource ve addıtem i sayfada nasıl çalıştırmalıyız ?
Aşağıdaki şekilde çalıştıramadım.

Private Sub UserForm_Click()
On Error Resume Next

UserForm3.Page1.ComboBox1.RowSource = "PERSONELLER!B2:B" & [PERSONELLER!B65].End(3).Row


With UserForm3.Page1.ComboBox66
.AddItem "DEVREDEN BORÇ"
.AddItem "OCAK "
.AddItem "ŞUBAT "
.AddItem "MART "
.AddItem "NİSAN "
.AddItem "MAYIS "
.AddItem "HAZİRAN "
.AddItem "TEMMUZ "
.AddItem "AĞUSTOS "
.AddItem "EYLÜL "
.AddItem "EKİM "
.AddItem "KASIM "
.AddItem "ARALIK "

End With

End SubQUOTE=Ferhat Pazarçevirdi;449742]Ekteki örnek dosyayı inceleyiniz.



.[/QUOTE]

 

[arcilingir]

Bu şekilde bir deneyin

Private Sub UserForm_Activate()

On Error Resume Next

Dim Aylar(0 To 12) As String

Aylar(0) = "DEVREDEN BORÇ"
Aylar(1) = "OCAK "
Aylar(2) = "ŞUBAT "
Aylar(3) = "MART "
Aylar(4) = "NİSAN "
Aylar(5) = "MAYIS "
Aylar(6) = "HAZİRAN "
Aylar(7) = "TEMMUZ "
Aylar(8) = "AĞUSTOS "
Aylar(9) = "EYLÜL "
Aylar(10) = "EKİM "
Aylar(11) = "KASIM "
Aylar(12) = "ARALIK "

For x = 0 To 10
MultiPage1.Pages.Add
Next

For x = 0 To 12
MultiPage1.Pages(x).Caption = Aylar(x)
Next

End Sub

 

[arcilingir]

yada böyle

Private Sub UserForm_Activate()

On Error Resume Next

Dim Aylar(0 To 12) As String

Aylar(0) = "DEVREDEN BORÇ"
Aylar(1) = "OCAK "
Aylar(2) = "ŞUBAT "
Aylar(3) = "MART "
Aylar(4) = "NİSAN "
Aylar(5) = "MAYIS "
Aylar(6) = "HAZİRAN "
Aylar(7) = "TEMMUZ "
Aylar(8) = "AĞUSTOS "
Aylar(9) = "EYLÜL "
Aylar(10) = "EKİM "
Aylar(11) = "KASIM "
Aylar(12) = "ARALIK "

For x = 0 To MultiPage1.Pages.Count
MultiPage1.Pages.Remove (0)
Next x

For x = 0 To 12
MultiPage1.Pages.Add
MultiPage1.Pages(x).Caption = Aylar(x)
Next

End Sub