• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

sinnernekolens

Altın Üye
Altın Üye
Katılım
23 Temmuz 2009
Mesajlar
242
Beğeniler
1
Excel Vers. ve Dili
Ofis 2016 - Türkçe 64bit
#1
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
19,182
Beğeniler
24
Excel Vers. ve Dili
2010-Türkçe
#2
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:

derisa963

Altın Üye
Altın Üye
Katılım
19 Ağustos 2017
Mesajlar
145
Beğeniler
18
Excel Vers. ve Dili
2016 TR
#4
@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