İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
Merhabalar;
Forumdan aldığım aşağıda yazılı kod;
çalışma kitabında birkaç sayfa olduğundan, listbox'a veri gelip, textbox.lara aktarıldığı halde, SİL işleminde, başka sayfadaki veriyi siliyor. Tahmin ettiğim kadarıyla sayfa tanımlaması gerekli. Sayfa adı: Müşteriler. Yardımlarınız için şimdiden Teşekkürler....
Private Sub CommandButton52_Click()
If ListBox1.ListIndex <> 0 Then
Sil = ListBox1.ListIndex + 1
Cevap = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Rows(Sil).EntireRow.Delete
End If
son = Cells(65536, 1).End(xlUp).Row
For i = 2 To son
Cells(i, 1) = i - 1
Next
End Sub
Forumdan aldığım aşağıda yazılı kod;
çalışma kitabında birkaç sayfa olduğundan, listbox'a veri gelip, textbox.lara aktarıldığı halde, SİL işleminde, başka sayfadaki veriyi siliyor. Tahmin ettiğim kadarıyla sayfa tanımlaması gerekli. Sayfa adı: Müşteriler. Yardımlarınız için şimdiden Teşekkürler....
Private Sub CommandButton52_Click()
If ListBox1.ListIndex <> 0 Then
Sil = ListBox1.ListIndex + 1
Cevap = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Rows(Sil).EntireRow.Delete
End If
son = Cells(65536, 1).End(xlUp).Row
For i = 2 To son
Cells(i, 1) = i - 1
Next
End Sub