bir sayfadan diger sayfaya listbox ile veri aktarma

[northcyprus]

SAYIN HOCALARIM VE ARKADAŞLAR,

Benim bu çalışmamda mutfatakipekranı diye bir userform var ve bu userform üstünde mutfaktakip listesi diye bi listbox var bu listbox a verileri EKLENENLER sayfasından rowsource özelligi ile alıyorum aldığım bu verileri sırasi ile gerek 2 satır gerek se 3 satır gerekse hepsini seçip gönder butonu ile GÖNDERİLENLER sayfasına alıp eklenenler sayfasından seçmiş olduğum satırları silmek istiyorum fakat sadece 1 satırı alabiyorum herşeyi denedim bi türlü beceremedim yardımlarınızı bekliyorum saygılarımla..

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub GÖNDER_Click()
    Dim Alan As Range
    
    With MUTFAKTAKİPLİSTESİ
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                Satir = Sheets("GÖNDERİLENLER").Cells(Rows.Count, 1).End(3).Row + 1
                Sheets("EKLENENLER").Range("A" & i + 1 & ":D" & i + 1).Copy Sheets("GÖNDERİLENLER").Cells(Satir, 1)
                If Alan Is Nothing Then
                    Set Alan = Sheets("EKLENENLER").Range("A" & i + 1)
                Else
                    Set Alan = Application.Union(Alan, Sheets("EKLENENLER").Range("A" & i + 1))
                End If
            End If
        Next i
    End With
    
    Alan.EntireRow.Delete
    
    Sheets("GİRİŞ").Select
    Range("A1").Select
End Sub

 

[northcyprus]

sayın hocam ellerinize sağlık çok teşekür ediyorum saygılarımla....