Listboxdaki seçili olan satırları başka bir sayfaya aktarmak

[BG]

Değerli arkadaşlar,
gece vakti kafam durdu sanıyorum, sizleri cok ugrastiracaksa onemli degil ben daha sonra halletmeye calisirim, forumda arattırdım bulamadım

problemim su ,

useformdaki command buton1 e tıklandıgında, listboxdaki sadece secili olan satırları sayfa2'nin B sutununa sırasi ile almak istiyorum, tesekkur ederim, herkeze iyi geceler dilerim.

 

[Ferhat Pazarçevirdi]

Commandbutton'un Click olay kodunu şu şekilde geliştiriniz.

Private Sub CommandButton1_Click()
    Dim i%, satir%
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                satir = satir + 1
                Sheets("Sayfa2").Cells(satir, "B") = .List(i)
            End If
        Next i
    End With
End Sub

 

[BG]

Merhaba

Hocam cok hızlısınız , bu saatte ugrastirdim sizi cok tesekkur ederim, kodlar herzamanki gibi mukemmel calisiyor cok sagolun,

iyi geceler dilerim.

 

[Ferhat Pazarçevirdi]

Hocam cok hızlısınız , bu saatte ugrastirdim sizi cok tesekkur ederim, kodlar herzamanki gibi mukemmel calisiyor cok sagolun,

iyi geceler dilerim.

Soru çalıştığım yerden gelmiştir Size de iyi geceler ...