+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: ComboBoxda Sayfaları Göstermek (/konu-comboboxda-sayfalari-gostermek.html)
RE: ComboBoxda Sayfaları Göstermek - berduş - 10/05/2020
zaten for each ile alınabiliyordu ama başlangıçta OpenShemayı, recordset gibi kullanabilirsek .filter yada .sort gibi özellikleri de kullanarak bütün işlemleri kolayca yapabiliriz düşüncesiyle eklemiştim ama maalesef o özellikleri kullanamadım.
RE: ComboBoxda Sayfaları Göstermek - feraz - 10/05/2020
Kodlar aşağıdaki gibi olunca sıralama yapar zaten ve extra syfayada gerek kalmaz.
Const Ekleme As String = "|ÞABLON|Sayfa1|liste|TmpSilme|"Private Sub UserForm_Initialize()
Me.ComboBox1.DropDown
Dim syf As Worksheet
Dim coll As Object
Set coll = CreateObject("System.Collections.ArrayList")
For Each syf In Worksheets
If InStr(1, Ekleme, "|" & syf.Name & "|", 1) = 0 Then coll.Add syf.Name
Next syf
If coll.Count > 0 Then
coll.Sort
Me.ComboBox1.List = coll.ToArray
Me.ListBox1.List = coll.ToArray
End If
Set coll = Nothing
End SubBirde sayfalar resimdeki gibi ayarlardan gizleneilir.
RE: ComboBoxda Sayfaları Göstermek - berduş - 10/05/2020
Bu yöntem çok daha iyi oldu @feraz bey )
Benim de artık öğrenmem gerek collectioni, aklım sürekli sorgulara, recordsetlere gidiyor ama burada en pratiği bu yöntem galiba
RE: ComboBoxda Sayfaları Göstermek - feraz - 10/05/2020
(10/05/2020, 14:38)berduş yazdı: Bu yöntem çok daha iyi oldu @feraz bey )Bu arraylist fazla verilerde yavaş çalışır biraz.Fakat normal dictionary hızlı çalışır lakin ondada sıralama yok.
Benim de artık öğrenmem gerek collectioni, aklım sürekli sorgulara, recordsetlere gidiyor ama burada en pratiği bu yöntem galiba
RE: ComboBoxda Sayfaları Göstermek - m_demir - 10/05/2020
Merhaba Hocalarım UserForm4 de TextBox1 yeni bir Excel sayfasını eklemek istediğimiz zaman var olan bir sayfayı eklememize izin vermiyor. Uyarı veriyor. ALI ismini yazdığımız zaman ALI isminde ikinci bir sayfa eklenmesine izin veriyor. Hiç bir şekilde var olan bir sayfayı ikinci sefer eklememize izin vermese iyi olur. Birde TextBoxa yazdığım küçük harfleri büyük harfe çeviriyor. çevri yaptığı zaman Türkçe büyük harf kabul ederse çok iyi olur. Saygılarımla.
RE: ComboBoxda Sayfaları Göstermek - berduş - 10/05/2020
Lutfen Yeni sorunuzu yeni konu açarak soru.