UserForm_Initialize

[CahilinBiri]

bu UserForm_Initialize() intalize de alta alta kodu yazamadım bi türlü

kullandığım bi kod var şu an

Private Sub UserForm_Initialize()
ReDim Preserve txt(108)
For a = 2 To 108
Set txt(a).txt = Controls("textbox" & a)
Next
End Sub

bu kodun altına

ComboBox2.AddItem "İlkokul"
ComboBox2.AddItem "Ortaokul"
ComboBox2.AddItem "Lise"
ComboBox2.AddItem "İlköğretim"
ComboBox2.ListIndex = 0

bu combobox kodunu girmek istiyorum
nasıl bu kodları birleştirebilirim. yada bu combobox kodunu başka bi kod yerine yazabilirmiyim
TÞK

 

[zimamdar]

kodları farklı sub'lar altında yazıp initialize'de call komutu ile çağırmayı deneseniz aşağıdaki gibi

Private Sub UserForm_Initialize()
Call combolar
End Sub

sub combolar()
ComboBox2.AddItem "İlkokul"
ComboBox2.AddItem "Ortaokul"
ComboBox2.AddItem "Lise"
ComboBox2.AddItem "İlköğretim"
ComboBox2.ListIndex = 0
end sub

 

[CahilinBiri]

zimamdar bey allah aşıkına yukar daki iki kod nasıl birleşecek birleştirirmisin.
kafayı yiyecem tuttuk birde formlara taktık kafayı eskiden makrolar vardı hadi onu az buçuk çözdük ama bu kod işi baya zor. :kafa: :kafa:

sonu böle bitiyor ama
Next
End Sub

ama bunuki böyle başlayacak diyorsun

Call combolar
End Sub

bu kodu 1 kodun neresine yazacam bunu bi anlayabilsem

 

[CahilinBiri]

vallahi saolasın oldu
Private Sub UserForm_Initialize()
ReDim Preserve txt(108)
For a = 2 To 108
Set txt(a).txt = Controls("textbox" & a)
Next
Call combolar
End Sub

altına bi senin yazdığın subu açtık

Sub combolar()
ComboBox2.AddItem "İlkokul"
ComboBox2.AddItem "Ortaokul"
ComboBox2.AddItem "Lise"
ComboBox2.AddItem "İlköğretim"
ComboBox2.ListIndex = 0
End Sub

oldu allah razı olsun :dua: :dua: :dua:

 

[CahilinBiri]

benim saatmi yanlış yoksa
www.excel.web.tr nin mi
gönderdiğim mesajlar benim saatten bir saat ileride gönderildi gösteriyor.