Listboxa otomatik veri ekleme

[oscarxxx]

Selamlar. sayfada bir listbox var. "H" sütununda 600 tane yüzde ifaeli veri var bu yüzdelik verinin sahip olduğu isim "A" sütununda yazıyor. bu yüzdelik ifadeler içerisinde %10u geçenlerin A sütunundaki adı ile birlikte listboxda yan yana yazmasını istiyorum. acaba bunu excelde gerçekleştirmem mümkün olabilir mi?
Örnek :
A Sütunu(isim)...............................H Sütunu (%) ListBox
Muhammed %7 Alper %11
Alper %11 Şafak %34
Şafak %34

 

[oscarxxx]

Tabi yüzdelik veriler değişiklik gösterdiğin liste kutusunda güncellemenmesi gerekiyor.

 

[ÖmerFaruk]

Kodları ne zaman çalıştıracağınızı bilemedim.
Verilerinizin 600 tane olduğunu söylemişsiniz. 2.satırdan başlarsa 600 satırlık veri 601. satıra denk gelir.
Eğer farklıysa For-Next döngüsünde değişiklik yapabilirsiniz.

Private Sub Worksheet_Activate()
For i = 2 To 601
    If Range("H" & i) > 10 Then
        Me.ListBox1.AddItem
        Me.ListBox1.List(Say, 0) = Range("A" & i)
        Me.ListBox1.List(Say, 1) = Range("H" & i)
        Say = Say + 1
    End If
Next i
End Sub