listbox hakkında

[command]

userformdaki multipage içindeki listboxda f sütununda 30 dan küçük rakamların olduğu satırların listelenmesini istiyorum.

aşağıdaki kodu çıkardım ama çalıştıramadım.
yardım edebilir misiniz?

Private Sub UserForm_Initialize()
ListBox3.Clear

Sheets("Bilgi").Range("A1000:F").Select
For suz = 1 To WorksheetFunction.CountA(Range("a1:a65536"))
If Range("f" & suz).Value >= 30 Then
ListBox1.AddItem
s = s + 1
ListBox1.List(s - 1, 0) = Range("a" & suz)

    Exit Sub
End If
End Sub

 

[hamitcan]

If Range("f" & suz).Value >= 30 Then

yerine aşağıdaki satırı kullanın.

If Range("f" & suz).Value < 30 Then

 

[Mehmet Şahin]

Merhaba,
sanki daha fazla hata var gibi. For döngüsü tamamlanmamış, değer alınacak alınanlar belirlenmemiş Listbox1 ve listbox3 tanımları var. En iyisi örnek bir dosya eklemek. Bu şekilde daha hızlı bir çözüme ulaşılabilir. İyi çalışmalar.

 

[command]

dosya ekte.

 

[command]

kodu biraz değiştirdim.
ama nafile.

listede 30 dan küçük hepsi olmuş. büyük olabileceğini de varsayalım. sadece 30dan küçük olanlar listelensin.

Private Sub UserForm1_Initialize()
ListBox1.Clear
Sheets("Sayfa2").Range("A1000:F").Select
For suz = 1 To WorksheetFunction.CountA(Range("a1:a65536"))
If Range("f" & suz).Value < 30 Then
ListBox1.AddItem
s = s + 1
ListBox1.List(s - 1, 0) = Range("a" & suz)

    Exit Sub
End If
End Sub

 

[Mehmet Şahin]

Bu şekilde denermisiniz.

Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = "40;40;40;40;40;40"
For suz = 1 To Sheets("sayfa2").Cells(65536, "a").End(xlUp).Row
If Range("f" & suz).Value < 30 Then
                    ListBox1.AddItem
                    ListBox1.List(s, 0) = Cells(suz, "a")
                    ListBox1.List(s, 1) = Cells(suz, "b")
                    ListBox1.List(s, 2) = Cells(suz, "c")
                    ListBox1.List(s, 3) = Cells(suz, "d")
                    ListBox1.List(s, 4) = Cells(suz, "e")
                    ListBox1.List(s, 5) = Cells(suz, "f")

s = s + 1
End If
Next
End Sub

 

[command]

teşekkürler hocam, kodları epey revize etmişsin. istediğim bu idi. zihnine sağlık.

 

[command]

bir şey daha soracağım. mutipagede, pagelere tıklandığında sheet değişsin istiyorum. yani 7.sayfaya geçildiğinde vade isimli sayfaya geçilsin. diğer durumda bilgi isimli sayfa aktif olsun. ama aşağıdaki kod çalışmıyor. nasıl yapabilirim.

Private Sub UserForm_Initialize()

If MultiPage1.Value = 7 Then
Sheets("Vade").Select
Else:
Sheets("Bilgi").Select
End If
End Sub

 

[Mehmet Şahin]

Günaydın,
formunuza aşağıdaki kodu ekleyiniz. İyi çalışmalar.

Private Sub MultiPage1_Change()
If MultiPage1.Value = 0 Then
Sheets("Vade").Select
Else:
Sheets("Bilgi").Select
End If
End Sub

 

[command]

hocam malesef sayfayı değiştirmiyor.

 

[Mehmet Şahin]

hocam malesef sayfayı değiştirmiyor.

ekte sizin gönderdiğiniz dosya üzerinde yapılmış bir örnek var. İncelerseniz kendi kodlarınızdaki farklılıkları bulabilirsiniz.

 

[command]

tamamdır hocam tşkler.

 

[Mehmet Şahin]

rica ederim, iyi çalışmalar.