Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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.
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.