[Yardım]  Listbox tan listbox a veri aktarma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Listbox tan listbox a veri aktarma

İleti#1)  erciyan » 12 Şub 2019 10:26

Arkadaşlar
bir listbox ta 1,2,3,4,5 olsun

ikinci listbox a aynı sırada veriyi bir butonla aktarmak istiyorum.

yardım edebilirmisiniz.
Kullanıcı avatarı
erciyan
Yeni Başlamış
 
Kayıt: 01 Arl 2017 20:42
Meslek: makine mühendisi
Yaş: 42
İleti: 78
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmit /merkez

Cevap: Listbox tan listbox a veri aktarma

İleti#2)  Kasnic » 13 Şub 2019 08:25

Seçerek aktarabilmek için örnek kod:
Kod: Tümünü seç
Private Sub UserForm_Initialize()
    ListBox1.RowSource = "A1:A" & Cells(65536, 1).End(xlUp).Row
    ListBox1.ListStyle = fmListStyleOption
    ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
'
Private Sub CommandButton1_Click()
    ListBox2.Clear
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ListBox2.AddItem ListBox1.List(i)
        End If
    Next
End Sub
Kullanıcı avatarı
Kasnic
Siteye Alışmış
 
Kayıt: 19 Nis 2018 15:39
Meslek: Satınalma
Yaş: 30
İleti: 160
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Listbox tan listbox a veri aktarma

İleti#3)  erciyan » 13 Şub 2019 10:36

Çok teşekkür ederim.

Seçili olanları diğer tarafa aktarırken list1 den silinmesini istiyorum.
Move olması yani bu konudada yardımcı olabilirmisiniz.

Sağolun.
Kullanıcı avatarı
erciyan
Yeni Başlamış
 
Kayıt: 01 Arl 2017 20:42
Meslek: makine mühendisi
Yaş: 42
İleti: 78
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmit /merkez

Cevap: Listbox tan listbox a veri aktarma

İleti#4)  Kasnic » 14 Şub 2019 09:19

Deneyiniz.
Kod: Tümünü seç
Private Sub UserForm_Initialize()
For veri = 1 To Sayfa1.[a65536].End(3).Row
ListBox1.AddItem Cells(veri, "a")
Next veri
    ListBox1.ListStyle = fmListStyleOption
    ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub CommandButton1_Click()

    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) = True Then
            ListBox2.AddItem ListBox1.List(i)
            ListBox1.RemoveItem (i)
       End If
       Next i
 
End Sub
Kullanıcı avatarı
Kasnic
Siteye Alışmış
 
Kayıt: 19 Nis 2018 15:39
Meslek: Satınalma
Yaş: 30
İleti: 160
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 1 misafir

Bumerang - Yazarkafe