[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 09: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
Yeni Başlamış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 27
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

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

İleti#2)  Ali ÖZ » 03 Eyl 2018 20: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 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9703
 
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 21: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
Yeni Başlamış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 27
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

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

İleti#4)  Ali ÖZ » 14 Eyl 2018 10: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 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9703
 
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 16: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
Yeni Başlamış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 27
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

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

İleti#6)  Ali ÖZ » 15 Eyl 2018 20: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 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9703
 
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 08:08

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


Forum ListBox

Online Kullanıcılar

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

Bumerang - Yazarkafe