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
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