Koordinatları Ayırma

[toprak2349]

Excel dosyasında A1 hücresinde şöyle koordinatlar var. Bu koordinatları enlemleri B1-B2-B3-B4 e, boylamları C1-C2-C3-C4 e ayırabilir miyiz ? For döngüsü ile ?

 

[Korhan Ayhan]

Hücredeki hangi veriler boylam, hangileri enlem?

 

[toprak2349]

Hücredeki hangi veriler boylam, hangileri enlem?

31. ile başlayıp "," e kadar olanlar Boylam. (39. ile başlayıp "," e kadar olanlar da enlemler.)

 

[Korhan Ayhan]

Bahsettiğiniz değerleri göremedim...

 

[toprak2349]

31.62424777268415=boylam
39.4881121340358=enlem (bundan sonrakiler de ilki boylam sonraki enlem şeklinde)

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Enlem_Boylam()
    Dim X As Long, Veri As Variant, Satir As Integer
    
    Range("B:C").ClearContents
    
    Veri = Split(Cells(2, 1), ",")
    Satir = 1
    
    For X = 0 To UBound(Veri) - 2 Step 2
        Cells(Satir, 2) = IIf(Left(Veri(X), 1) = "0", Trim(Mid(Veri(X), 2, Len(Veri(X)))), Veri(X))
        Cells(Satir, 3) = Veri(X + 1)
        Satir = Satir + 1
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[toprak2349]

@Korhan Ayhan teşekkürler....

 

[Haluk]

Regular Expressions ile alternatif, ekli dosyadadır....

.

 

[Haluk]

Aslında, A2 hücresindeki koordinatlar bir XML tablosundan alınmış.......

Muhtemelen; bunları A2 hücresine almadan, direkt olarak XML tablosundan alarak da ayrıştırma yapılabilir...

.

 

[toprak2349]

Aslında dosya .kml google earth dosyası. Ekte var. Yani kml dosyasındaki verileri (koordinatları) başka hangi şekilde alabiliriz @Haluk bey.

 

[Haluk]

Aşağıdaki animasyonda belirtilen gibi bir dosya hazırladım. İstediğiniz böyle bir şey mi?






.

 

[toprak2349]

Evet @Haluk bey yapmak istediğim aynen öyle.Nasıl yaptınız acaba öyle ?

 

[Haluk]

Evet @Haluk bey yapmak istediğim aynen öyle.Nasıl yaptınız acaba öyle ?

Öğrenmek ve dosyayı elde etmek istiyorsanız, özel mesajla görüşebiliriz.

.