LİSTBOX'DAN VE SAYFADAN SİLMEK

[cocoa35]

Üstatlar merhaba ekli örnek dosyada açılan UserForm'da bulunan ListBox'da işaretlemiş olduğum satırı yine UserForm 'daki "Araç Sil " butonu ile silmek istiyorum, butona tıkladığımda hem listbox'dan hemde sayfadan silinmesini istiyorum bu konuda yardım lütfen

 

[byfika]

Merhabalar,
Araç sil butonuna (CommandButton5) alttaki kodları yazıp dene misiniz?

For i = 0 To Me.ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sayfa1.Range("A" & Me.ListBox1.ListIndex + 4 & ":S" & Me.ListBox1.ListIndex + 4).Delete Shift:=xlUp
Me.ListBox1.RowSource = "Araclar!A4:S" & Sayfa1.Range("A104000").End(xlUp).Row
End If
Next i

 

[ÖmerFaruk]

Denemeden yazıyorum. byfikanın gösterdiği kodda şu satırı kodların en altına taşımanız daha mantıklı olacak.

For i = 0 To Me.ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Sayfa1.Range("A" & Me.ListBox1.ListIndex + 4 & ":S" & Me.ListBox1.ListIndex + 4).Delete Shift:=xlUp
    End If
Next i
Me.ListBox1.RowSource = "Araclar!A4:S" & Sayfa1.Range("A104000").End(xlUp).Row

 

[cocoa35]

For i = 0 To Me.ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sayfa1.Range("A" & Me.ListBox1.ListIndex + 4 & ":S" & Me.ListBox1.ListIndex + 4).Delete Shift:=xlUp
Me.ListBox1.RowSource = "Araclar!A4:S" & Sayfa1.Range("A104000").End(xlUp).Row
End If
Next i

By Fika çok teşekkürler gayet güzel olmuş

 

[byfika]

Rica ederim. İyi çalışmalar