userform üzerindeki listboxtan verileri alma

[northcyprus]

sayın hocalarım ve arkadaşlar,
benim MUTFAKTAKİPLİSTESİ.RowSource = "EKLENENLER!a1:d500" diye eklediğim bir listbox um var ve ben bunları bi buton vasıtası ile şu işlemi gerçekleştiriyorum

Private Sub GÖNDER_Click()
If MUTFAKTAKİPLİSTESİ.ListIndex >= 0 Then

Silinecek_Satir = MUTFAKTAKİPLİSTESİ.ListIndex + 1
Sheets("EKLENENLER").Rows(Silinecek_Satir).Range("A11").Copy

Sheets("GÖNDERİLENLER").Select
SON = Sheets("GÖNDERİLENLER").[A65536].End(3).Row + 1
Range("A" & SON).Select
ActiveSheet.Paste
Sheets("EKLENENLER").Select
Sheets("EKLENENLER").Rows(Silinecek_Satir).Delete
End If

Sheets("GİRİŞ").Select
Range("A1").Select


End Sub





yalnız bir yerde bi hata yapıyorum multi select i seçmeme rağmen hep tek satırı seçip silebiliyorum benim istediğim ayni anda birkaçtane satırı seçip içlemi gerçekleştirmek....

yardımlarınızı bekliyorum....

 

[suleyman242]

Sheets("EKLENENLER").Rows(Silinecek_Satir).Delete

burada parantez içindeki ifade tek bir rakam

    Rows("3:13").Select

aralık belirtirsen tüm aralığı siler

 

[northcyprus]

biliyorum sayın suleyman242 benim istediğim tam olarak bu değil birkaç tane satır derken satırlar belli değil yani her defasında değişkenlik gösteriyor yani örnek olarak 3. satır il 6. satırı seçmek istiyorum butona tıkladıgımda 3 ile 6. satırı diğer sayfaya kopyalayıp listbox tan silmesi gerekiyor. bilmem anlatabildim mi??

 

[suleyman242]

ilk mesaj

tek satırı seçip silebiliyorum benim istediğim ayni anda birkaçtane satırı seçip içlemi gerçekleştirmek....
yardımlarınızı bekliyorum....

ikinci mesaj

biliyorum sayın suleyman242 benim istediğim tam olarak bu değil birkaç tane satır derken satırlar belli değil yani her defasında değişkenlik gösteriyor yani örnek olarak 3. satır il 6. satırı seçmek istiyorum butona tıkladıgımda 3 ile 6. satırı diğer sayfaya kopyalayıp listbox tan silmesi gerekiyor. bilmem anlatabildim mi??

Estağfurullah siz gayet iyi anlatmıssınız ben anlıyamamışım cahilliğime verin

 

[northcyprus]

böyle de olmadı ben dosyayı ekleyim bi bakın isterseniz.