Combobox' lara satırdan veri almak

[ynmcan]

Merhaba arkadaşlar,
Combobox' lara sütundan veri alırken,
örneğin; A1:A8 aralığındaki hücreler için

Combobox1.RowSource "Sayfa1!A1:A8"

kodunu kulanıyoruz.

Satırdaki hücrelerden alırken,
örneğin; A1:H1 aralığındaki hücrelerden veri almak için nasıl bir kod kullanabilirim?
Yardımcı olursanız sevinirim.

 

[Orion1]

Merhaba arkadaşlar,
Combobox' lara sütundan veri alırken,
örneğin; A1:A8 aralığındaki hücreler için

Combobox1.RowSource "Sayfa1!A1:A8"

kodunu kulanıyoruz.

Satırdaki hücrelerden alırken,
örneğin; A1:H1 aralığındaki hücrelerden veri almak için nasıl bir kod kullanabilirim?
Yardımcı olursanız sevinirim.

Önce propertiesten combobox'ın kolon adedini girin.(ColumnCount) sonrada
aşağıdaki kodu yazın.

Combobox1.RowSource = "Sayfa1!A1:H1"

 

[ynmcan]

Teşekkürler.

Evren bey teşekkür ederim.
Hayırlı çalışmalar dilerim.

 

[ynmcan]

liste açılışında sorun var.

propertiesten combobox'ın kolon adedini (ColumnCount)girdim.
ancak liste yana doğru açılıyor, aşağı doğru açma imkanı varmı?
Örnek dosya ekte.

 

[Orion1]

Dosyanız ekte.

Private Sub UserForm_Initialize()
ComboBox1.Column = Sheets("Sayfa1").Range("A1:H1").Value
ComboBox1.ListIndex = 0
End Sub

 

[ynmcan]

Evren bey,
tekrar teşekkür ederim.

 

[gdemir]

bunu daha da dallandırmak mumkunmu acaba ?

ComboBox1 = ŞubeAdı Secılsın
ComboBox2= Ürün Adı Secilsin
ComboBox3= Fiyat otomatık gelsın

böyle bişey mümkünmüdür ?

 

[Orion1]

Evren bey,
tekrar teşekkür ederim.

Rica ederim.
iyi çalışmalar.

 

[Orion1]

bunu daha da dallandırmak mumkunmu acaba ?

ComboBox1 = ŞubeAdı Secılsın
ComboBox2= Ürün Adı Secilsin
ComboBox3= Fiyat otomatık gelsın

böyle bişey mümkünmüdür ?

Mümkündür.
Örnek dosya yollarsanız üzerinde bakarız.Şimdi bir şey söyleyemem.

 

[ynmcan]

kodaki hata ney?

Merhaba arkadaşlar,
combobox1' deki seçime göre Combobox2,3,4' ün veri aldığı satırları değiştiriyorum

combobox1' e seçtiğim

200/1500 BAB.
200/1500 BAB.ENT.
300/1500 BAB.

sorun yok. Ancak combobox1' e

300/1500 BAB. ENT.

seçtiğimde yazdığım kodun gereği olarak

Combobox3' e "E10:Z10"
Combobox4' e "E11:Z11"

aralıklarından veri alması gerekiyor, ancak almıyor.
örnek dosyadaki en alt satırdaki kodlardaki sorunnun ne olduğuna bakarsanız sevinirim.

Private Sub UserForm_Initialize()

ComboBox1.RowSource = "Sayfa1!A1:A4"

End Sub

Private Sub CommandButton1_Click()

If ComboBox1.Text = "200/1500 BAB." Then

ComboBox2.Column = Sheets("Sayfa1").Range("E2:Z2").Value
ComboBox3.Column = Sheets("Sayfa1").Range("E3:Z3").Value
ComboBox4.Column = Sheets("Sayfa1").Range("E4:Z4").Value

End If

If ComboBox1.Text = "200/1500 BAB.ENT." Then

ComboBox2.Column = Sheets("Sayfa1").Range("E2:Z2").Value
ComboBox3.Column = Sheets("Sayfa1").Range("E5:Z5").Value
ComboBox4.Column = Sheets("Sayfa1").Range("E6:Z6").Value

End If

If ComboBox1.Text = "300/1500 BAB." Then

ComboBox2.Column = Sheets("Sayfa1").Range("E7:Z7").Value
ComboBox3.Column = Sheets("Sayfa1").Range("E8:Z8").Value
ComboBox4.Column = Sheets("Sayfa1").Range("E9:Z9").Value

End If

If ComboBox1.Text = "300/1500 BAB.ENT." Then

ComboBox2.Column = Sheets("Sayfa1").Range("E7:Z7").Value
[COLOR="Red"]ComboBox3.Column = Sheets("Sayfa1").Range("E10:Z10").Value
ComboBox4.Column = Sheets("Sayfa1").Range("E11:Z11").Value[/COLOR]

End If

End Sub

 

[Orion1]

İlgili yere aşağıdaki kodu yapıştırınız.
Not : Sayfaya yazdığınızda BAB. dan sonra bir boşluk var.Oysa sorgulama cümlesinde BAB tan sonra bir boşluk yok hemen nokta var.Kodları yazarken bu türden küçük ayrıntılara dikkat ederseniz sorun çıkmaz.
300/1500 BAB. ENT.

ComboBox2.Clear: ComboBox3.Clear: ComboBox4.Clear
If ComboBox1.Text = "200/1500 BAB." Then

ComboBox2.Column = Sheets("Sayfa1").Range("E2:Z2").Value
ComboBox3.Column = Sheets("Sayfa1").Range("E3:Z3").Value
ComboBox4.Column = Sheets("Sayfa1").Range("E4:Z4").Value

End If

If ComboBox1.Text = "200/1500 BAB.ENT." Then

ComboBox2.Column = Sheets("Sayfa1").Range("E2:Z2").Value
ComboBox3.Column = Sheets("Sayfa1").Range("E5:Z5").Value
ComboBox4.Column = Sheets("Sayfa1").Range("E6:Z6").Value

End If

If ComboBox1.Text = "300/1500 BAB." Then

ComboBox2.Column = Sheets("Sayfa1").Range("E7:Z7").Value
ComboBox3.Column = Sheets("Sayfa1").Range("E8:Z8").Value
ComboBox4.Column = Sheets("Sayfa1").Range("E9:Z9").Value

End If

If ComboBox1.Text = "300/1500 BAB. ENT." Then
ComboBox2.Column = Sheets("Sayfa1").Range("E7:Z7").Value
ComboBox3.Column = Sheets("Sayfa1").Range("E10:Z10").Value
ComboBox4.Column = Sheets("Sayfa1").Range("E11:Z11").Value

End If

 

[ynmcan]

Enver bey,
inanın iki saate yakın kodu inceliyorum. Bende bir yazım hatası olabileceğinden kuşkulandım, ancak yazım hatasını onca ramama rağmen bulamayınca kodun yanlış olduğuna karar verdim. Acemilik işte, kusura bakmayın sizide uğraştırdım.
Yardımlarınız içi çok teşekkür ederim.

 

[Orion1]

Enver bey,
inanın iki saate yakın kodu inceliyorum. Bende bir yazım hatası olabileceğinden kuşkulandım, ancak yazım hatasını onca ramama rağmen bulamayınca kodun yanlış olduğuna karar verdim. Acemilik işte, kusura bakmayın sizide uğraştırdım.
Yardımlarınız içi çok teşekkür ederim.

Estafurulla,iyi çalışmalar.