Combobox'a satır verisi alma

[hikmet]

Günaydın Sn.Hocalarım
Combobox'a sütün bazında veri alabiliyorum fakat bana gerekli olan veri 1 satırda olan c1-j1 aralığında olan veriler. Bu verileri combobox'a nasıl alabilirim. İlginize ve değerli katkılarınıza şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

ComboBox1.List = Application.Transpose(Range("C1:J1"))

 

[hikmet]

Korhan Bey ilginize teşekkür ederim ama ben beceremedim sanırım.
Aşağıdaki kod ile bir sayfadaki doneleri Combox1'e alıyorum sonra girişleri yapıp bir sayafa kaydettiriyorum. Aynı kaydın bir verisini başka bir sayfada ilgili hücreye toplam olarak aldırıyorum buraya kadar sorun yok. Sorun d1:j1 aralığında satırdaki tüm hücreleri combo2 ye aldırmak ve ordan da bir done seçerek kaydettirmek. Ayrıca

Sheets("SABLON").Select
Set ge = Sheets("SABLON")
sat = [SABLON!b1:b65536].Find(ComboBox1).Row
ge.Range("d" & sat).Value = TextBox2 + Cells(sat, "d").Value

bu koddaki işlemi ilgili veririn satırını ve sütununu buldurarak kesiştiği hücreye yazdırmak istiyorum. Lütfen uzman arkadaşlar inceleyebilirmisiniz bu işlemi nasıl yapabilirim. Kodun geldiği hal aşağıdaki gibidir. Emeğinize şimdiden teşekkür ederim.


Private Sub ComboBox1_Click()


Set s1 = Sheets("SABLON")
sat = ComboBox1.ListIndex + 2
TextBox1 = s1.Cells(sat, "c")

sat = [SABLON!b1:b65536].Find(ComboBox1).Row
Label1 = s1.Cells(sat, "B") & " " & " Hesap Toplamı:" & Cells(sat, "ag").Value



End Sub

Private Sub CommandButton1_Click()
Sheets("HAREKET").Select
Range("a1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = ComboBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox1.Value
ActiveCell.Offset(0, 3).Value = ComboBox2.Value
ActiveCell.Offset(0, 4).Value = TextBox2.Value

Sheets("SABLON").Select
Set ge = Sheets("SABLON")
sat = [SABLON!b1:b65536].Find(ComboBox1).Row
ge.Range("d" & sat).Value = TextBox2 + Cells(sat, "d").Value


ComboBox1.SetFocus


End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "SABLON!B2:B" & [SABLON!B65536].End(3).Row
ComboBox1.ColumnCount = True

End Sub

 

[Korhan Ayhan]

Merhaba,

Örnek dosya üzerinde yapmak istediğiniz işlemi açıklar mısınız?

 

[Orion1]

Günaydın Sn.Hocalarım
Combobox'a sütün bazında veri alabiliyorum fakat bana gerekli olan veri 1 satırda olan c1-j1 aralığında olan veriler. Bu verileri combobox'a nasıl alabilirim. İlginize ve değerli katkılarınıza şimdiden teşekkür ederim.

Alternatif.

ComboBox1.Column = Range("C1:J1").Value

 

[hikmet]

sn.hocalarım ve arkadaşlarım biraz geç de olsa bu konuda örnek dosya ek'tedir. dosyanın içinde yazdığım gibi seçilen satır ve seçilen sütunun kesiştiği yere userformda girilen değeri yazdırmak istiyorum. değerli katkılarınızadan dolayı şimdiden teşekkür ederim.

 

[hikmet]

arkadaşlarım bu örnek dosyadaki soruna bir el atmanız mümkünmüdür. dosyada bulunan koda baktığınızda göreceksiniz ki combobox1 de bulunan verinin olduğu satırı buluyor ve o satırın sabit bir hücresine değer yazıyor.benim yapmak istediğim de combo2 deki veriyi de sütunlarda arasın ve combo1 deki veririn satırı ile combo2 deki sütunun kesiştiği yere değeri yazsın. bir aydır bekletiyorum bu kısmı yapamadığım için. ilginize şimdiden teşekkür ederim.


Sheets("SABLON").Select
Set ge = Sheets("SABLON")
sat = [SABLON!b1:b65536].Find(ComboBox1).Row
ge.Range("d" & sat).Value = TextBox2 + Cells(sat, "d").Value

bu kodu değiştirerek hem combo1 deki verinin satırını hem combo2 deki verinin sütununu bularak satır ile sütunun kesiştiği yere değeri yazdırmak istiyorum