Seçilen Verilerin Sıralı Aktarımı

[1Al2Ver]

Merhaba,

UserForm'da konuşlu ListBox'a alınan yemeklerden, üzerlerine tıklayarak seçim yapıyorum,

Birden fazla yapılan seçimleri, seçim sırasına göre ilgili sütunda, son dolu satırın hemen altına, kayıt etmesini arzuluyorum,

Daha geniş anlatımlı ve örnekli dosya ek'tedir.

Teşekkür ederim.

 

[Orion1]

Önce dizi oluşturun.
Sonra listboxtan diziye aktarın.
Sonra diziden sayfaya aktarın.

 

[1Al2Ver]

Sayın Orion1 merhaba,

İlginiz ve önerileriniz için teşekkür ederim,

Dosyadaki kodu ben yazmadım, isteğim üzerine saygın bir üyemiz oluşturdu,

Kod yazmada-oluşturmada pek deneyimim yok, ancak basit kodlarda az da olsa tahliller yapabiliyorum, ama dizi oluşturmak-listboxa oradan da sayfaya aktarmayı, bu kıt bilgim ile yapacağımı sanmıyorum,

ListBox'ın "VERİLER" sayfası "C" sütunundan aldığı veri, "C1" e girilen Yemek Grubuna Göre "C2:C" aralığına formüller ile geliyor,

Orj.dosyamda "C" sütunundan alınan veri ; "X" sütununda,

Dolayısıyla, "C1" e girilen Yemek Grubu "X1", formüller de "X2:X" aralığında,

Yukarıda ifade etmeye çalıştığım kriterler önemli ve gerekli ise, yeni bir örnek dosya ekleye bilirim,

Yardımlarınızı rica ediyorum,

Teşekkür ederim.

 

[Orion1]

Buyurun.

Private Sub CommandButton1_Click()
Dim i As Long, myarr(), s As Long, adrs As String, sut As String
ReDim myarr(0 To ListBox1.ListCount - 1, 0 To 0)
sut = Sheets("YEMEK_LİSTESİ").Range("B2").Value
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        myarr(s, 0) = ListBox1.List(i, 0)
        s = s + 1
    End If
Next i
sat = Sheets("YEMEK_LİSTESİ").Cells(Rows.Count, sut).End(xlUp).Row + 1
Sheets("YEMEK_LİSTESİ").Cells(sat, sut).Resize(s, 1) = myarr
i = Empty
End Sub

 

[1Al2Ver]

Sayın Orion1, merhaba,

İlginiz ve nezaketiniz için teşekkür ederim,

Şayet ben bir yanlış düzenleme yapmadıysam , kod, aktarmayı seçilen sıraya göre yapamıyor,

Ek'li dosyada örnekledim,

Zamanınız olurda kod'da düzenleme yaparsanız, memnun olurum,

Tekrar teşekkür ederim.

 

[veyselemre]

Vba da seçim sırasını hatırlama özelliği bildiğim kadarıyla yok. Gelişmiş dillerde var hatta tesadüfi olarak farkettiğimde şok olmuştum.
Seçim sırası hafızada tutulabilir, ancak seçimden vazgeçtiğiniz bir çeşitten sonra bunu düzenlemek zor olabilir. Onun için sıralamayı yandaki bir listbox ta görerek aktarmak en sorunsuzu olur.

 

[1Al2Ver]

Sayın veyselemre, merhaba,

İlginiz, bilgilendirmeleriniz ve çözüm için çok teşekkür ederim, sağ olun.

Saygılarımla.