Sayfa listelendiği ListBox-TextBoxta bağzı sayfaların listelenmesini Önlemek

[taseraydin]

Değerli Arkadaşlar Çari hesap uygulamalarımla ilgili bir dosyam var her isme bir sayfa açıyor ve TextBox tan sayfayı çağırıp işlem yapıyorum aynı şekil isim silmem gerektiğinde Yine userFormda List boxta sıralanan ismleri seçip siliyorum ancak bu dosyada ayrıca müşterilerin özet hesaplarını gösteren bir sayfa var özet Mizan şeklinde "MİZAN" bu sayfa ListBoxta Doğal olarak görünüyor ve diğer kullanıcı arkadaş bunu yanlışlıkla silmeleri söz konusu
Bu Riski kaldırmak için Listbokx ve TextBox tan bu sayfanın listelenmesini kaldırmam gerekiyor bunla ilgili bir koda ihtiyacım var..
İlgilerinize şimdiden teşekür ederim.
Saygılarımla
Taşdemir AYDIN

 

[Tankut SAZLI]

Sayın taseraydın

forma aşağıdaki kodu ekleyin
Private Sub UserForm_Initialize()
On Error Resume Next

Dim i As Integer
For i = 2 To Worksheets.Count
ListBox1.AddItem Worksheets(i).Name
Next i

End Sub

Burada görüntülenmesini istediğiniz safyanın numarası 2 olarak verilmiştir.Mizan sayfasını enbaşa getirin.Böylece Mizan 1. sayfa olur listboxta görünmez

 

[taseraydin]

Cari hesap kaydettiğimde İsme sayfa acılıyor ve açılan isim "Veri"Sayfasında sıralanıyor.
Fakat Sayfalardan Bir Tanesi "MİZAN"
adında Cari özetlerin sayfası
Bu sayfada "Veri" Sayfasında Sıralanıyor

TextBoxlarımda ve ListBox larımda"Veri"sayfasından Liste almakta olduğundan
başka arkadaşların kullanmasında "MİZAN"dosyasını silebilirler


Mevcut Çalıştırılan Kodlama Şu,

Private Sub firsil_Click()
If silbox.Value = "" Then Exit Sub

'silenecek firma bulunur ve silinir.
Sheets(silbox.Value).Select
ActiveWindow.SelectedSheets.Delete
'silindikten sonra tekrar düzenlenir.
Set veri = Worksheets("Veri")
veri.Select
Range("A1:A100").Select
Selection.ClearContents
Range("A1").Select
tk = Worksheets.Count - 2
For i = 1 To tk
Cells(i, 1).Value = Worksheets(i).Name

Next i
'giriş sayfasına dönülür ve veri sayfasının verileri liste kutusuna yazdırılır.
Set giris = Worksheets("Giris")
giris.Select
End Sub

Yani "veri"Sayfasındaki isimlerde "Mizan" Sayfası Görünmesin
Saygılarımla

 

[Tankut SAZLI]

For i = 1 To tk
satırını
For i = 2 To tk
şeklinde düzenleyin

 

[taseraydin]

TeŞekÜrler

Halledİldİ