Şimdi list1 ve 2 var arkadaşlar, text1 var! text1 programı açan pcye göre değişiyor!.. list1 de 1den 10a kadar rakam mevcut.. butona basınca list1deki rakamları text1den büyük olucak şekilde list2ye eklemesini istiyorum!.. Kullandığım kod şu: Dim aga On Error Resume Next For aga= 0 To List1. ListCount List1. ListIndex = Val(Text1. Text) List1. ListIndex = List1. ListIndex + aga List2. AddItem List1. Text And List1. Text > Val(Text1. Text) Next butona basıyorum, text1den yukarıdakileri ekliyor bitiyor, sonra birde text1den 1 büyük olan rakamı text1den 1 fazla kadar dah ekliyor!.. ÖRN: text1. text = 6 diyelim, butona basınca eklenen şunlar 7,8,9,10,7,7,7,7,7,7,7 sondaki 7leri eklemicek, yardımlarınızı bekliyorum!.. -

Kod: For i = 0 To List1. ListCount - 1 If CInt(List1. List > CInt(Text1) Then List2. AddItem List1. List End If Next bu şekilde problem olmuyor.