Seçili verilerin ComboBox'a Additem olarak almak

[guraycakir]

Merhaba.
Aşağıdaki kodla textbot1 deki sayı ile A sutununda ki sayı ile aynı ise o sayının satırını comboBox1 e Additem olarak alabiliyorum.Benim yapmak istediğim birer hücre atlayarak
Combo ya alması.




Private Sub TextBox1_Change()
ComboBox1.Clear
For i = 1 To 8
If Sheets("1").Cells(i, 1) = TextBox1.Text Then
For j = 2 To 7
ComboBox1.AddItem (Sheets("1").Cells(i, 0 + j))
ComboBox1.DropDown



Next j
End If
Next i
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu dosyanızdaki userforma kopyalayarak deneyin.

[vb:1:0fd232a02e]Private Sub UserForm_Initialize()
For a = 2 To Cells(1, 256).End(xlToLeft).Column Step 2
ComboBox1.AddItem Cells(1, a)
Next
End Sub
[/vb:1:0fd232a02e]

 

[guraycakir]

Merhaba
Kodu denedim.Ancak olmadı.Ekli dosyada deneyebilirmisiniz.

 

[Levent Menteşoğlu]

Dosya ektedir.

 

[guraycakir]

Merhaba
Sn. Leventim Verdiğiniz kodları formun initialize olayına yazınca sorun yok ancak
Ben bunu sorgu yaparken kullanmak istiyorum. Yani TextBox 1 yazınca
1 satırındaki metinler ConboBox’a gelsin ; TextBox ‘a 2 Yazınca bu sefer
ComboBox taki veriler 2 yazan hücrenin satırındaki veriler birer atlayarak ComBox’ a
Alsın Verdiğiniz kodu kendi anlatmak istediğim şartlara uyguladığım zaman
Sorgulama yapmıyor.

Private Sub TextBox1_Change()
ComboBox1.Clear
For i = 1 To 8
If Sheets("1").Cells(i, 1) = TextBox1.Text Then
For a = 2 To Cells(1, 256).End(xlToLeft).Column Step 2
ComboBox1.AddItem Cells(1, a)
Next a
End If
Next i
End Sub

İlginiz için teşekkür ederim.Belki sorunu tam açıklayamadım
sorunun çözümü şarta bağlı sorgulama verdiğiniz kodu bu şekilde
denediğimde sadece 1 yazınca tamam ama 2 yazarsam sonuç değişmiyor

 

[guraycakir]

ComboBox1.Clear
For i = 1 To 8
If Sheets("1").Cells(i, 1) = TextBox1.Text Then
For a = 2 To Cells(1, 256).End(xlToLeft).Column Step 2
ComboBox1.AddItem Cells(i, a)

Next a

End If
Next i


Sn Leventim "ComboBox1.AddItem Cells(i,a)" Olarak düzenleyince sorunum çözül dü
teşekkürler.