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