listbox ta multiselect

[sbkstk]

merhabalar

ekte ornek gonderdigim dosyada listbox ta sectigim birden fazla veriyi yazici sayfasina gondermek istiyorum bu konuda yardimci olabilirmisiniz

biraz daha acarsam mesela listbox 1.satirdaki isim detaylarini yazici sayfasinda a2 b3 d8 gibi yerlere yazdirabilmek icin yardim isitiyorum

 

[Korhan Ayhan]

Merhaba,

Lütfen başlığınızı forum kurallarına uygun şekilde düzeltiniz.

 

[Orion1]

Eklediğim dosyayı olurmu?.

Private Sub CommandButton9_Click()
Dim i  As Long, sat As Long, s1 As Worksheet, s2 As Worksheet
Dim k  As Integer, sut As Integer
If ListBox1.ListCount < 1 Then Exit Sub
Set s1 = Sheets("data")
Set s2 = Sheets("yazici")
sat = s2.Cells(65536, "A").End(xlUp).Row
sut = 3
Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).ClearContents
For i = 0 To ListBox1.ListCount - 1
     If ListBox1.Selected(i) = True Then
            s2.Cells(2, sut).Value = ListBox1.List(i, 0)
            s2.Cells(2, sut + 1).Value = ListBox1.List(i, 4)
            sut = sut + 2
    End If
Next i
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[sbkstk]

merhabalar

cevabiniz icin tesekkurler

siz verileri satir satir almissiniz

benim tam olarak istedigim mesela ilk satiri sectigimizde ilk satirdaki degerleri yazicida bir form olusturacam bu satirdaki veriler o formda ilgili yerlere gelecek anlatabildimmi acaba

mesela data sayfasindaki b sutunundaki veri yazicida b2 ye , c sutunundaki veri c4 e, d sutunundaki veri g2 ye gibi

 

[sbkstk]

Merhaba,

Lütfen başlığınızı forum kurallarına uygun şekilde düzeltiniz.

nasil duzeltmem gerekiyor kusura bakmayin yanlis yapti isem

 

[Orion1]

merhabalar

cevabiniz icin tesekkurler

siz verileri satir satir almissiniz

benim tam olarak istedigim mesela ilk satiri sectigimizde ilk satirdaki degerleri yazicida bir form olusturacam bu satirdaki veriler o formda ilgili yerlere gelecek anlatabildimmi acaba

mesela data sayfasindaki b sutunundaki veri yazicida b2 ye , c sutunundaki veri c4 e, d sutunundaki veri g2 ye gibi

peki 1 tane seçerseniz öyle yapayım.
Ama 1 den çok seçim yaparsam o zaman nasıl olacak.Onlar nereye yazılcak.
mesela 3ncü-4ncü ve 5nci satırı seçtim ne olacak o zaman.?

 

[sbkstk]

secilen her satir icin ayri bir yer tanimlayabilirmiyiz

 

[Orion1]

secilen her satir icin ayri bir yer tanimlayabilirmiyiz

Nasıl bir yer tanımlayacaz ki.
listboxtan zeçilen satırların arasına 2 boşluk bırakıp devam etsem olurmu.
Birde veriler yazici sayfasında yazdırmadan önce eski veriler silenecekmi yoksa onların altındanmı devam edecek?

 

[sbkstk]

soyleki olurmu bilmiyorum tabi

mesela

listboxtaki 1 nolu satirin verilerinde a sutunundaki veri c2 ye, b sutunundaki f4e gibi
listboxtaki 2 nolu satirin verilerinde a sutunundaki veri g2 ye, b sutunundaki z4e gibi
....

bunun gibi

 

[Orion1]

soyleki olurmu bilmiyorum tabi

mesela

listboxtaki 1 nolu satirin verilerinde a sutunundaki veri c2 ye, b sutunundaki f4e gibi
listboxtaki 2 nolu satirin verilerinde a sutunundaki veri g2 ye, b sutunundaki z4e gibi
....

bunun gibi

Dosyada istediğiniz değişikliği yaptım.
3 nolu mesajdan dosyayı indirebilirisniz.

 

[sbkstk]

tesekkurler