Listview de checkbox ile silme

[osmanli2]

Sayın Üstadlar; Userform listview üzerindeki checkbox lardan işaretlenenleri önce; "b "sayfasına kopyalayarak sonra da "a" sayfasından silinmesini istiyorum. Yardımlarınız için şimdiden teşekkürler. Örnek dosya ektedir.

 

[Erhan Üstünel]

commandbutton 1 e aşağıdaki kodu eklerseniz a sayfasından sadece siler,
b sayfasına aktarmak için silme değilse taşıma yada aktarma ile ilgili kod arayabilirsiniz..

Private Sub CommandButton1_Click()

'kayıt sil
Dim cvp As String
Dim s, y As Long
Dim A As Integer
Dim ara As Range

A = 0
For s = 1 To ListView1.ListItems.Count
If ListView1.ListItems(s).Checked = True Then
A = A + 1
End If
Next s
If A = 0 Then
MsgBox " SİLMEK İÇİN ÖNCE ÜRÜN SEÇMELİSİNİZ.  ", , " not "
Exit Sub
End If
If A > 5 Then
MsgBox " GÜVENLİK AÇISINDAN BİR SEFERDE EN ÇOK 5 SATIR SİLİNEBİLİR.  ", , " not "
Exit Sub
End If

cvp = MsgBox(" SEÇİLEN KAYITLARI KALICI OLARAK SİLMEK İSTİYORMUSUNUZ?  ", vbYesNo, " not ")
If cvp = vbYes Then

For y = 1 To ListView1.ListItems.Count
If ListView1.ListItems(y).Checked = True Then
Set ara = Sheets("a").Range("a2:a65536").Find(ListView1.ListItems(y), , xlValues, xlWhole)
If Not ara Is Nothing Then
    Range("A" & ara.Row & ":J" & ara.Row).Delete Shift:=xlUp
    y = y - 1
End If
Else
End If
Next

Else
MsgBox " SİLME İŞLEMİ İSTEĞİNİZ ÜZERE İPTAL EDİLDİ.  ", , " not "
Exit Sub
End If
MsgBox " SEÇİLEN KAYITLAR VERİ TABANINDAN KALDIRILDI.  ", , " not "
UserForm_Initialize
End Sub

 

[osmanli2]

sayın barabba, silmeden önce "b"sayfasına silineceklerin kopyasını alabilirmiyiz.

 

[osmanli2]

sayın barabba, silmeden önce "b"sayfasına silineceklerin kopyasını alabilirmiyiz.

 

[Erhan Üstünel]

çok fazla bilgim olmamakla beraber, bende örnek bi çalışmadan alıntı yaparak yazdım sizin formülü,listvievde aktarma diye aratırsanız örnekler bulabilirsniz,

 

[Erhan Üstünel]

merhaba, ekli dosyayı inceleyin, sanırım istediğiniz buydu