userform initialize

[wqazx]

userform initialize olayına aşağıdaki 2 farklı makroyu yazmak istiyorum ama hata veriyor.

Aşağıdaki 2 olayı

Private Sub UserForm_Initialize()
......
......
End Sub

arasına aynı anda yazamıyorum.

1.olay
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
cbcekmusteriad.RowSource = "Veri!B2:B" & say
'cbad.SetFocus
End Sub

2.olay
ListBox1.RowSource = "sayfa1!A2:C50"
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 7

 

[Haluk]

Private Sub UserForm_Initialize()
ListBox1.RowSource = "sayfa1!A2:C50"
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 7
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
........
......
....
End Sub

 

[Ahmet1982]

Private Sub UserForm_Initialize()
With ListBox1
.RowSource = "sayfa1!A2:C50"
.ColumnHeads = 1
.ColumnCount = 7
End With
Dim say As Long
Sheets("Veri").Select
txtsira.Locked = 1
If Range("B2") = Empty Then
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbad.RowSource = "Veri!B2:B" & say + 1
Else
........
......
....
End Sub