activex ile arama yapmak

[igultekin2000]

iyi akşamlar; userform kullanmadan sadece activex' ten combobox ve textbox oluşturarak Sayfa2' a firma arayıp Textbox ve ( özellikli) D1 hücresine getirme imkanı olabilir mi? userform' da yaptığım arama yöntemini uyguladım sonuç alamadım.

 

[Ömer BARAN]

Merhaba.

Soru pek anlaşılmıyor bence.

Combobox'ta listelenen nedir, bu listenin kaynağı neresidir?
Combobox'taki seçime göre TextBox'a Sayfa2'deki neyin gelmesi lazım?
.

 

[igultekin2000]

Merhaba.

Soru pek anlaşılmıyor bence.

Combobox'ta listelenen nedir, bu listenin kaynağı neresidir?
Combobox'taki seçime göre TextBox'a Sayfa2'deki neyin gelmesi lazım?
.

haklısınız yanış dosyayı yüklemişim. dosyayı güncelledim. Sayfa2' deki firmaları combobox' a arayarak Textbox vey D1 hücresine yazdırmak.

 

[Ömer BARAN]

Hakikaten örnek belgenizden bir şey anlaşılmıyor ve
sorduklarımın cevabı hala yok, Combobox boş, Sayfa2'de sadece A sütununda veri var (örnek belge eskisinin aynısı)

Her neyse, ben anladığımı önereyim.
Alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi eçin, açılan VBA ekranında sağdaki oş alana aşağıdaki kodları yapıştırın.
Sayfa1 dışında bir ayfaya geçip, tekrar Sayfa1'e dönün (ilk kez gerekli)
.

Private Sub Worksheet_Activate()
    ComboBox1.ListFillRange = "Sayfa2!A2:A" & Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row
End Sub

Private Sub ComboBox1_Change()
    TextBox1 = ComboBox1
    [D1] = ComboBox1
End Sub

 

[igultekin2000]

Hakikaten örnek belgenizden bir şey anlaşılmıyor ve
sorduklarımın cevabı hala yok, Combobox boş, Sayfa2'de sadece A sütununda veri var (örnek belge eskisinin aynısı)

Her neyse, ben anladığımı önereyim.
Alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi eçin, açılan VBA ekranında sağdaki oş alana aşağıdaki kodları yapıştırın.
Sayfa1 dışında bir ayfaya geçip, tekrar Sayfa1'e dönün (ilk kez gerekli)
.

Private Sub Worksheet_Activate()
    ComboBox1.ListFillRange = "Sayfa2!A2:A" & Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row
End Sub

Private Sub ComboBox1_Change()
    TextBox1 = ComboBox1
    [D1] = ComboBox1
End Sub

Teşekkür ederim , sorunsuz çalışıyor. Hayırlı akşamlar.

 

[Ömer BARAN]

Kolay gelsin.