Çoklu seçim ile hücreye veri girişi

[zafer007]

Merhaba arkadaşlar

Şöyle birşey yapmak istiyorum ama tam istediğim gibi olmadı örneğin kişi İl başlıklı hücreye biryerden veya nasıl olur bilmiyorum (Listbox,combobox vs.) ama bir listedeki verileri birden fazla seçerek örnek; İSTANBUL - ANKARA - İZMİR gibi a2 hücresine eklesin.. yardımlarınızı rica ediyorum.

 

[zafer]

Merhaba


Ekli dosyayı inceleyiniz.

 

[zafer007]

Sn. Zafer

İlginiz için teşekkürler ederim. Bunu sabit bir yere değil de seçilen yere bilgiyi aktarmasını nasıl yapabilirim.

 

[zafer]

Merhaba

cells(2,1)=uzl olan satırı

aşağıdaki satır ile değiştiriniz.
ActiveCell = uzl

hücre seçtikten sonra liste kutusundan seçimiznizi yapınız.

 

[zafer007]

Çok teşekkürler..

 

[zafer007]

Merhaba..

Hücreyi seçmeden Listeleye bastığında hata veriyor, bunun yerine hata mesajı msgbox ile nasıl ekleyebilirim ?

 

[zafer007]

Yani tam olarak yapmak istediğim şey, İli seçmeden Listeleye tıkladığında hata veriyor ben bunun yerine msgbox ile lütfen ili seçiniz diye mesaj vermek istiyorum.

 

[zafer]

Merhaba

Private Sub CommandButton1_Click()
Dim i   As Long
[COLOR=red][B]On Error GoTo 10[/B][/COLOR]
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) = -1 Then
            trz = trz & "-" & .List(i)
                        .Selected(i) = 0
        End If
    Next
    uzl = Mid(trz, 2, (Len(trz) - 1))
   ActiveCell = uzl
End With
[COLOR=red][B]Exit Sub[/B][/COLOR]
[COLOR=red][B]10:[/B][/COLOR]
[COLOR=red][B]MsgBox ("Lütfen Listeden Seçim yapınız")[/B][/COLOR]
End Sub

 

[zafer007]

Sn. Zafer

Çok teşekkürler tekrar..

 

[Costcost]

Merhabalar,
Bu örneğin combobox şekli varmıdır acaba elinizde. listbox gayet güzel olmuş seçimle beraber. ihtiyacım olan combobox'ta çoklu seçim yapabilmek. aynı listbox kısmında olduğu gibi. ilgilenen arkadaşlara şimdiden teşekkür ederim.