Listboxta İnitializenin Guncellenmesi

[Kemal Demir]

Listboxta Ýnitializenin Guncellenmesi

Arkadaslar Merhaba,

Aşagıdaki Kodda Listboxta Seçilen Sheet isimlerinin Silinmesi Yapılıyor ama ben burada İnitialize Olayında Silinen Sheet isminin Direk Listboxtanda Silinmesini İstiyorum Koddaki Değişiklik nasıl olmalı.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'çifttıkla gorunen Sheet'i sil
If Sheets.Count = 1 Then
MsgBox ("Son Sheet Silinemez")
Else
Sheets(ListBox1.Text).Delete
End If
Exit Sub
End Sub
Private Sub UserForm_Initialize()
For x = 1 To Sheets.Count
ListBox1.AddItem Sheets(x).Name
Next
End Sub

Yardımlarını İçin Þimdiden Teşekkur Ederim.

 

[veyselemre]

[vb:1:f68a478168]
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'çifttıkla gorunen Sheet'i sil
If Sheets.Count = 1 Then
MsgBox ("Son Sheet Silinemez")
Else
Sheets(ListBox1.Text).Delete
End If
Call aktar
Exit Sub
End Sub
Private Sub UserForm_Initialize()
Call aktar
End Sub
Sub aktar()
ListBox1.Clear
For x = 1 To Sheets.Count
ListBox1.AddItem Sheets(x).Name
Next
End Sub[/vb:1:f68a478168]

 

[Kemal Demir]

teşekkur ederim.