Silme işlemi yaparken verinin bulunduğu sayfadaki satırı değilde aktif çalışma sayfasındaki satır siliyor.

sinnernekolens

Altın Üye
Katılım
23 Temmuz 2009
Mesajlar
308
Excel Vers. ve Dili
Ofis 2019 - Türkçe 64bit
iyi günler, Aşağıdaki kod ile silme işlemi yaparken verinin bulunduğu sayfadaki satırı değilde aktif çalışma sayfasındaki satır siliyor.

Yardımlarınızı rica ederim

Private Sub CommandButton3_Click() 'veri sil butonu

Dim sor As String, c As Range

If TextBox1.Text = "" Then 'ad soyad nesnesi boş ise
MsgBox "Önce Veri Seçmeniz Gerekir", vbCritical, "U Y A R I !" 'mesajını ver
Exit Sub 'işlemi sonlandır
End If

sor = MsgBox("Kayıt Silinecek...Devam Edilsin mi?", vbYesNo, "U Y A R I !")
If sor = vbNo Then 'sorulan mesaja hayır cevabı verilirse
FormuTemizle 'giriş bölümünü temizle
Exit Sub 'işlemi sonlandır
End If

On Error GoTo atla 'hata varsa atla
Set b = Sheets("GEMI").Range("F:F").Find(ListBox1.List(ListBox1.ListIndex, 5), , xlValues, xlWhole) 'tıklanan hücrenin veri sayfasın
'f sütunundaki sıra numarasını bulmak için find ile arama yapılır.
If Not c Is Nothing Then
Rows(c.Row).Delete 'bulduğu satırı siler.
End If

FormuTemizle 'giriş bölümündeki değerler temizlenir
UserForm_Initialize 'form açılış kodu çalışır
atla:

End Sub
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Silme işlemini yapan satırın önüne sayda adını tanımlayın.

Sheets("GEMI").Rows(c.Row).Delete

Gibi.
 
Son düzenleme:
Katılım
19 Ağustos 2017
Mesajlar
174
Excel Vers. ve Dili
2016 TR
@sinnernekolens efendim geçen sene yaşadığım çk güzel bir anımı hatırlattınız bu soruyla teşekkkür ederim :D :D
tam 24 saat :D
 
Üst