Makroya Exceldeki tablodan Tablo1[Sütun2] gibi veri alma

[Furkan TARAKÇI]

Merhabalar,
Userform oluşturuyorum. Bunun içerisinde combobox larım mevcut. Bu comboboxlara B2:B15 gibi değilde oluşturmuş olduğum tablodan Tablo1[Sütun3] gibi verileri alsın istiyorum. Yazmaya çalıştım fakat olmadı yazım yanlışı da yapmış olabilirim. Internette çok arattım ama bulamadım. Buradaki amacım tabloya yeni satırlar eklendiği zaman başka bir formüle gerek kalmadan veriyi alsın. Normalde hücreye =Tablo1[Sütun3] yazınca geliyor. Simdiden yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub UserForm_Initialize()
    Dim My_Tbl As ListObject
    
    Set My_Tbl = Sheets("Sheet1").ListObjects("Table1")
    
    ComboBox1.List = My_Tbl.ListColumns(2).DataBodyRange.Value
End Sub

 

[Furkan TARAKÇI]

Deneyiniz.

Option Explicit

Private Sub UserForm_Initialize()
    Dim My_Tbl As ListObject
   
    Set My_Tbl = Sheets("Sheet1").ListObjects("Table1")
   
    ComboBox1.List = My_Tbl.ListColumns(2).DataBodyRange.Value
End Sub

Üstadım teşekkür ederim, çok işime yaradı peki

SN	Cins İsmi	Cins Kodu
1	TABİİ ZEMİN	TZ
2	SAHA TEMİZLİĞİ SONRASI ALIM	ST
3	NEBATİ SIYIRMA	NS
4	ZAYIF ZEMİN	ZZ
5	TERASMAN - X	TX

gibi bir tablom var bunda düşey ara yaptıracağım 2 ci sütünda arayacak ama bazı tablolarımda 1. sütündan veriyi bazılarında 3. sütündan veriyi yazdıracak.

 

[Korhan Ayhan]

Bu konuda ne yapmamı beklediğinizi anlayamadım!

 

[Furkan TARAKÇI]

Bu konuda ne yapmamı beklediğinizi anlayamadım!

@Korhan Ayhan Bey Merhaba
Şunu demek istedim normal excel hücresinde =DÜŞEYARA("TABİİ ZEMİN";CİNS[[Cins İsmi]:[Cins Kodu]];2;YANLIŞ) gibi yazmak istiyorum ki tabloma değer eklediğim zaman onu da sorgulasın. Mümkünse düşey arada arananın sağ tarafındaki değerleri yazdırdığı için, bir tanesinde de A sütunundaki değeri gösterirse çok sevinirim. Teşekkürler

 

[Korhan Ayhan]

Örnek dosya paylaşarak yapmak istediğinizi açıklarsanız yardımcı olabilirim.

 

[Furkan TARAKÇI]

Örnek dosya paylaşarak yapmak istediğinizi açıklarsanız yardımcı olabilirim.

Korhan Bey,
Maalesef dosya yükleyemiyorum. Üye olmak için denedim fakat ödeme sayfasında yönlendirilen sitede kullanıcı adı ve şifremi kabul etmedi. @Hüseyin Beye mesaj attım ama bir dönüş alamadım.

 

[Korhan Ayhan]

Merhaba,

Altın üyelik başlığında ilk mesajda bu konuyla ilgili bir açıklama yapılmış. Sanırım gözünüzden kaçtı..

Forum kullanıcı adınız ve şifreniz mağazada geçerli değildir.
Mağaza için ayrı üye kaydı oluşturmanız gerekir.

Ek olarak foruma dosya eklemek için altın üyelik yapmanıza gerek yok. Harici link paylaşımı ile dosya paylaşımı yapabilirsiniz.

Ama altın üyelik satın alarak forumun arşiv bölümündeki konulardaki dosyalara erişim hakkınız olur. Böylece sorun yaşamadan dosyalara erişim sağlamış olursunuz. Tabiki tercih sizlerindir.

 

[Furkan TARAKÇI]

Örnek dosya paylaşarak yapmak istediğinizi açıklarsanız yardımcı olabilirim.

@Korhan Ayhan Bey,
Örnek dosyayı yükledim. İçerisine yapmak isteğim işlemi belirttim. Yardımcı olabilirseniz sevinirim.

 

[Korhan Ayhan]

Kod bölümünde ilgili kısmı aşağıdaki gibi değiştirip deneyiniz.

s1.Range("YANYOLLAR[[Yanyol İsmi]:[Yanyol Km]]")

 

[Furkan TARAKÇI]

Kod bölümünde ilgili kısmı aşağıdaki gibi değiştirip deneyiniz.

s1.Range("YANYOLLAR[[Yanyol İsmi]:[Yanyol Km]]")

Verdiğiniz bilgiler için teşekkür ederim. Yazmaya çalıştığım buydu.