ComboBox 'a Veri çekme

[ozkovlu]

Merhabalar;
UserForm1 üzerinde olan Combobox6 'ya, Excel içerisindeki Sayfa1'de B Sütununda ki Adı kısmını nasıl çekebiliriz.
Combobox=Adı &" "& Soyadı şeklinde

Saygılarımla...

 

[Orion1]

Adı kısmı A sütununda.

ComboBox1.RowSource = "Sayfa1!A2:A" & Cells(Rows.Count, "A").End(xlUp).Row

 

[yenilik025]

Combobox da birden çok sütunu nasıl belirtmeliyiz ?

Merhabalar.

Combobox da aşağı satırlar yerine

yanyana birden çok sütun aralığını nasıl belirtmeliyiz ?



QUOTE=Orion1;861617]Adı kısmı A sütununda.

ComboBox1.RowSource = "Sayfa1!A2:A" & Cells(Rows.Count, "A").End(xlUp).Row

[/QUOTE]

 

[Orion1]

Merhabalar.

Combobox da aşağı satırlar yerine

yanyana birden çok sütun aralığını nasıl belirtmeliyiz ?



QUOTE=Orion1;861617]Adı kısmı A sütununda.

ComboBox1.RowSource = "Sayfa1!A2:A" & Cells(Rows.Count, "A").End(xlUp).Row

[/QUOTE]

A:C aralığı için

ComboBox1.RowSource = "Sayfa1!A2:[B][COLOR="Red"]C[/COLOR][/B]" & Cells(Rows.Count, "A").End(xlUp).Row

 

[yenilik025]

Excel sayfasına eklenen combobox a yatayda veri çekmek.

Hocam merhabalar.
UserForm yok kullandığım sayfamda, bir de EXCEL2013 versiyonu kullanıyorum.
Buraya resmini yukarıda da dosyamı ekledim. Kodu ekledim ancak hala bilgiyi combobox a çekemiyorum.
RowSource özelliği resimde görüldüğü üzere de yok user form eklediğimde ise geliyor.
Sürüm farkından mı bilmiyorum Resim ekli yorumda dosyamda yukarıda.



A:C aralığı için

ComboBox1.RowSource = "Sayfa1!A2:[B][COLOR="Red"]C[/COLOR][/B]" & Cells(Rows.Count, "A").End(xlUp).Row

[/QUOTE]

 

[Ömer BARAN]

Merhaba.

Ekli ekran görüntüsüne bir bakın isterseniz.
Ya da örnek belge ekleyerek destek isteyiniz.
Örnek belge özellikleri ve yükleme için gerekli açıklamalar cevabımın altındaki İMZA bölümünde var.
.resim
.

 

[yenilik025]

Bu da Karşılamıyor Hocam seçim yapılamıyor

Hocam buradan da seçim yapılamıyor örnek çoklu bir sütun aralığı olsa
demek ki çalışmayacak
ama kodlama ile belki şöyle bir şey yapılabilir

combobox tıklandığında aşağı doğru istenilen hücre aralığı çıkar click olayı ile de
aralıktan bir seçim yapılabilir

Zaten ListRows= Satır
Aslında bizim aradığımız

ListColumn gibi bir şey olması lazım.



Microsoft ta https://support.microsoft.com/tr-tr/kb/291308 bir link var ama nasıl yapılacak işte ama nasıl kodlanacak onu bilemiyorum

Merhaba.

Ekli ekran görüntüsüne bir bakın isterseniz.
Ya da örnek belge ekleyerek destek isteyiniz.
Örnek belge özellikleri ve yükleme için gerekli açıklamalar cevabımın altındaki İMZA bölümünde var.
.resim
.

 

[Ömer BARAN]

Bence isteğiniz net değil.

Açılır listede, aynı satırdaki bir'den fazla sütun değerini görmek istiyorsunuz ve bu işlem tamam sanırım.

Seçim işine gelince;
-- açılan bu listedeki istediğiniz bir sütuna denk gelen değeri seçebilmek mi istiyorsunuz,
-- yoksa, seçtiğiniz satırda her zaman aynı sütundaki bilgiyi mi bir yere yazdırmak istiyorsunuz?

Umarım anlatabildim.
.

 

[yenilik025]

listedeki istediğiniz bir sütuna denk gelen herhangi bir değeri de seçebilmek

"Açılır listede, aynı satırdaki bir'den fazla sütun değerini görmek istiyorsunuz kısmı tamam hocam. Teşekkürler"

Açılan listedeki istediğiniz bir sütuna denk gelen herhangi bir değeri de seçebilmek istiyoruz. Hocam

Aslında istediğimiz Veri doğrulama mantığının combobox ta yatay uygulanması
arıyorum.
UserForm da RowSource özelliği çalışıyor ama herhangi bir excelin
Geliştirici seçeneği ile sayfaya Combobox eklenip yatay bilgi aralığı belirlenip
buradan seçim yapmak istenildiğinde
maalesef kendim cevabını bulamıyorum. Ustalara asla bir sözümüz yoktur.

 

[Ömer BARAN]

Merhaba.

Ne istediğinizi şimdi anladım sanırım.

Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
Açılan ekranın sağ tarafına aşağıdaki kod'u yapıştırın.

ComboBox'a fareyle ilk tıkladığınızda tek veri görünüyorsa, ok tuşuna çift tıklayarak
veya sağdaki küçük okçuklara tıklayarak verileri görebilirsiniz.

Kod'daki kırmızı kısımın, sayfada ComboBox'un özelliklerini görüntüleyip
ListFillRange özelliğinin karışısında birşey yazmıyorsa, kullanılmasına gerek kalmaz.
.

[FONT="Tahoma"][SIZE="2"][B]Private Sub ComboBox2_GotFocus()[/B]
ComboBox2.Clear[COLOR="Red"]: ComboBox2.ListFillRange = ""[/COLOR]
For sütun = 6 To 12 [SIZE="2"][COLOR="SeaGreen"]' *** 6 sayısı F sütununu, 12 sayısı ise L sütununu belirtiyor.[/COLOR][/SIZE]
    ComboBox2.AddItem Cells(4, sütun): Next
[B]End Sub[/B][/SIZE][/FONT]

 

[yenilik025]

Yatay Bilgilerden Combobox a istenilen veriyi çekmek Çalışıyor

Evet hocam tüm hocalarımıza teşekkür ederim aradığımız buydu.

Merhaba.

Ne istediğinizi şimdi anladım sanırım.

Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
Açılan ekranın sağ tarafına aşağıdaki kod'u yapıştırın.

ComboBox'a fareyle ilk tıkladığınızda tek veri görünüyorsa, ok tuşuna çift tıklayarak
veya sağdaki küçük okçuklara tıklayarak verileri görebilirsiniz.

Kod'daki kırmızı kısımın, sayfada ComboBox'un özelliklerini görüntüleyip
ListFillRange özelliğinin karışısında birşey yazmıyorsa, kullanılmasına gerek kalmaz.
.

[FONT="Tahoma"][SIZE="2"][B]Private Sub ComboBox2_GotFocus()[/B]
ComboBox2.Clear[COLOR="Red"]: ComboBox2.ListFillRange = ""[/COLOR]
For sütun = 6 To 12 [SIZE="2"][COLOR="SeaGreen"]' *** 6 sayısı F sütununu, 12 sayısı ise L sütununu belirtiyor.[/COLOR][/SIZE]
    ComboBox2.AddItem Cells(4, sütun): Next
[B]End Sub[/B][/SIZE][/FONT]