ComboBox lardan TextBoxlara bilgi getirme

[Mdemir63]

Selamlar,
Arkadaşlar UserForm üzerinde iki adet Combobox ve dört adet Textbox var ilgili sayfalardan bilgi getirmek istiyorum.

Saygılar


Dosya ekte

 

[kelkitli]

Selamlar
İnceleyiniz

 

[Mdemir63]

Sn: Kelkitli Teşekkür ederim

iyi çalışmalar

Saygılar

 

[Mdemir63]

Selamlar,

Arkadaşlar, aşağıdaki kodları kullanıyorum. Benim sayfa adı DATA
Sayfa1 yerine DATA yazdım olmadı Sheets("DATA") yazdım yine olmadı ne yazmalıyım.
Ayrıca, Pembe aralıklara ad tanımlasam kod içinde nasıl kullanabilirim.

Saygılar

Private Sub ComboBox1_Change()
On Error Resume Next
UserForm1.TextBox1.Text = Application.VLookup(UserForm1.ComboBox1.Value, Sayfa1.Range("B2:C20"), 1, False)
UserForm1.TextBox2.Text = Application.VLookup(UserForm1.ComboBox1.Value, Sayfa1.Range("B2:C20"), 2, False)

End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz. Hücrelere ad olarak VERİ tanımlanmıştır.

Private Sub ComboBox1_Change()
    On Error Resume Next
    UserForm1.TextBox1.Text = Application.VLookup(UserForm1.ComboBox1.Value, Sheets("DATA").Range("VERİ"), 2, False)
    UserForm1.TextBox2.Text = Application.VLookup(UserForm1.ComboBox1.Value, Sheets("DATA").Range("VERİ"), 3, False)
End Sub

 

[BG]

Selamlar,

Arkadaşlar, aşağıdaki kodları kullanıyorum. Benim sayfa adı DATA
Sayfa1 yerine DATA yazdım olmadı Sheets("DATA") yazdım yine olmadı ne yazmalıyım.
Ayrıca, Pembe aralıklara ad tanımlasam kod içinde nasıl kullanabilirim.

Saygılar

Private Sub ComboBox1_Change()
On Error Resume Next
UserForm1.TextBox1.Text = Application.VLookup(UserForm1.ComboBox1.Value, Sayfa1.Range("B2:C20"), 1, False)
UserForm1.TextBox2.Text = Application.VLookup(UserForm1.ComboBox1.Value, Sayfa1.Range("B2:C20"), 2, False)

End Sub

Sayın komutan63,
eğer farklı bir durum sözkonusu değilse , data isimli sayfanın isminin sonunda boşluk vardır diye düşünüyorum, benim sıklıkla kullandığım yöntemlerden birisi
sayfa indis numarası kullanmak böylece sayfanın yeri değişmediği sürece problem çıkmıyor örnek: sheets(1).select gibi 1. sayfa gibi kullanıyorum, ad tanımlayıp yapmanız gereken tek şey örnek: Sheets(1).Range("deneme").Select kullanmak burada "deneme" sayfa1de a1:a10 aralığı için tanımlandı. sorunuzu doğru mu anladım acaba ?

 

[Mdemir63]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz. Hücrelere ad olarak VERİ tanımlanmıştır.

Private Sub ComboBox1_Change()
    On Error Resume Next
    UserForm1.TextBox1.Text = Application.VLookup(UserForm1.ComboBox1.Value, Sheets("DATA").Range("VERİ"), 2, False)
    UserForm1.TextBox2.Text = Application.VLookup(UserForm1.ComboBox1.Value, Sheets("DATA").Range("VERİ"), 3, False)
End Sub

Selamlar,
Hocam dediğiniz gibi yaptım. Daha öncede denedim olmadı. Onun için dosyanın küçük bir örneğini tekrar gönderiyorum.

Saygılar

 

[Korhan Ayhan]

Selamlar,

Hatanın sebebi Sn. kelkitli örnek dosyasında Comboboxlara veri yüklerken Properties (Özellikler) kısmında RowSource olayına Sayfa3!A1:A20 ibaresini yazmış. Sizin buralarda yazan sayfa isimlerinide değiştirmeniz gerekiyor. Yada bu kısımları tamamen silip formun Private Sub UserForm_Initialize() olayına aşağıdaki kodu uygulayın.

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "DATA!B2:B20"
    ComboBox2.RowSource = "VERİ!B2:B20"
End Sub

 

[Mdemir63]

Selamlar,

Hatanın sebebi Sn. kelkitli örnek dosyasında Comboboxlara veri yüklerken Properties (Özellikler) kısmında RowSource olayına Sayfa3!A1:A20 ibaresini yazmış. Sizin buralarda yazan sayfa isimlerinide değiştirmeniz gerekiyor. Yada bu kısımları tamamen silip formun Private Sub UserForm_Initialize() olayına aşağıdaki kodu uygulayın.

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "DATA!B2:B20"
    ComboBox2.RowSource = "VERİ!B2:B20"
End Sub

Hocam çok teşekkürler. Valla iyiki varsınız. Bir çözüm isterken 2 çözüm yolu öğrettiniz. Her iki dediğinizi de yaptım ikisi de tamamdır.

Saygılar sunuyorum.

 

[cenderus]

dosya ektedir

konu başlığına ait bulabildiğim dosya ektedir