örnek dosyamdaki forumda seçilen satırı sil butonu ile hem listviewden hemde sayfadan nasıl silerim

[Cengizhantr06]

merhaba
örnek dosyamdaki forumda seçilen satırı sil butonu ile hem listviewden hemde safadan nasıl silerim

 

[kemal turan]

Merhaba,
Dosyanız listview nesnesi benim office sürümümd hata verdi.
Ustalardan öğrenip anladığım kadarı ile size uyarladığım aşağıdaki kodu denermisiniz.

Private Sub cmdSIL_Click()
If ListView1.SelectedItem.Index = -1 Then MsgBox "Silmek için kayıt seçilmedi!", vbExclamation, "Lütfen listeden bir seçim yapın!": Exit Sub

Set S1 = Sheets("MUSTERI")
Dim bul As Range
For Each bul In S1.Range("A2:A" & S1.Range("A65536").End(3).Row)
If bul.Text = TextBox14.Text Then

bul.EntireRow.Delete
End If
Next bul
MsgBox "Kayıt silindi", vbInformation, "ExcelVba.Net"
Call temizle
listrgoster
listrgoster2
End Sub

 

[kemal turan]

Ayrıca Userformunuzun Initialize olayında eksiklikler var.
Bu hali ile listview inizde görüntüleme alabiliyormusunuz.

Private Sub UserForm_Initialize()

Me.Left = 0
Me.Top = 70
sil

listrgoster
listrgoster2
End Sub

 

[Cengizhantr06]

evet alıyorum

 

[Korhan Ayhan]

Merhaba,

Profilinizde yazan (Vba) ofis sürümü bilgisini lütfen güncelleyiniz.

 

[kemal turan]

Korhan Hocam merhaba,
profildeki (Vba) ofis sürümü güncellemesini nasıl yapıyoruz.
profil resmi hariç diğer bilgilerime ulaşamadım.