form dizayn combobox

[handannn54]

böyle bi forum olduğunu googleda ödevimi ararken buldum..çok aktif belki hemen cevap bulabilirim..

bi ödevim var bu konuda biraz bilgisizim diğerlerini hallettim ama bir soru için yardım bekliyorum..

bir form var ve bunu dizayn etmemizi istiyor hocamız.hücrelere yazma hatasını düzeltiniz demiş..makro görüntüle kısmından bunu yazdım ama bi terslik var sanırım.. nasıl çalıştırılır neresi düzeltilir?? lütfen yardım

Private Sub ComboBox1_Change()
TextBox1.Text = ComboBox1.ListIndex
End Sub

Private Sub CommandButton1_Click()
Dim hucre As String
a = ComboBox1.ListCount
Range("b2").Value = a
ComboBox1.ListIndex = 2
hucre = "c" + Str(1)
Range("b2").Value = hucre
Range("b3").Value = ComboBox1.Value
For I = 1 To a Step 1
hucre = "c" + Str(I)
ComboBox1.ListIndex = I - 1
'hucre = InputBox("gir")
Range(hucre).Value = ComboBox1.Value
Next I
End Sub
Private Sub UserForm_Activate()
ComboBox1.AddItem (Sayfa1.Range("a1").Value)
ComboBox1.AddItem (Sayfa1.Range("a2").Value)
ComboBox1.AddItem (Sayfa1.Range("a3").Value)
End Sub

 

[ReBiwAr]

ne yapmak istediğinizi açıkça ifade etseniz ve örnek dosya ekleseniz çok daha kolay cevap alırdınız

 

[handannn54]

ödevim bu şekilde wordde bunu yazarak mail attı hocamız..ne yapılacağını bende bilmiyorumki..soruda görüldüğü gibi bi form dizayn edin demiş o formun resmi var bide onu eklemeye çalışayım

 

[handannn54]

 

[ReBiwAr]

ekteki gibi mi?