Listbox RowSource sorunu

[mamita]

Merhaba,

Listboxdaki rowsourcu Comboboxtaki değere göre değiştirmek istiyorum fakat bu şekilde listboxa veri gelmiyor Kodum aşağıdaki gibidir(İnitilize kısmına vs denedim fakat işe yaramdı) Desteğinizi rica ederim

If ComboBox21_Barem.Value = "1.000-10.000" Then
ListBox2.ColumnCount = 3
ListBox2.RowSource = "Flexo!first"
ListBox2.ColumnWidths = "100;100;100"
Else
End If

 

[Muzaffer Ali]

Merhaba.
Sorun aşağıdaki satırdan kaynaklanıyor.

ListBox2.RowSource = "Flexo!first"

"Flexo" sayfa adı, arkasından aşağıdaki gibi hücre adresi yazılmalı

ListBox2.RowSource = "Flexo!A1:A10"

siz adres yerine "first" yazmışsınız "first" nedir?

"first" adında bir alan tanımlanmış olmalı. Bu tanımı silmiş olabilirsiniz.

 

[mamita]

Merhaba.
Sorun aşağıdaki satırdan kaynaklanıyor.

ListBox2.RowSource = "Flexo!first"

"Flexo" sayfa adı, arkasından aşağıdaki gibi hücre adresi yazılmalı

ListBox2.RowSource = "Flexo!A1:A10"

siz adres yerine "first" yazmışsınız "first" nedir?

Saygıdeğer hocam, first ad tanımlaması yaptığım alan benzer tanımlamayı Comboboxu referans almadan initialize kısmına yazınca kodum çalışıyordu

 

[Muzaffer Ali]

Dosyanızı ekleyin kontrol edelim.
Özel bilgiler varsa değiştirerek ekleyebilirsiniz.

 

[mamita]

Merhaba.
Sorun aşağıdaki satırdan kaynaklanıyor.

ListBox2.RowSource = "Flexo!first"

"Flexo" sayfa adı, arkasından aşağıdaki gibi hücre adresi yazılmalı

ListBox2.RowSource = "Flexo!A1:A10"

siz adres yerine "first" yazmışsınız "first" nedir?

"first" adında bir alan tanımlanmış olmalı. Bu tanımı silmiş olabilirsiniz.

Hocam bu şekilde çalışıyor
Private Sub UserForm_Initialize()


ListBox2.ColumnCount = 3
ListBox2.RowSource = "Flexo!first"
ListBox2.ColumnWidths = "100;100;100"


Fakat comboboxla bağlantıyı kuramadım

 

[Muzaffer Ali]

O zaman şu satır şartı sağlamıyor.

If ComboBox21_Barem.Value = "1.000-10.000" Then

ComboBox21_Barem'in değeri "1.000-10.000" eşit değil

 

[mamita]

Hocam

Comboxdaki rowsource alanı

Tanımlanmış Adı: Barem

1.000-10.000
1.000-100.000
1.000-500.000
10.000-100.000
10.000-500.000
10.000-1.000.000
100.000-500.000
100.000-10.000.000
500.000-1.000.000
1.000.000-10.000.000

(Initialize kod kısmı)

Private Sub UserForm_Initialize()


ListBox2.ColumnCount = 3
ListBox2.RowSource = "Flexo!first"
ListBox2.ColumnWidths = "100;100;100"

ComboBox21_Barem.RowSource = "Barem!Barem" (Barem sekmesinden yukarda belirttiğim barem alanını alıyor)



Bu durumda bu kod neden çalışmazki
If ComboBox21_Barem.Value = "1.000-10.000" Then (Bu kodu userformda listboxu gösteren buton kodunda, Combobox_change ksımında, listbox_change kısmında denedim fakat ne bir hata ne de bir sonuç alabiliyorum)

 

[mamita]

Muzaffer hocam sorunu tespit ettim "1.000-10.000" bu şekilde string bir value değeri alamıyorum sanırım
Baremleri 1,2,3 diye tanımladığım zaman kodum çalıştı
"1.000" & "-" & "10.000" şunu denesem işe yarar mı sizce

 

[Muzaffer Ali]

Dosyayı görmeden yardımcı olamıyorum.

 

[mamita]

İlginiz için teşekkür ederim Problemi biraz daha uğraşarak çözüme kavuşturdum