silme işlemi problemi

[korhan86119]

Merhaba üstadlar,

Userformda normal şartlarda değiştirme ve silme işlemlerini yaptırıyorum.Ancak sorgulama sonrası silme işlemi yaptığımda en üst satırdaki veriyi siliyor.Yardımlarınızı bekliyorum.

 

[korhan86119]

Yardım edecek yokmu?

 

[vardar07]

Yardım edecek yokmu?

Merhaba. Düzeltmenizi görmeden mesaj yazmıştım. İlgi görmek dileğimle.

 

[ExcelF1]

xls ekleyebilir misiniz ?

 

[korhan86119]

İlginiz için çok teşekkür ederim.dosyayı ekledim.şifre korhan86119

 

[Emir Hüseyin Çoban]

. . .

Silme butonundaki kodları bunlar ile değiştirerek deneyiniz.
İlave ettiklerimi kırmızı ile belirttim.

Private Sub CommandButton3_Click()
'Seçilen kaydı sil butonuna basıldığında yapılacak işlemler.
sor = MsgBox("Silmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sat = ListBox1.ListIndex + 2
ListBox1.RowSource = "B2:f" & [a65536].End(3).Row
'Range("A" & sat & ":F" & sat).Delete
'B ve I sutunları En satır numarası ile birleştiriliyor.
'silincek hücre adresleri bulunuyor.
'B sütunu ve I sutunu arasında kalan hücreler siliniyor.

[COLOR="Red"]'''
Application.ScreenUpdating = False
son = Sheets("Veri").[B65536].End(3).Row

For i = 1 To son
If Cells(i, "B") Like TextBox1 And _
Cells(i, "C") Like TextBox2 And _
Cells(i, "D") Like TextBox3 And _
Cells(i, "E") Like TextBox4 And _
Cells(i, "F") Like TextBox5 Then

Rows(i).Delete
Else: End If
Next i
Application.ScreenUpdating = True
'''[/COLOR]
UserForm_Initialize
'user formun initalize çalıştırılıyor.
CommandButton5_Click
'CommandButton5_Click olayı çalıştırılıyor.

MsgBox "SEÇİLEN VERİ SİLİNMİŞTİR"
End Sub

. . .

 

[korhan86119]

İyiki varsınız.Çok teşekkür ederim.

 

[korhan86119]

Merhaba,
filtreleme sonrası değiştirme işleminde sıkıntı yaşıyorum.Değiştirme işlemini yapıyor ancak eski veri silinmiyor.

 

[Emir Hüseyin Çoban]

. . .

Sanırım filtreleme işlemini tablonuza sonradan ilave ettiniz.
Çünkü Listbox listeleme mantığı ile aynı şekilde çalışmıyor.
Bu yüzden hata alıyorsunuz.

. . .