Listbox seçilenleri sakla ve hücreye yazdır

[volume01]

selam,
ekteki dosyamda bulunan listboxda seçili isimlerin, kaydet kapat dediğimde ve tekrar açtığımda önceki seçimle kalmasını ve yan taraflarda bulunan hücrelere yazdırmasını istiyorum. bir kaç kod denedim ama muvaffak olamadım.

şimdiden teşekkürler herkese.

 

[volume01]

arkadaslar, yardımcı olabilecek kimse yok mu? en azından seçimleri nasıl saklarım?

 

[volume01]

teşekkürler herkese yine de.

 

[Turan43]

2008 den beri cevap veren olmamış.
Bende bu sorunun cevabını arıyorum. Bilgisi olan arkadaşlar açıklama yapabilirmi?

 

[bedersu]

Merhaba,
Öncelikle cevap sadece 3 gün gecikmiş onu belirteyim )
Listbox1'in listindex'ini bir hücreye yazıp oradan tekrar çağırarak bu sorunu halledebiliriz sanırım.


Private Sub CommandButton1_Click()

Dim x As Integer
For x = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(x) = True Then
Range("A1") = x
End If
Next
ListBox1.Selected(Range("A1").Value) = True

End Sub

Private Sub UserForm_Deactivate()
Range("A1") = ListBox1.ListCount
End Sub

Private Sub UserForm_Initialize()
ListBox1.Selected(Range("A1").Value) = True
End Sub