belli aralıktaki sayıları listboxta listeleme

[turk4545]

arkadaşlar iyi akşamlar.forumda aradım işime yarayacak örnekler silinmiş inceleyemedim.sorunum sayfa2 a1:a100 aralığında kayıtlı 1 ile 400 arasında sayılar var ve b1:b100 aralığında ise bu sayılarla ilişkili isimler var.örneğin 280 den küçük olanların ismlerini b sütunundan bulup listbox da listelemek istiyorum.
şimdiden tşkkrler..

 

[janveljan]

Aşağıdaki kodu kullanarak yapabilirsiniz.

For i = 1 To 100
 If Cells(i, "A") < 280 Then ListBox1.AddItem Cells(i, "B")
Next

 

[turk4545]

teşekkürler elinize sağlık