hata arıyorum.yardım.

[suat66]

Aşağıdaki form’ u dizayn edin ve programı yazın, hücrelere yazma hatasını düzeltiniz?

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


acil ödevim..tek soru kaldı lütfen yardım edin..
teşekkürler

 

[suat66]

vay arkadaş hiç görüntülenmemiş bile gün gelir bende size yardım ederim ne olacak sanki

 

[ffff7]

Programın ne işe yaradığını anlamamakla birlikte

hucre = "c" + Str(I)

satırını

hucre = "c" + Trim(Str(I))

olarak değiştirin. Hücrelere yazma hatası düzelecektir.

 

[suat66]

ödev işte programın ne işe yaradığına bakan yokki..saçma bi ödev..teşekkürler

 

[suat66]

iyide ben bunu nasıl çalıştıracağım anlamadım makroyu yazıyorum ama çalıştır deyince hata veriyor.düzeltmeyi yaptım ama olmuyor

 

[suat66]

yokmu yardım edecek?

 

[handannn54]

bende aynı soruya yanıt arıyorum..burdaki düzeltmeyi yaptım ama yine hata veriyor.