combobox2...

[msanli]

Sayın Evren Gizlen,

açıklamaları ekteki dosyada yaptım. yardımcı olabilirseniz sevinirim.
Ayrıca sorgulamayı textbox4'e göre yapmasını istiyorum.

=======
Sizin başka bir uygulamanızda bulunan aşağıda ki kod ile bir uygulama yapmaya çalışıyorum.

aşağıdaki kog ile listedeki değerleri form'a alıyorum. Fakat form içinde birde ComboBox2 var. 2. combobox'a da parametreler sayfasında bulunan a sütunundaki verileri görmek istiyorum.

Bu konuda yardımcı olabilirmiziniz?

Private Sub UserForm_Initialize()
ComboBox1.Clear
For i = 2 To Sheets("LISTE").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Cells(i, 1).Value

Next
End Sub
======
Teşekkürler

 

[Orion1]

combobox2 tamam.
Dosyanız ektedir.
initialize olayına;

For i = 2 To Sheets("Sayfa2").Range("A65536").End(xlUp).Row
    ComboBox2.AddItem Sheets("Sayfa2").Cells(i, 1).Value
Next

 

[msanli]

Elinize sağlık. bu kodu combobox3 için "B65536" ve combobox4 için "C65536" olarak değişiklik yaptığımda "a65536" dan veri alıyor. sorun nedir acaba?
İyi bayramlar diliyorum.

Private Sub UserForm_Initialize()
ComboBox1.Clear
For i = 2 To Sheets("Sayfa1").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Sheets("Sayfa1").Cells(i, 1).Value
Next
For i = 2 To Sheets("Sayfa2").Range("A65536").End(xlUp).Row
ComboBox2.AddItem Sheets("Sayfa2").Cells(i, 1).Value
Next
For i = 2 To Sheets("Sayfa2").Range("B65536").End(xlUp).Row
ComboBox3.AddItem Sheets("Sayfa2").Cells(i, 1).Value
Next
For i = 2 To Sheets("Sayfa2").Range("C65536").End(xlUp).Row
ComboBox4.AddItem Sheets("Sayfa2").Cells(i, 1).Value
Next
End Sub

 

[msanli]

2. nolu mesajda bulunan dosyanın sorgulama işlemini sayfa1 d sütununa göre yapmak istiyorum.

 

[msanli]

2. nolu mesajda bulunan dosyanın sorgulama işlemini sayfa1 d sütununa göre yapmak istiyorum.

ekteki dosyada açıklamaları yaptım. yardımlarınızı bekliyorum