userformdan sayfadaki satırı silme hk.

[kemal turan]

Merhaba,
Yapmak istediğim
anasayfa userformunda textbox15 value ye denk gelen hareketler sayfasının A sutunundaki satırı komple silsin.
Aşağıdaki kodu forumdan bulup uyarlamaya çalıştım.Ama bir sonraki satırı siliyor.
Yardımlarınız için teşekkürler.
Hayırlı bayramlar.

Private Sub CommandButton10_Click()
Set S3 = Sheets("HAREKETLER")
sor = MsgBox("SATIŞ SATIRI SİLİNECEK. ONAYLIYORMUSUNUZ..", vbYesNo)
If sor = vbNo Then Exit Sub
Dim bul As Range
For Each bul In Sheets("HAREKETLER").Range("A2:A" & S3.Range("A65536").End(3).Row)
If bul.Value = Anasayfa.TextBox15.Text Then
Rows(bul.Value).Delete
End If
Next bul
MsgBox "SATIŞ SATIRI SİLİNMİŞTİR."

End Sub

 

[kemal turan]

Merhaba,
Forumdan bulduğum bir kod üzerine Listview e checkbox ekleyerek aşağıdaki kod ile sorunu çözebildim.
Teşekkürler.

Private Sub CommandButton10_Click()
Dim cvp As String
Dim s, y As Long
Dim A As Integer
Dim ara As Range

A = 0
For s = 1 To ListView2.ListItems.Count
If ListView2.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 ListView2.ListItems.Count
If ListView2.ListItems(y).Checked = True Then
Set ara = Sheets("HAREKETLER").Range("a2:a65536").Find(ListView2.ListItems(y), , xlValues, xlWhole)
If Not ara Is Nothing Then
    Range("A" & ara.Row & ":AA" & 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 "
End Sub

 

[Korhan Ayhan]

İlk verdiğiniz kodda "Rows(bul.Value).Delete" satırını aşağıdaki gibi değiştirirseniz istediğiniz sonuca ulaşabilirsiniz.

bul.EntireRow.Delete

 

[kemal turan]

Merhaba Korhan Hocam,
İlk önce veriyi listview den textboxlara alıp sonra veri tabanındaki satırı silmeye çalıştım.ilk kod o denemeye ait idi.
Sonra araştırırken direk listviewden silme kodu buldum.Kodları revize ederek
ek dosyada görüldüğü şekilde proje uyarladım.
Başlangıçta olan bu Proje hakkında bakıp yorum yaparsanız sevinirim.
Not. Korhan hocam bu silmeyi tüm satır değilde o satırdaki istenen sutun hücresini nasıl silebilirim.
Örnek: caralacak sahifesinde sadece yapılan ödemeyi silmek "ÖDENEN" sutununu istersem?

 

[Saban Sertkaya]

...................

 

[Korhan Ayhan]

64 Bit ofis kullandığım için ListView nesnesi bende çalışmıyor. Bu sebeple çalışmanızı inceleyemiyorum.

Bir hücrenin içeriğini silmek için aşağıdaki kodu kullanabilirsiniz.

Z1 hücresinin içeriğini siler.

Cells(1, "Z").ClearContents

 

[kemal turan]

Sn.Korhan bey,
Çok teşekkür ederim.
Selametle kalınız