% den sonraki rakamları almak

[wezyr]

Merhabalar verı sayfasında yer alan "Yüzdelik Dilimi: %29,19" metin şeklindeki verilerin içinden aşağıdaki kod ile sağdan 6 karakter olarak veriyi alıyorum.
Cells(2 + i, "W") = Right(Worksheets("VERI").Cells(r + 13, "D"), 6)
ama bazen veriler % 1,17 ve %100 şeklinde olabiliyor. bu kodu sadece % den sonraki değeri alacak şekilde nasıl düzenleyebilirim.

 

[Korhan Ayhan]

Alternatifler;

1 - Cells(2 + i, "W") = Split(Worksheets("VERI").Cells(r + 13, "D"), ": ")(1)

2 - Cells(2 + i, "W") = Replace(Worksheets("VERI").Cells(r + 13, "D"), "Yüzdelik Dilimi: ", "")

 

[wezyr]

Çok teşekkürler Korhan hocam.
2.'si işimi gördü. 1.'si tüm verileri aldıktan sonra debuga düştü.