Visual basic de kod hatasını bulma

[serkan_5552]

Arkadaşlar merhaba aşağıdaki kodlarda hücrelere yazma hatası var.Formun ekran görüntüsü şekilde görünüyor.Bu hatayı bulup düzeltemedim.Yardımcı olursanız.TEŞEKKÜRLER.

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

 

[hokumus]

Selamlar,

Hatan "hucre" değişkenine adres formatını yanlış setlemenden kaynaklanıyor.

Normalde "C1" olarak setlemen gerekirken "C 1" şeklinde setleniyor. Aradaki boşluğun silinmesi gerekiyor. Onuda şöyle yapabilirsin.

hucre = "c" + Str(1)

atamasını,

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

şeklinde değiştirirsen sorun kalmayacaktır. Trim boşlukları silmek için kullanılmaktadır. Koddaki bu alanları düzeltirsen hücrelere düzgün bir şekilde setleme yapabilirsin.

 

[serkan_5552]

Teşekkürler