ListBox

[muratgunay48]

Arkadaşlar, sayın hocalarım, hücreyi TextBox'ta göstermek tamam.
Sayfa 1 A1 hücresine veri doğrulama ile veri getirdim. ListBox'ta bu A1 hücresini göstermek mümkün mü?
Yalnız burada amaç LixtBox'a Sayfa 2'deki listeyi göstermek değil. Onu biliyorum.
Direkt A1 hücresini görecek ve oradaki verileri verecek.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub UserForm_Initialize()
    Me.ListBox1.RowSource = "Sayfa1!A1"
End Sub

 

[muratgunay48]

Deneyiniz.

Private Sub UserForm_Initialize()
    Me.ListBox1.RowSource = "Sayfa1!A1"
End Sub

Hocam öncelikle emeğinize sağlık. Yalnız sadece UserForm gözükecek. Yani seçimi ListBox'tan yapmak mümkün mü?

 

[Korhan Ayhan]

Sanırım ben sorunuzu anlamadım..

 

[muratgunay48]

Sanırım ben sorunuzu anlamadım..

Hocam çok ama çok özür dilerim. Combobox yani seçilecek. Nasıl ListBox yazdım. Adı list olduğu için. Boşu boşuna uğraştırdım.
Hocam excel dosyasının gözükmediğini farz edin. Sadece UserForm gözüküyor. A1 hücresi online aldığı için, Atıyorum bu durumda illeri UserForm üzerinden Combobox ile seçmek gerekiyor.
Hocam yardımcı olabilirseniz çok sevinirim. Tekrar özrümü kabul edin.

 

[hamitcan]

Private Sub UserForm_Initialize()
    Me.ComboBox1.RowSource = "Sayfa1!A1"
End Sub

bu şekilde deneyin

 

[muratgunay48]

Private Sub UserForm_Initialize()
    Me.ComboBox1.RowSource = "Sayfa1!A1"
End Sub

bu şekilde deneyin

Hocam teşekkür ederim. Yalnız tek il çıkıyor. ComboBox ile arama yapmak, yani A1'deki listenin orada da bulunmasını istiyorum.

 

[dEdE]

Bir de böyle deneyelim.

Private Sub UserForm_Initialize()
    Me.ComboBox1.RowSource = "Sayfa1!A1:A" & Cells(Rows.Count, "A").End(3).Row
End Sub

 

[Korhan Ayhan]

Sizin kaynak listeniz Sayfa2 de bulunuyor. Bu sebeple kod içinde bu sayfayı kullanmanız daha uygun olacaktır.

Private Sub UserForm_Initialize()
    Me.ComboBox1.RowSource = "Sayfa2!A1:A" & Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row
End Sub

 

[muratgunay48]

Sizin kaynak listeniz Sayfa2 de bulunuyor. Bu sebeple kod içinde bu sayfayı kullanmanız daha uygun olacaktır.

Private Sub UserForm_Initialize()
    Me.ComboBox1.RowSource = "Sayfa2!A1:A" & Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row
End Sub

Sizin kaynak listeniz Sayfa2 de bulunuyor. Bu sebeple kod içinde bu sayfayı kullanmanız daha uygun olacaktır.

Private Sub UserForm_Initialize()
    Me.ComboBox1.RowSource = "Sayfa2!A1:A" & Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row
End Sub

Hocam teşekkür ederim.