ListBoxta veri seçili değilse, kod çalışmasın

[İsmail Küçükşengün]

Merhaba;

Private Sub CommandButton15_Click()
On Error Resume Next
 
sor = MsgBox("Silmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
Range(Cells(ListBox2.ListIndex + 16, "n"), Cells(ListBox2.ListIndex + 16, "v")).Delete
Cells(ListBox2.ListIndex + 17, "M").Clear
End Sub

Koduyla ListBoxtan seçilen veriyi siliyorum.

ListBoxta veri yoksa, ya da seçilen satırda veri yoksa "Veriyi Listeden Tıklayarak Seçiniz..." şeklinde mesaj çıkması ve silme işlemi yapmaması, ancak ListBoxtan dolu olan satır seçilirse işlem yapması için, kodda ne gibi değişiklik gerekir.

Şimdiden Teşekkürler..

 

[Mahmut Bayram]

If ListBox2.ListIndex = -1 Then
MsgBox "Üzgünüm seçili veri yok"
Else
On Error Resume Next
sor = MsgBox("Silmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
Range(Cells(ListBox2.ListIndex + 16, "n"), Cells(ListBox2.ListIndex + 16, "v")).Delete
Cells(ListBox2.ListIndex + 17, "M").Clear
End If

 

[İsmail Küçükşengün]

Sayın Mahmut hocam;

ListBox2 de veri olmadığı halde, yine eskisi gibi.
Yani "Veri yok" mesajı çıkmıyor. Direk "silmek ister misin "mesajı çıkıyor.

 

[Mahmut Bayram]

Koddaki

ListBox2.ListIndex = -1

ifadesini,

ListBox2.ListCount = 0

şeklinde değiştirmelisiniz.

 

[İsmail Küçükşengün]

Dosyamı etke sunuyorum.

(Sorun verilerin A sütunu değil de M sütunundan başlmasından kaynaklanıyor. A sütununda olsa idi, sayın Leventm'in "veriyönetimi" adlı örneğinden faydalanarak yapabilirdim.)

Sorunları dosyada açıkladım.

Yardımlarınıza şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Sil butonuna aşağıdaki kodu kopyalayın.

Private Sub CommandButton15_Click()
On Error Resume Next
If ListBox2.ListIndex = -1 Then
MsgBox "Üzgünüm seçili veri yok"
Else
sor = MsgBox("Silmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
Range(Cells(ListBox2.ListIndex + 16, "n"), Cells(ListBox2.ListIndex + 16, "v")).Delete
[m65536].End(3).Delete
End If
End Sub

Listboxa boş satırları yüklememek içinde userforma yazılı olaydaki kodu aşağıdaki ile değiştirin.

Private Sub UserForm_Activate()
ListBox2.RowSource = "verigir!M16:V" & [v65536].End(3).Row
ListBox2.ColumnCount = 10
ListBox2.ColumnWidths = "40;80;70;100;0;70;0;90;50;60"
End Sub

 

[İsmail Küçükşengün]

Sayın leventm;

Çok teşekkür ediyorum.

Selamlarımla.

 

[İsmail Küçükşengün]

Merhaba,

Userformda, ListBoxtan veri seçilip silindiğinde, 1 satır veri olduğundan veri siliniyor ve sütun başları görünmüyor.UserForm kapatılıp açıldığında ise, (Görünmemesi gerekirken) sütun başları gözüküyor.

Dosyayı bir incelerseniz sevinirim.

 

[Levent Menteşoğlu]

Userform_activate olayındaki kodu aşağıdaki ile değiştirin.

Private Sub UserForm_Activate()
If [verigir!m16] <> "" Then ListBox2.RowSource = "verigir!M16:V" & [v65536].End(3).Row
ListBox2.ColumnCount = 10
ListBox2.ColumnWidths = "40;80;70;100;0;70;0;90;50;60"
End Sub

 

[İsmail Küçükşengün]

Sayın Levent bey;

Evet. Sayenizde Sorun çözüldü.

Çözümünüzden önce ,veri olmadığı halde, listboxta RowSource 16 satırdan itibaren gözükmesi gerekirken niye 15 satırın gözüktüğünü anlayamadım.

Selamlar.

 

[Levent Menteşoğlu]

...Çözümünüzden önce ,veri olmadığı halde, listboxta RowSource 16 satırdan itibaren gözükmesi gerekirken niye 15 satırın gözüktüğünü anlayamadım.....

Çünkü, rowsource veri yüklerken kullanılan [v65536].End(3).Row komutu son satır olarak 15'i buluyor.

 

[İsmail Küçükşengün]

Sayın Leventm;

Açıklamanıza çok teşekkürler.