Combobox'a Benzersiz Veri Alma Hakkında

[Ergün Güler]

Acaba ben yapınca niye sıaralama doğru oluyor ve ilk sırada boşluk olabiliyor?
Ekli dosyayı inceleyiniz.

Sayın Gizlen,
ekli dosyanızı inceledim. Dediğiniz doğrudur. sıralamayı doğru yapıp, ilk sırada boşluk oluyor.
Bende olmuyor. Sebebini sizin ekteki dosyanızın üzerinden anlatmaya çalışayım;
A1 hücresine "Sayılar" diye başlık ekledim. combobox'ta ilk sırada "sayılar" metni altında 0'dan itibaren sayılar oluştu. bu prblemi çözmek için
A1:A22 aralığını A2:A22 diye düzelttim. bu sefer ilk sırada 20 daha sonraki sayılar 0,1,2,3 diye devam etti. bu sorunu düzeltmek için
aşağıdaki kodu

For i = LBound(liste)[COLOR="Red"] + 1[/COLOR] To UBound(liste) - 1

kırrmızı kısmını silerek aşağıdaki gibi yaptım.
bu sefer sayıları 0'dan itabiaren sıralıyor ancak, haliyle ilk sırada boşluk yapamıyorum.
İyi çalışmalar.

For i = LBound(liste) To UBound(liste) - 1

 

[Orion1]

A1 hücresine "Sayılar" diye başlık ekledim. combobox'ta ilk sırada "sayılar" metni altında 0'dan itibaren sayılar oluştu.

Bu doğru değilmi
İstediğiniz ilk veri gözardı edilsin ondan sonrakiler artan sıara ile sıaralsın istemiyormuydunuz.
Comboboxta ilk sırada sayılar çıkması ve onun altında il sırada 0(sıfır) ile başlayıp artan sırada girmesi sizin istediğiniz gibi kodun çalıştığını gösteriyor.
Siz ne istiyordunuz?.

 

[Ergün Güler]

Bu doğru değilmi
İstediğiniz ilk veri gözardı edilsin ondan sonrakiler artan sıara ile sıaralsın istemiyormuydunuz.
Comboboxta ilk sırada sayılar çıkması ve onun altında il sırada 0(sıfır) ile başlayıp artan sırada girmesi sizin istediğiniz gibi kodun çalıştığını gösteriyor.
Siz ne istiyordunuz?.

Selam,
Gerçekten ilginize çok teşekkür ederim.
küçük bir problemi anlatamadığım için üzgünüm.
sizin son gönderdiğiniz dosyada sadece A1 hücresine "gsm" adlı bir başlık ekleyerek size gönderiyorum. Umarım anlatabilmiştirim.
İyi çalışmalar.

 

[Orion1]

Selam,
Gerçekten ilginize çok teşekkür ederim.
küçük bir problemi anlatamadığım için üzgünüm.
sizin son gönderdiğiniz dosyada sadece A1 hücresine "gsm" adlı bir başlık ekleyerek size gönderiyorum. Umarım anlatabilmiştirim.
İyi çalışmalar.

Her şey için kod isteme yerine azıcı8k siz kendinizde çaba sarfetmelisiniz.Böyle yaparsanız daha hızlı gelişme gösterirseniz.
Comboboxa verileri aldıktan sonra aşağıdaki bir satır kodu ekledim işlem tamamdır.
Dosyanız ektedir.

Private Sub UserForm_Initialize()
ComboBox1.List = Range("A1:A22").Value
[B][COLOR="Red"]ComboBox1.List(0, 0) = ""[/COLOR][/B]
liste = ComboBox1.List
ComboBox1.List = sirala_sayi(liste)
ComboBox1.ListIndex = 0
End Sub

 

[Ergün Güler]

Her şey için kod isteme yerine azıcı8k siz kendinizde çaba sarfetmelisiniz.Böyle yaparsanız daha hızlı gelişme gösterirseniz.
Comboboxa verileri aldıktan sonra aşağıdaki bir satır kodu ekledim işlem tamamdır.
Dosyanız ektedir.

Private Sub UserForm_Initialize()
ComboBox1.List = Range("A1:A22").Value
[B][COLOR="Red"]ComboBox1.List(0, 0) = ""[/COLOR][/B]
liste = ComboBox1.List
ComboBox1.List = sirala_sayi(liste)
ComboBox1.ListIndex = 0
End Sub

Selam sayın Evren Gizlen,
Çaba sarf etmez olur muyum? Zaten önce kendim birşeyler karıştırdıktan sonra sorumu soruyorum.
Çok teşekkür ederim. İyi ki varsınız İyi çalışmalar.

 

[Orion1]

Selam sayın Evren Gizlen,
Çaba sarf etmez olur muyum? Zaten önce kendim birşeyler karıştırdıktan sonra sorumu soruyorum.
Çok teşekkür ederim. İyi ki varsınız İyi çalışmalar.

Rica ederim.
İyi çalışmalar.

 

[msanli]

Sayın Evren Gizlen,

Sizin başka bir uygulamanızda bulunan aşağıda ki kod ile bir uygulama yapmaya çalışıyorum.

aşağıdaki kog ile listedeki değerleri form'a alıyorum. Fakat form içinde birde ComboBox2 var. 2. combobox'a da parametreler sayfasında bulunan a sütunundaki verileri görmek istiyorum.

Bu konuda yardımcı olabilirmiziniz?

Private Sub UserForm_Initialize()
ComboBox1.Clear
For i = 2 To Sheets("LISTE").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Cells(i, 1).Value

Next
End Sub

Teşekkürler

 

[Orion1]

Sayın Evren Gizlen,

Sizin başka bir uygulamanızda bulunan aşağıda ki kod ile bir uygulama yapmaya çalışıyorum.

aşağıdaki kog ile listedeki değerleri form'a alıyorum. Fakat form içinde birde ComboBox2 var. 2. combobox'a da parametreler sayfasında bulunan a sütunundaki verileri görmek istiyorum.

Bu konuda yardımcı olabilirmiziniz?

Private Sub UserForm_Initialize()
ComboBox1.Clear
For i = 2 To Sheets("LISTE").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Cells(i, 1).Value

Next
End Sub

Teşekkürler

sorunuzu yeni bir başlık açarak sorunuz.
Örnek dosyayıda eklemeyi unutmayınız.