2 Tane UserForm_Initialize olayını birleştirme

[wqazx]

2 Tane UserForm_Initialize olayını nasıl birleştirebilirim acaba.
1.si
-----------------------------------
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 5
For i = 4 To Sheets.Count
firmasayfasec.AddItem Sheets(i).Name
Next
End Sub

----------------------------------------------------------
2.si
Private Sub UserForm_Initialize()
Dim say As Integer
Sheets("Veri").Select
txtsira.Locked = True
If Range("B2") = "" Then
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbad.RowSource = "Veri!B2:B" & say + 1
Else
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbad.RowSource = "Veri!B2:B" & say
End If
txtsira.Value = say
cbad.SetFocus

End Sub

 

[wqazx]

Arkadaşlar bu sorunda kitlendim kaldım lütfen biri yardım etsin.

 

[ALPEN]

Sorununuzu anlayamadım.

ilk önce hangi user form açılacak?
neden birleştirmeye çalışıyorsunuz? userform1 in initialize olayında userform2.show
derseniz zaten userform2 initalize olmuş olur.

veya bir user form'dan diğer bir userform da değişiklik yapmak mı istiyorsuz?

bunun için

Private Sub UserForm_Initialize()
label1 = "userform1 in label ı" ' userform1 üzerindeki label1
userform2.label1 = "userform2 in label ı" ' userform2 üzerindeki label1
End Sub

 

[wqazx]

1 tane userformum var üzerinde multipage var.
1.olay page1 için
2.olay page2 için.

yani UserForm_Initialize olayında 2 eylemi de gerçekleştirmek istiyorum.

Private Sub UserForm_Initialize()
.......
2 olay da gerçekleşeceksin.
........
End Sub

 

[Levent Menteşoğlu]

ek bir userform varsa neden 2 ayrı initialize olayı yazdınız anlayamadım. Her iki koduda aynı initializenin altına yazın.

2 Tane UserForm_Initialize olayını nasıl birleştirebilirim acaba.
1.si
-----------------------------------
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 5
For i = 4 To Sheets.Count
firmasayfasec.AddItem Sheets(i).Name
Next
End Sub

----------------------------------------------------------
2.si
Private Sub UserForm_Initialize()
Dim say As Integer
Sheets("Veri").Select
txtsira.Locked = True
If Range("B2") = "" Then
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbad.RowSource = "Veri!B2:B" & say + 1
Else
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbad.RowSource = "Veri!B2:B" & say
End If
txtsira.Value = say
cbad.SetFocus

End Sub

yerine
[vb:1:9de7b5d3f9]Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 5
For i = 4 To Sheets.Count
firmasayfasec.AddItem Sheets(i).Name
Next

Dim say As Integer
Sheets("Veri").Select
txtsira.Locked = True
If Range("B2") = "" Then
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbad.RowSource = "Veri!B2:B" & say + 1
Else
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbad.RowSource = "Veri!B2:B" & say
End If
txtsira.Value = say
cbad.SetFocus

End Sub
[/vb:1:9de7b5d3f9]