Metin olarak girilen yüzdeli sayıyı makro ile sayıya çevirme problemi

[ynstcrt]

Herkese slm ve iyi çalışmalar.

İnternetten kopyalayarak aldığım verileri metin olarak yapıştırıyorum. Başarı % ve Puan başlığının altındakileri Makro ile önce sayıya çevirip sonra sayılara göre büyükten küçüğe sıralıyorum. İsimlerde sayılara göre sıralanıyor. Fakat Puan başlığının altındaki veriler doğru bir şekilde sayıya çevrilip (hücrenin sağında konumlanmalarından anlaşılıyor) yine doğru bir şekilde büyükten küçüğe sıralanıyorken , Başarı % başlığının altındaki yüzdeli verilerin sayıya çevrilmesinde problem oluyor (metinler gibi hücrenin solunda konumlanmaya devam etmelerinden anlaşılıyor) ve büyükten küçüğe sıralamasında yanlışlık oluyor. 100% ü sayıya çevirebilirken ( 1 olarak çeviriyor ), 100% ' den küçük olanları sayı formatına çeviremiyor ( ondalık sayı olarak görünüyorlar ama hücrenin solunda konumlanıyorlar ) ve "1" en yüksek sayı olmasına rağmen büyükten küçüğe sıralamada en altta kalıyor. "1" hücrenin sağında, ondalık sayılar hücrenin solunda konumlanıyor.

Yüzdeli verileri sayıya çevirmede hata olduğunu düşünüyorum.

Not: Makro ile değil de normal SAYIYAÇEVİR fonksiyonu ile yüzdeli sayılar doğru bir biçimde ondalık sayılara çevriliyor ve hücrenin solunda konumlanıyorlar. Ek dosyada D sütununda görülüyor

Örnek dosya ektedir.

Yardımlarınız için şimdiden teşekkürler...

 

[ÖmerFaruk]

Mevcut kodlarınızda kalmak için, aşağıdaki for next döngüsünü değiştirin

For i = 6 To sonsat Step 5
    Range("G" & i) = Replace(Range("G" & i), "%", "") * 1
Next i

 

[ÖmerBey]

Merhaba,
Şu şekilde deneyiniz: Range("G" & i) = CDbl(Format(Range("G" & i), "General Number")) ' Sayıya çeviriyor

 

[ynstcrt]

Her ikinize de değerli vaktinizi ayırdığınız için çok teşekkür ederim. Sorunum çözüldü. Sağlıklı günler diliyorum.