Hücrede karakter arama yoksa ekleme

[anatole]

Selamlar,
Arkadaşlar bana bir hücrede bulunan koordinat değerleri arasında "." karakterini aramasını yoksa eklemesini sağlayacak bir macro lazım.

Örnek: 29°8'9.43"E hücresinde 9.43 mevcut ama koordinat 29°8'9"E şu şekilde olsaydı bunu 29°8'9.0"E yapabilecek bir macro lazım.

Yardımlarınızı bekliyorum.
Teşekkürler.

 

[Ömer]

Merhaba,

Verilerinizin A sütununda olup 2. satırdan başladığını düşünürsek;

Kodları module ekleyerek çalıştırınız..

Sub AraEkle()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    If Not Cells(i, "A") Like "*.*" Then
        Cells(i, "A") = Left(Cells(i, "A"), Len(Cells(i, "A")) - 2) _
        & ".0" & Right(Cells(i, "A"), 2)
    End If
Next i
End Sub

.