[Yardım]  ListBox ta seçilenleri hücrelere sırasıyla aktarma

Verilerinizi listeleyebileceğiniz liste kutusu

ListBox ta seçilenleri hücrelere sırasıyla aktarma

İleti#1)  okutkan » 02 Eyl 2018 11:09

Ekteki fotoğraftaki gibi bir çalışmam var. Bu çalışmada listboxta bulunan verileri belirli hücrelere sırasıyla yazdırmak istiyorum. Seçim kaldırıldığında hücredeki veri silinecek ve sıralama tekrar boş hücreyi doldurarak başlayacak. yani arada boş hücre kalmaması gerekiyor. yardımlarınızı bekliyorum. [TESEKKÜR]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
okutkan
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 26
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mardin

Cevap: ListBox ta seçilenleri hücrelere sırasıyla aktarma

İleti#2)  Ali ÖZ » 03 Eyl 2018 22:32

Kod: Tümünü seç
satir = 5 : sutun = 6
for i = 0 to listbox1.listcount-1
  if listbox1.selected(i) then
    cells(satir,sutun).value = listbox1.list(i,0)
    satir = satir+1
  end if
next
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: ListBox ta seçilenleri hücrelere sırasıyla aktarma

İleti#3)  okutkan » 11 Eyl 2018 23:31

Teşekkürler. Verdiğiniz kod ile sadece 5. satır 6. sütuna listbox üzerinde tekli seçimi yazıyor. multi select seçeneğini "fmMultiSelectMulti" yaptığımda seçili olanları hücreye girmiyor. Sadece tekli seçim olduğunda giriyor.

Benim yapmak istediğim; Listbox un multi select seçeneğini aklifleştirip,

listbox ta 1 tane madde seçtiğimde 'sayfa2 5. satıra' yazsın,
listbox ta 2 tane madde seçtiğimde 'sayfa2 6. satıra' yazsın, ....
..... listboxta 12 tane madde seçtiğimde 'sayfa2 16.satıra' yazsın.
ve bu satırları doldurarak aşağı doğru yapsın.

Yardımcı olursanız sevinirim [TESEKKÜR]
Kullanıcı avatarı
okutkan
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 26
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mardin

Cevap: ListBox ta seçilenleri hücrelere sırasıyla aktarma

İleti#4)  Ali ÖZ » 14 Eyl 2018 12:28

Dosya hazırladım inceleyin.

Kod: Tümünü seç
For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) Then
    Sheets("Sayfa3").Range("a65536").End(3)(2, 1).Value = ListBox1.List(i, 0)
    Sheets("Sayfa3").Range("b65536").End(3)(2, 1).Value = ListBox1.List(i, 1)
    Sheets("Sayfa3").Range("c65536").End(3)(2, 1).Value = ListBox1.List(i, 2)
  End If
Next
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

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

Cevap: ListBox ta seçilenleri hücrelere sırasıyla aktarma

İleti#5)  okutkan » 15 Eyl 2018 18:12

Ali bey, forum yöneticilerinden birinin hazırladığı, Listbox ta seçilenleri hücreye aktarma kodlarını kullanarak bişeyler yaptım fakat tam olarak halledemedim. Aşağıda eklediğim projede Userform hazırladım ve yöneticinin paylaştığı kodları yazdım. O kodlar üzerinde düzenleme yapabilmeniz mümkün mü acaba? Orijinal kodlarda yan yana bulunan adı soyadı ... ... gibi dört sütunu alıyordu fakat benim yapacağım şey tek sütunu kapsıyor. Eklediğim projede çalışma sayfalarında açıklamalar yaptım.(kodlar userform2 içerisinde)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
okutkan
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 26
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mardin

Cevap: ListBox ta seçilenleri hücrelere sırasıyla aktarma

İleti#6)  Ali ÖZ » 15 Eyl 2018 22:37

Kod: Tümünü seç
Private Sub CommandButton1_Click()
sat = 30
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Sheets("sayfa2").Range("b" & sat).Value = ListBox1.List(i, 0)
        Sheets("sayfa3").Range("b" & sat).Value = ListBox1.List(i, 0)
        sat = sat + 1
    End If
  Next
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: ListBox ta seçilenleri hücrelere sırasıyla aktarma

İleti#7)  okutkan » 16 Eyl 2018 10:08

Ali Bey çok teşekkür ederim tam isdeğim gibi olmuş [TESEKKÜR]
Kullanıcı avatarı
okutkan
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 26
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: mardin


Forum ListBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe