Private Sub UserForm_Activate() yordamını aşağıdaki gibi değiştirin.
- Kod: Tümünü seç
Private Sub UserForm_Activate()
Sheets("veri").Select ' sayfadaki verileri listbox da gösterme
Range("A1").Select
ListBox1.RowSource = "veri!a1:ax1"
ListBox1.ColumnCount = 10
Dim i As Integer
For i = 0 To 5000
ComboBox1.AddItem
ComboBox1.Column(0, i) = Sayfa1.Cells(i + 2, 1)
Next i
ComboBox2.AddItem
For i = 0 To 5000
ComboBox2.AddItem
ComboBox2.Column(0, i + 1) = Sayfa1.Cells(i + 2, 2)
Next i
ComboBox3.AddItem
For i = 0 To 5000
ComboBox3.AddItem
ComboBox3.Column(0, i + 1) = Sayfa1.Cells(i + 2, 8)
Next i
KucultButonuEkle
BuyutButonuEkle
Call GorevCubugundaGoster(Me)
End Sub
Kolay Gelsin
Sayfa başı
