Soru Eğer 0 İse Combobox'a Ekle

[ywzyilmaz]

Merhaba Arkadaşlar

Şöyle bir tablo var

Raf Adresi	Doluluk Durumu
A1-1	1​
A1-2	0​
A1-3	0​
A2-1	0​
A2-2	0​
A2-3	0​
A3-1	0​
A3-2	0​
A3-4	0​
B1-1	0​
B1-2	0​
B1-3	0​

Burada doluluk durumu gördüğünüz gibi bazıları 0 bazıları 1.


Yapmak istediğim şey şu.

doluluk durumu (f sütunu) = "0"
olanların E sütünündaki Değeri combobox1 e item olarak ekleyecek.

Bunu userform initialize diziminde yapabilir miyim? Userform her görüntülendiğinde bu listeye göre combobox içeriğini güncelletmem gerekiyor.

 

[Korhan Ayhan]

Aşağıdaki döngüyü uyarlayabilirsiniz.

With Sheets("Sayfa1")
   For Each Rng In .Range("B2:B" & .Cells(.Rows.Count, 1).End(3).Row)
      If Rng.Value = 0 Then
         ComboBox1.AddItem .Cells(Rng.Row, 5)
      End If
   Next
End With

 

[ywzyilmaz]

Aşağıdaki döngüyü uyarlayabilirsiniz.

With Sheets("Sayfa1")
   For Each Rng In .Range("B2:B" & .Cells(.Rows.Count, 1).End(3).Row)
      If Rng.Value = 0 Then
         ComboBox1.AddItem .Cells(Rng.Row, 5)
      End If
   Next
End With

Merhaba verdiğiniz kodları şu şekilde UserForm_initialize içerisine ekledim. Hata alıyorum. " permission denied error 70 "

Nerede hata yapıyorum?

Private Sub UserForm_Initialize()
mbkod = Sheets("devameden").Range("C2")
miktar = Sheets("devameden").Range("I2")
bastar = Sheets("devameden").Range("A2")
TextBox5.Text = mbkod
TextBox13.Text = miktar
TextBox14.Text = bastar
With Sheets("sabitveri")
   For Each Rng In .Range("K2:K29" & .Cells(.Rows.Count, 1).End(3).Row)
      If Rng.Value = 0 Then
         ComboBox1.AddItem .Cells(Rng.Row, 5)
      End If
   Next
End With
End Sub

 

[Korhan Ayhan]

.Range("K2:K29"

Bold bölümü silip deneyiniz.

 

[ywzyilmaz]

.Range("K2:K29"

Bold bölümü silip deneyiniz.

Tekrar Merhaba

Bu şekilde kod çalıştı, combobox'a eklemeleri de yapıyor. Fakat sadece ilk 5 satırı alıyor. 6.satırdan sonrası listeye eklenmiyor.

 

[Korhan Ayhan]

Önerdiğim kodda satırla ilgili bir sınırlama yoktur. Tablonuzda A sütununda dolu olmasına dikkat etmelisiniz.

Eğer A sütununu kullanmıyorsanız son satırı tespit eden bölümü revize etmek gerekir.

 

[ywzyilmaz]

Sorunu buldum

(.Rows.Count, 1)

şurada son dolu satırı ilk sütundan tespit ettirmişiz o yüzden sorun yaşamışım.

Teşekkür ederim. Desteğiniz için çok teşekkür ederim.