15'1-3/32" seklinde yazilan uzunlugu cm ye cevirme

[ahmetalb07]

Merhabalar,

Elimde yaklasik 2000 satir imperial sistemle yazilmis uzunluklar var bunlari nasil cm ye ceviririm.
Ornegin 15'1-3/32"=(15*30.48+1*30/12)-(2.54*3/32)=459.461875 cm seklinde elle hesap yapmak istemiyorum.
herbir sayi bir hucre icerisinde orn a1 hucresi "15'1-3/32""verisinin tamamini kapsiyor ayri halde degiller.(orn a1="15'1" a2="-3/32"" seklinde degil).

Saygilarimla

 

[Merhum İdris SERDAR]

Bir örnek dosya eklerseniz daha açıklayıcı olur.

 

[ahmetalb07]

Ornegi ekledim

 

[Muzaffer Ali]

30,48 rakamı neyi ifade ediyor?
Normalde bu rakamlar inch ölçü birimi değil mi nedir bu 30,48 rakamı?

 

[ahmetalb07]

1 foot 30.48 cm
1 inch 2.54 cm

 

[turist]

Dosyanız eklidir.

 

[Ömer BARAN]

Merhaba.

En azından alternatif olsun.
.

Sub cm_cevir()
son = Cells(Rows.Count, 1).End(3).Row
Range("B2:B" & son).ClearContents
For sat = 2 To son
    deg = Cells(sat, 1)
    Cells(sat, "B") = Split(deg, "'")(0) * 30.48 + Split(Split(deg, "'")(1), "-")(0) * 30.48 / 12 _
                    - Split(Split(Split(deg, "'")(1), "-")(1), "/")(0) * 2.54 / _
                    Replace(Split(Split(Split(deg, "'")(1), "-")(1), "/")(1), """", "")
Next
End Sub

 

[ahmetalb07]

Tesekkur ederim her ikinizin yontemide isime yaradi.
Yalniz omer bey 6. satir 30.48 gozunuzden kacti sanirim.

 

[turist]

Sağolun.

 

[Ömer BARAN]

Nasıl düzelttiniz bilemiyorum ama ben hatayı fark ettim ve önceki cevabımı güncelledim.
Sayfayı yenileyerek önceki cevabı tekrar kontrol eder misiniz?
.

 

[Ömer BARAN]

Önce bir önceki cevabımı okuyunuz.
Alternatif olarak bir de formül ile çözüm önerisinde bulunayım.
Formüllerden birini B2'ye uygulayın ve aşağı doğru liste boyunca kopyalayın.

=(PARÇAAL(A2;1;(BUL("'";A2))-1)*30,48)+(PARÇAAL(A2;(BUL("'";A2))+1;BUL("-";A2)-(BUL("'";A2))-1)*30,48/12)-(PARÇAAL(A2;BUL("-";A2)+1;BUL("/";A2)-BUL("-";A2)-1)*2,54/YERİNEKOY(PARÇAAL(A2;BUL("/";A2)+1;255);SAĞDAN(A2;1);""))
=ÇEVİR(PARÇAAL(A2;1;(BUL("'";A2))-1);"ft";"cm")+ÇEVİR(PARÇAAL(A2;(BUL("'";A2))+1;BUL("-";A2)-(BUL("'";A2))-1);"in";"cm")-2,54*PARÇAAL(A2;BUL("-";A2)+1;1)/YERİNEKOY(PARÇAAL(A2;BUL("/";A2)+1;3);SAĞDAN(A2;1);"")