DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub UserForm_Initialize()
Dim i As Byte
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "SIRALAMA"
For i = 1 To 30
ListView1.ListItems.Add , , Format(Range("A" & i).Value, "@@@@@@@@")
Next i
End Sub
Necdet hocam merhaba.
Evet bu şekilde oluyor.
Ondalık rakamlardada oluyor.
Teşekkür ederim.
Pardon ,olmuyormuş.!!e o zaman Evren Bey,
Ondalık değerlerde nasıl olduğunu da siz söyleyin bari
Ben denemelerimde başarısız olmuştum.