Sayfaları listbox a farklı aktarma

[mühendis^^]

userform üzerinde listbox1 ve listbox2 diye iki bölüm var bunlara mevcut sayfa isimlerini getirmek istiyorum ancak listbox1 e parantez içinde olan sayfaları list box2 ye parantez içinde olmayan sayfalar nasıl getirecem onu yapamadım.

sayfa isimleri örnek; veri listbox1 de görünecek
(veri) listbox2 de görünecek

yardımlarınız için şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Bu soruyu yanıtlayabileceğimi sanıyorum ama kodların doğru çalışıp çalışmadığını anlamak için oturup dosya hazırlamayı istemedim.

Soruyu sorunuz ama veriyi de insanlara sununuz. İnsanlar hem kod hem veri hazırlamak zorunda kalmasınlar.

Küçük bir rica, saygılar.

 

[mühendis^^]

sn:Necdet bey evet haklısınız dosya eklemek doğru olur, ben yazılacak kodları kullanabilirim diye düşündüm kusura bakmayın lütfen
Örnekte 4 sayfa oluşturulmuştur ama normalde hesap aç denilerek her defasında sayfa eklenmektedir bu eklenen yeni sayfalarıda kapsamalıdır kodlar.

 

[janveljan]

Aşağıdaki sub ı gereken yerde çağırarak yapılabilir zannediyorum.

Sub sayfalar()
UserForm1.ListBox1.Clear
UserForm1.ListBox2.Clear
For i = 1 To Sheets.Count
If InStr(1, Sheets(i).Name, "(") > 1 Then
UserForm1.ListBox2.AddItem Sheets(i).Name
Else
UserForm1.ListBox1.AddItem Sheets(i).Name
End If
Next
End Sub

 

[ozgretmen]

Aşağıdaki kodu formunuzun kod bölümüne ekleyiniz...

Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox2.Clear
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 1) = "(" Then
ListBox2.AddItem Sheets(i).Name
Else
ListBox1.AddItem Sheets(i).Name
End If
Next
End Sub

 

[mühendis^^]

evet iştee bu;

Sn: janveljan ve Snzgretmen vermiş olduğunuz cevaplardan dolayı minnettarım, Snzgretmen nin vermiş olduğu kod tam istediğim gibi oldu cevap vermeğe çalışan herkesin eline ve yüreğine sağlık.valla 3 gündür bi türlü yapamadığım soruya cevap oldu inanın çok mutluyum,saygılarımla.

 

[Necdet]

Demekki bir örnek dosya çözümü hızlandırıyor