1. ComboBox'ta seçilen veri 2. ComboBox'ta görünmesin

[ali8686]

Selamlar,

Uğraştığım ufak bir programla ilgili kafama takılan, daha doğrusu olsa güzel olur dediğim bir olay var. Userformda 2 adet combobox'ım var. Sheet1 de A1:A10 aralığındaki verileri her iki combobox ile de seçebiliyorum. Sorum şu şekilde:

ComboBox1 ile seçtiğim veri combobox2'ye tıkladığım zaman görünmesin. Yani aynı veriyi iki defa seçemesin kullanıcı.

Sizce nasıl yapılabilir?

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Click()
ComboBox2.Clear
ComboBox2.List = ComboBox1.List
ComboBox2.RemoveItem (ComboBox1.ListIndex)
ComboBox2.ListIndex = 0
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 10
    ComboBox1.List = Range("A1:A10").Value
    ComboBox2.List = Range("A1:A10").Value
Next
End Sub

 

[Ergün Güler]

Selamlar,

Uğraştığım ufak bir programla ilgili kafama takılan, daha doğrusu olsa güzel olur dediğim bir olay var. Userformda 2 adet combobox'ım var. Sheet1 de A1:A10 aralığındaki verileri her iki combobox ile de seçebiliyorum. Sorum şu şekilde:

ComboBox1 ile seçtiğim veri combobox2'ye tıkladığım zaman görünmesin. Yani aynı veriyi iki defa seçemesin kullanıcı.

Sizce nasıl yapılabilir?

Selam,
dosyanız ektedir. İnceler misiniz?
İyi çalışmalar.

 

[ali8686]

Ergün Bey, Evren Bey,

Ellerinize sağlık çok teşekkür ederim.

 

[Ergün Güler]

Ergün Bey, Evren Bey,

Ellerinize sağlık çok teşekkür ederim.

Biz teşekkür ederiz.

İyi çalışmalar.

 

[Ergün Güler]

Dosyanız ektedir.

Private Sub ComboBox1_Click()
ComboBox2.Clear
ComboBox2.List = ComboBox1.List
ComboBox2.RemoveItem (ComboBox1.ListIndex)
ComboBox2.ListIndex = 0
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 10
    ComboBox1.List = Range("A1:A10").Value
    ComboBox2.List = Range("A1:A10").Value
Next
End Sub

Selam Evren Gizlen Hocam,
Alternatif kodlarınız için çok teşekkür ederiz.
Bu arada musaadenizle birşey sormak istiyorum;
ListView'e de döngü kurmadan veri almak mümkün müdür?
mesela A2:H100 aralığı gibi.

İyi çalışmalar.