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
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